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