EXPORTER UN DATAGRIDVIEW VERS EXCEL

Commentaire de rudhf le 05/11/2006 22:00:02

dans ce code je copie mon datagridview ligne par ligne, s'il y a une autre méthode pour faire ça, je serai ravi de la connaitre.

Commentaire de okok1 le 19/07/2007 19:06:51

En cours de test. merci d'avance...

Commentaire de pactoopac le 24/07/2009 15:23:49

attention si le dataGridView a plus de 26 colonnes!!

en bircolant un peut, voici une petite solution pour les tableaux avec moins de 676 colonnes.

Pour la première boucle :
if (i < 26)
   oRng = oSheet.get_Range(Convert.ToChar(65 + i).ToString() + "1", Missing.Value);
   else
   {
      oRng = oSheet.get_Range(Convert.ToChar(65 + ii).ToString() + Convert.ToChar(65 + i%26).ToString() + "1", Missing.Value);
      if ((i%26).Equals(0))
         ii++;
   }

pour la seconde :

if (i < 26)
   oRng = oSheet.get_Range(Convert.ToChar(65 + i).ToString() + j.ToString(), Missing.Value);
   else
   {
      oRng = oSheet.get_Range(Convert.ToChar(65 + ii).ToString() + Convert.ToChar(65 + i%26).ToString() + j.ToString(), Missing.Value);
      if ((i % 26).Equals(0))
         ii++;
   }

Commentaire de Jomba le 06/11/2009 15:41:13

ce ne serait pas plus simple comme ça?

Public Sub ExporterVersExcel(ByRef Dgv As DataGridView)

        Dim objXL As Excel.Application
        Dim objClasseur As Excel.Workbook
        Dim objFeuille As Excel.Worksheet

        Try
            ' Lancer Excel
            objXL = New Excel.Application
            objXL.DisplayAlerts = False
            objClasseur = objXL.Workbooks.Add(1)
            objFeuille = objClasseur.Sheets(1)

            Dim iLigne As Integer
        ' Récupérer l'élément actuellement sélectionné
        iLigne = Dgv.Rows.GetFirstRow(DataGridViewElementStates.Selected)
        ' Tout sélectionner
        Dgv.SelectAll()
        ' Le mettre en mémoire ClipBoard
        Clipboard.SetDataObject(Dgv.GetClipboardContent())
        ' Remettre la sélection précédente
        While Dgv.Rows.GetFirstRow(DataGridViewElementStates.Selected) > -1
               Dgv.Rows(Dgv.Rows.GetFirstRow(DataGridViewElementStates.Selected)).Selected = False
        End While
        Dgv.Rows(iLigne).Selected = True

            '   Coller le datagrid dans Excel
            objFeuille.Cells.PasteSpecial(Excel.XlPasteType.xlPasteAll, Excel.XlPasteSpecialOperation.xlPasteSpecialOperationAdd)

            ' Rendre visible Excel
            objXL.Visible = True
            objXL.UserControl = True
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try
    End Sub

Commentaire de yourisparrow le 21/04/2010 00:32:46

c faisable avec un streamwriter.