Discussion :

[paterson]

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

[hugoclo]

Salut essaye ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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 
 Set appExcel = CreateObject("Excel.Application") 
 'Ouverture d'un fichier Excel 
 Set wbExcel = appExcel.Workbooks.Open("chemin+fichier.xls") 
'wsExcel correspond à la première feuille du fichier 
 Set wsExcel = wbExcel.Worksheets(1) 
 appExcel.Visible = True

Référence : Microsoft Excel 11.0 Object Library