Discussion :

[fabiofabio]

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

[Invité]

Bonjour

Je voudrais que tu me montres une feuille avec une cellule à l'emplacement (0,0), je dirais plutôt (1,1).

Starec

[fabiofabio]

P.....n

No Comment

Ca me rassure, ca fonctionne !

merci Starec