Excel ouverture d'un fichier
Bonjour ,
Je souhaiterai ouvrir un fichier excel. Mais malheureusement cela ne fonctionne pas.
Je souhaite utiliser les lib excel car c'est ensuite plus simple, on donne des coordonnées, et en plus on a la puissance de excel. ( j'ai la flem de faire une double boucle for)
Actuellement , je pense que mon problème viens soit du fait que j'ai un code VB6, ou que j'ai oublié une référence.
Mes références : Microsoft Excel 5.0 Object Library
Microsoft Office 12 Authorization control
Microsoft office 12.0 Object Library
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| 'Pas d'Imports ici
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
wbExcel = appExcel.Workbooks.Open("D:\Matthieu\test.xls")'il plante ici lien OK
'wsExcel correspond à la première feuille du fichier
wsExcel = wbExcel.Worksheets(1)
wsExcel = appExcel.ActiveWorkbook.ActiveSheet |
Merci d'avance pour votre aide.
Matthieu
