Discussion :

[vtk37]

Salut à tous,

je voudrait sauvegarder le contenu d'une datagridview j'ai donc trouvé un code en cherchant sur le net mais j'ai un soucis mais je ne comprend pas trop pourquoi étant novice en VB

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        Dim x, y As Integer
 
        SaveFileDialog1.Filter = "Fichier Excel (.xls)|*.xls|Tous les fichiers|*.*"
        SaveFileDialog1.DefaultExt = "xls"
 
        xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
        xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
        xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)
 
        Dim nbrLigne As Integer = DataGridView1.Rows.Count - 1
        Dim nbrColon As Integer = DataGridView1.ColumnCount - 1
 
        For x = 0 To nbrColon
            ' ici on prends le titre des colonnes
            xlSheet.Cells(1, x + 1) = DataGridView1.Columns(x).Name
            ' on mets la première ligne en gras
            xlSheet.Rows(1).Font.Bold = True
 
            ' pour chaque colonne et chaque ligne on transfert les données      
            For y = 0 To nbrLigne
                xlSheet.Cells(y + 2, x + 1) = DataGridView1.Item(y, x)
            Next
        Next
 
 
 
        SaveFileDialog1.ShowDialog()
        xlSheet.SaveAs(SaveFileDialog1.FileName)
        ' on quitte l'application et on détruit les objets
        xlApp.Quit()
        xlSheet = Nothing
        xlBook = Nothing
        xlApp = Nothing
 
 
 
 
    End Sub

si dans le datagrid il y a que les titres et aucune données sa fonctionne bien mais des qu'il y a des lignes le programme s'arrete au niveau du premier Next et me dit

Code :

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

1
2
3
Une exception non gérée du type 'System.Runtime.InteropServices.COMException' s'est produite dans mscorlib.dll
 
Informations supplémentaires*: Exception de HRESULT : 0x800A03E

Si vous voyez pourquoi faite moi signe

[Hinault Romaric]

Je crois que le problème n'est pas au niveau du DatagridView sa doit être au niveau du transfert dans le fichier Excel

[vtk37]

c'est à dire? est-ce que sa vient de mon programme ou de la configuration de excel?

et pourquoi quand il n'y a que les titre dans la datagrid sa arrive bien à transférer ?

[Hinault Romaric]

Je crois que sa vient de ton programme et je pourrais dire que c'est cette section

Code :

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

1
2
3
For y = 0 To nbrLigne
                xlSheet.Cells(y + 2, x + 1) = DataGridView1.Item(y, x)
            Next

Essaye de faire une exécution pas a pas pour voir ou tu met ce bloc dans un try et récupérer le message d'erreur tu poste

[Hinault Romaric]

En plus tu a inversé l'ordre dans ton datagridview
fait plutot ceci

Code :

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

1
2
3
4
 
            For y = 0 To nbrLigne
                xlSheet.Cells(y + 2, x + 1) = DataGridView1.Item(x, y)
            Next

[vtk37]

meme en inversant l'ordre sa plante toujours

sinon en faisant pas à pas sa m'ouvre "code machine" et le plantage se situe à la ligne

Code :

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

000002ed mov esi,eax

c'est à dire entre le "xlSheet.Cells(y + 2, x + 1) = DataGridView1.Item(x, y)
"

et le "Next" ...

[vtk37]

Lorsque je met cette ligne en commentaire j'ai plus de plantage mais bon j'aimerai bien savoir pourquoi elle pose probléme

Code :

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

xlSheet.Cells(y + 2, x + 1) = DataGridView1.Item(x, y)

[Hinault Romaric]

sinon en faisant pas à pas sa m'ouvre "code machine" et le plantage se situe à la ligne
Code :

000002ed mov esi,eax

Met cette section dans un bloc Try Catch tu récupère le message d'erreur et tu poste

[vtk37]

je sais pas ce qu'est un bloc try Catch

mais j'ai resolu mon probléme
j'ai remplacé:

Code :

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

xlSheet.Cells(y + 2, x + 1) = DataGridView1.Item(x, y)

par

Code :

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

xlSheet.Cells(y + 2, x + 1) = DataGridView1.Rows(y).Cells(x).Value

et sa fonctionne