Discussion :

[koyot3]

Bonjour à tous,

J'ai suivi le tuto http://faqvbnet.developpez.com/?page...dgrid_to_excel afin de pouvoir remplir un fichier Excel

Si je fais ça,

Code vb.net :

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

1
2
3
4
5
6
7
8
9
 Dim xlApp As Excel.Application
 Dim xlBook As Excel.Workbook
 Dim xlSheet As Excel.Worksheet
 
 xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
 xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
 xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)
 
 xlSheet.Cells(1, 1) = 13

ça marche correctement, mais si je rajoute une boucle toute bête telle que

Code vb.net :

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

1
2
3
For j As Integer = 1 To 13
     xlSheet.Cells(0, j).Value2 = 1
 Next

j'ai un message d'erreur COMException

Exception de HRESULT : 0x800A03EC

J'ai aussi essayé avec un .Cells(0,j) = 1, la même erreur est levée...

Quelqu'un aurait-il une idée d'où cela peut-il venir ?
Je précise que j'ai importé Interop.Office.Excel v11 et que sur mon poste, il s'agit de Excel 2003...

Par avance, MERCI

@+

[chrismonoye]

Bonsoir,
la case 0 n'existe pas sur une page excel.
Les lignes (ou colonnes) commencent à 1.
La library 11 est la bonne pour excel 2003, je crois.

[MABROUKI]

bonjour
comme l'as dit tomlev,les index dans excel commence toujours à 1(pas comme dans vb.net ou il commence à zero).
attention quand on surfe entre com et .net............
bon code

[Brialex]

Bonjours a tous,

Afin d'envoyé le contenu d'un DataGridView dans un fichier excel, j'ai utilisé le meme code que koyot3 qui fonctionne.

Mon probleme c'est que je voudrais que les données de mon DataGridView soit envoyé dans un fichier excel deja existant et choisi par l'utilisateur au lieu de crée un nouveau classeur.

J'ai regarder plusieurs tuto sur internet mais j'ai reussi a trouvé comment faire.
J'avais pensé utilisé GetObject()

Mon code :

Code :

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

1
2
3
4
5
6
7
8
9
Dim app As New Excel.Application
Dim Wbook As Excel.Workbook
Dim Wsheet As Excel.Worksheet

app = CType(GetObject("D:\Users\Alexandre\Desktop\specialite\" &Me.listepays.Text  &".xlsx"),Excel.Application)      
  Wbook = CType(excel.Workbooks.Add, Excel.Workbook)
        Wsheet = CType(xlsBook.Worksheets(1), Excel.Worksheet)

    .....

mais des que je lance mon script je reçoit une erreur (en gras sur mon code) avec l'exception suivante :

Impossible d'effectuer un cast d'un objet COM de type 'System.__ComObject' en type d'interface 'Microsoft.Office.Interop.Excel.Application'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM pour l'interface avec l'IID '{000208D5-0000-0000-C000-000000000046}' a échoué en raison de l'erreur suivante : Cette interface n’est pas prise en charge (Exception de HRESULT : 0x80004002 (E_NOINTERFACE)).

Je n'arrive pas a trouver d'ou vient le probleme Si quelqu'un aurait une idée si vous plais

Merci a tous

[chrismonoye]

Bonjour,
à tester, en adaptant l'import et le chemin du fichier excel, bien-sûr :

Code :

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

Imports xls = Microsoft.Office.Interop.Excel

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
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim xlApp As New xls.Application
        Dim xlBook As xls.Workbook
        Dim xlSheet As xls.Worksheet
 
        'xlApp = CType(CreateObject("Excel.Application"), xls.Application)
        xlBook = xlApp.Workbooks.Open(Application.StartupPath & "\Classeur1.xlsx")
        xlSheet = CType(xlBook.Worksheets(1), xls.Worksheet)
 
        For j As Integer = 1 To 13
            Dim castRange As xls.Range = CType(xlSheet.Cells(1, j), xls.Range)
            castRange.Value = j
        Next
 
        xlApp.Visible = True
    End Sub

[Brialex]

Bonjours

j'ai essayé de resoudre mon probleme par different moyen j'ai essayé en adaptant le code de chrismonoye ou en essayant d'utiliser des file.open ...

Mais mon erreur persiste =(

[MABROUKI]

bonjour
supprime ce cast inutile ,en interop.excel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
'corrige cette ligne (cast inutile)
'xlSheet = CType(xlBook.Worksheets(1), xls.Worksheet)
'remplace par :
xlSheet =xlBook.Worksheets(1)
'initialise l'interface range avant d'entrer dans la boucle
Dim castRange As xls.Range =nothing
 For j As Integer = 1 To 13
           'pas besoin de caster un objet excel à autre objet excel
           castRange = xlSheet.Cells(1, j)
           castRange.Value = j
        Next

bon code............

[koyot3]

Bonsoir,
la case 0 n'existe pas sur une page excel.
Les lignes (ou colonnes) commencent à 1.
La library 11 est la bonne pour excel 2003, je crois.

merci

[Brialex]

bonjour
supprime ce cast inutile ,en interop.excel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
'corrige cette ligne (cast inutile)
'xlSheet = CType(xlBook.Worksheets(1), xls.Worksheet)
'remplace par :
xlSheet =xlBook.Worksheets(1)
'initialise l'interface range avant d'entrer dans la boucle
Dim castRange As xls.Range =nothing
 For j As Integer = 1 To 13
           'pas besoin de caster un objet excel à autre objet excel
           castRange = xlSheet.Cells(1, j)
           castRange.Value = j
        Next

bon code............

Oui c'est bon sa marche Merci BEAUCOUP a toi est a chrismonoye pour votre aide