Code Simple : Utiliser Excel sous VB ?
Bonjour,:salut:
je voudrais tout simplement lire une cellule d'excel sous VB?:?
Mais le code suivant ne fonctionne pas, il me donne une erreur 1004 !8O
- Il plante sur la dernière ligne !:(
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Private Sub Form_Load()
'Déclaration des variables
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open(App.Path + "\LL.xls")
'wsExcel correspond à la première feuille du fichier
'Set wsExcel = wbExcel.ActiveSheet
Set wsExcel = wbExcel.Worksheets(1)
'Set sheet = appExcel.ActiveWorkbook.ActiveSheet
Text1.text = wsExcel.Cells(0, 0).Value
End Sub |
En suivant la FAQ du site, ca semble facile mais ca ne fonctionne pas sur mon poste ???
Merci d'avance
