Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Imports Microsoft.Office.Interop
 
Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim c, j As Integer
        Dim xl As New Excel.Application
 
        xl.Visible = True
        xl.Workbooks.Add()
 
        For c = 0 To DataGridView1.Columns.Count - 1
            xl.Cells(c + 1, 1) = DataGridView1.Columns(c).Name
        Next
        j = 0
        For l As Integer = 0 To Datagridview1.rows.count - 1
            For c = 0 To Datagridview1.rows.count - 1
                xl.cells(l + 1, j + 1) = Datagridview1.rows(l).cells(c).value
            Next c
        Next l
 
    End Sub
End Class

il ne s'exécute pas il m'affiche
L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection. Nom du paramètre : index
sur la ligne du code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
xl.cells(l + 1, j + 1) = Datagridview1.rows(l).cells(c).value
et le fichier excel sorti,ne comtient que la donnée de la première cellule du DataGridView

Et Merci d'avance