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
J'obtiens l'erreur au niveau du triple asterix, où j'ai le message suivant:
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
Mon index valait dans se cas là 2.Une exception non gérée du type 'System.Runtime.InteropServices.COMException' s'est produite dans WindowsApplication1.exe
Informations supplémentaires*: Index non valide.
Merci d'avance,
Damien
Partager