Sauvegarde d'une datagridview

Version imprimable

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:

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:

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 :D

13/06/2009, 12h29
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
15/06/2009, 10h36
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 ?
15/06/2009, 12h10
Hinault Romaric
Je crois que sa vient de ton programme et je pourrais dire que c'est cette section
Code:

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

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

Code:

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

15/06/2009, 13h59
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:

000002ed mov esi,eax

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

et le "Next" ...
16/06/2009, 11h08
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:

xlSheet.Cells(y + 2, x + 1) = DataGridView1.Item(x, y)
16/06/2009, 12h03
Hinault Romaric

Citation:

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

000002ed mov esi,eax

:calim2:
Met cette section dans un bloc Try Catch tu récupère le message d'erreur et tu poste
16/06/2009, 13h45
vtk37

je sais pas ce qu'est un bloc try Catch :(

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

Code:

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

par

Code:

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

et sa fonctionne