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
Merci pour votre aide
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
Partager