Bonjour,

j'ai une petite appli qui doit simplement recuperer le nom des differents fichiers excel dans un repertoire ('c:\slot') et les afficher dans une list pour ensuite les imprimer
mais seulement il y a une erreur je crois que cela provient de mon code dans le bouton qui n'est pas valide merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Set appExcel = CreateObject("Excel.Application")
Set vbExcel = appExcel.Workbooks.Open("C:\slot")
Set vsExcel = vbExcel.Worksheets(1)
For i = 1 To appExcel.Workbooks.Count
List1.AddItem appExcel.Workbooks.Add
Next i
puis dans la feuille je fait reference à excel comme ceci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Dim appExcel As Excel.Application
Dim vbExcel As Excel.Workbook
Dim vsExcel As Excel.Worksheet