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 : Sélectionner tout - Visualiser dans une fenêtre à part
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