Discussion :

[papy75]

Bonjour le Forum,

Tout d'abord je ne sais pas trop si c'est sur le bon sous-forum qu'il faut que je poste ma question donc si c'est le cas dites moi ou la poster Merci.

Bon alors j'ai un petit soucis lors du remplissage d'une Feuille Excel a partir d'un DatagridView.

Voici le code (que j'ai trouvé sur Internet) :

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
 
        Dim AppExcel As Microsoft.Office.Interop.Excel.Application
        Dim wsheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim wbook As Microsoft.Office.Interop.Excel.Workbook
        Dim Row As Integer
        Dim Col As Integer
        Dim Head As Integer
 
        AppExcel = New Microsoft.Office.Interop.Excel.Application
        AppExcel.Visible = True
        wbook = AppExcel.Workbooks.Add()
        wsheet = wbook.ActiveSheet
 
        For Head = 0 To DataGridView1.Columns.Count - 1
            wsheet.Cells(1, Head + 1).Value = DataGridView1.Columns(Head).HeaderText
        Next
 
        wsheet.Rows(2).select()
 
        For Row = 0 To DataGridView1.Rows.Count - 1
            For Col = 0 To DataGridView1.Columns.Count - 1
                wsheet.Cells(Row + 2, Col + 1).value = DataGridView1(Col, Row).Value.ToString
            Next
        Next
 
        AppExcel.Visible = True
        AppExcel.UserControl = True

Ca me remplie toutes mes données dans Excel mais a la dernière itération, j'ai le message d'erreur suivant:

Code :

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

Object reference not set to an instance of an object.

C'est le seul code potable que j'ai trouvé sur Internet et qui me remplie mes données comme il faut, mais persiste cette erreur...

Si quelqu'un a déjà utilisé ce code et la modifié afin qu'il marche ou qui sait comment résoudre ce pb faite moi signe....

Merci d'avance et bonne journée

Cordialement,
Vincent

[Skalp]

Cette erreur signifie que tu fais appel à une variable définie à "Nothing".
Il te faut simplement trouver laquelle en utilisant le mode pas à pas, par exemple, pour voir à quelle ligne exactement ton code plante.
Déjà, ça m'étonne que ton code compile, car Workbooks.Add() prend un paramètre, normalement.

Pourquoi aller se perdre sur Internet alors qu'il y a tout ce qu'il faut sur dvpz.com : Comment transférer un DataGrid dans Excel ?

[papy75]

Salut Skalp,

Merci pour ton lien... ça m'a aidé a trouver ce qu'il n'allait pas...

Alors en fait j'ai trouvé pourquoi j'avais ce message d'erreur enfin le pourquoi du comment non mais j'ai tout simplement enlevé le .ToString dans la ligne suivante:

Code :

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

wsheet.Cells(Row + 2, Col + 1).value = DataGridView1(Col, Row).Value.ToString

Et ça marche très bien....

Sinon j'ai regardé le code du lien que tu m'as donné et il y a deux petites erreurs car il ne compile pas:

Les voici:
Première erreur: Out of Range

Code :

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

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

ça ne peut pas marcher car un Datagrid est construit différemment qu'une feuille Excel ie il faut inverser les lignes avec les colonnes. Ici x représente les colonnes et y les lignes. Donc cette ligne il faut l'écrire de cette façon:

Code :

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

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

Deuxième erreur: Exception from HRESULT: 0x800A03EC

Toujours dans la même ligne, il faut préciser ce que l'on veut dans le DataGrid ie les Valeurs Donc il faut lui ajouter la propriété .Value:

Code :

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

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

Et en rajoutant ces petites modifications le code marche très bien.

En tout cas merci pour ton aide

Cordialement,
Vincent.