Bonjour,

Je viens de copier ces quelques lignes de codes pour ouvrir une feuille excel, malheuresement dès la 1ère ligne le prog s'arrête."Erreur de compilation" sur la ligne Dim appExcel As Excel.Application 'Application Excel

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
'Déclaration des variables
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("H:\Bureau\Frais.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
End Sub
Merci pour votre aide