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

@+