Bonjour,

je voudrais tout simplement lire une cellule d'excel sous VB?

Mais le code suivant ne fonctionne pas, il me donne une erreur 1004 !
- Il plante sur la dernière ligne !

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
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