Bonjour à tous,

Voilà j'ai une windows form contenant 4 ListView de 50 cases, je les remplis progressivement et une fois le nombre de cases voulu remplies, je les vides et transferts les données dans un fichiers excel.
Le probléme est que parfois j'ai plus de 200 cases à remplir, je voudrais donc pouvoir créer des worksheet excel dans le même fichier à la suite. Malheureusement j'obtiens toujours des erreurs . Un peu de code vous aidera à comprendre

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
'Appel de la fonction 
TransfertExcel(Compteur)
 
 
Public Function TransfertExcel(ByVal Compteurfeuille As Integer)
 
       '        '----------------------------------------
        '        'Procédure d'export vers le fichier excel
        '        '----------------------------------------
 
 
        Dim xlApp As Application
        Dim xlBook As Workbook
        Dim xlSheet As Worksheet
 
 
        xlApp = CType(CreateObject("Excel.Application"), Application)
          xlBook = xlApp.Workbooks.Open("D:\Lecteur Datamatrix Elts seuls\bin\Feuille no de serie.xls")
       *** xlSheet = CType(xlBook.Worksheets(Compteurfeuille), Worksheet)
 
 
       ' ici on affiche les résultat dans excel
        xlSheet.Application.Visible = False
 
        'Copie du tableau dans la feuille Excel
        xlSheet.Range("C3").Value = DateJour
        xlSheet.Range("C4").Value = Temperature
J'obtiens l'erreur au niveau du triple asterix, où j'ai le message suivant:

Une exception non gérée du type 'System.Runtime.InteropServices.COMException' s'est produite dans WindowsApplication1.exe

Informations supplémentaires*: Index non valide.
Mon index valait dans se cas là 2.


Merci d'avance,

Damien