Discussion :

[vb.net.2008]

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

[Sankasssss]

Hello,
c'est une chose qui revient tout le temps mais pensé au balise code, c'est plus lisible pour ceux qui veulent aider !!!
voir REGLEMENT SUR BALISE CODE

Pour ton problème, je pencherais pour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xl.cells(l + 1, c + 1) = Datagridview1.rows(l).cells(c).value

au lieux de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xl.cells(l + 1, j + 1) = Datagridview1.rows(l).cells(c).value

ton j n'est jamais incrémenté, donc tu mettra tjs dans la même colonne dans ton excel.

ET pour le problème d'index :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For c = 0 To Datagridview1.Columns.Count - 1

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For c = 0 To Datagridview1.rows.count - 1

car tu boucles deux fois sur les row, et ca c'est pas normale...
une fois sur les row et une fois sur les colonnes c'est plus logique
Bien à toi

[foudhailim]

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
 
    Private Sub Button1_Click_1(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 DGProduit.Columns.Count - 1
            xl.Cells(1, c + 1) = DGProduit.Columns(c).Name
        Next
        j = 0
        For l As Integer = 0 To DGProduit.Rows.Count - 1
            For c = 0 To DGProduit.Columns.Count - 1
                xl.Cells(l + 2, c + 1) = DGProduit.Rows(l).Cells(c).Value
            Next c
        Next l
 
    End Sub

Juste qlq modification a fin d'avoir le fichier excel avec l'entete et complé car avec l'ancian code tu est entrin d'écrasé l'entaite