Lecture d'un fichier excel depuis access

Version imprimable

HEllo,
Je me bats avec du code du genre
Code:

1 2 3 4 5 6 7 8 9 fichier_1 = "C:\Users\franc\Desktop\Classeur1.xlsx" Set wbExcel = Workbooks.Open(fichier_1) i = Sheets("Feuil1").Cells(2, 2).Value ' code Ok mais je vais avoir 2 classeurs d’ouverts et je veux préciser lequel i = wbExcel.Sheets("Feuil1").Cells(2, 2).Value ' KO 'fermeture de la fiche de test wbExcel.Close (False)
Comment faire pour préciser le classeur en question si j'en ai 2/3 d'ouverts ?
Merci, je patine depuis 2 heures :(
et je ne trouve pas d’explication claire sur le net :(

Je viens d'essayer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Ouverture des fichier de excel
fichier_1 = "C:\Users\franc\Desktop\Classeur1.xlsx"
fichier_2 = "C:\Users\franc\Desktop\Classeur2.xlsx"
 
Set wbExcel_1 = Workbooks.Open(fichier_1)
Set wbExcel_2 = Workbooks.Open(fichier_2)
 
 
With wbExcel_1
 i = Sheets("Feuil1").Cells(2, 2).Value
End With
MsgBox (i)
 
With wbExcel_2
 i = Sheets("Feuil1").Cells(2, 2).Value
End With
MsgBox (i)
 
 
 
'fermeture de la fiche de test
wbExcel_1.Close (False)
wbExcel_2.Close (False)

Mais les 2 msgbox me donnent le contenu de la cellule 2;2 classeur 2, ( dernier classeur ouvert), ça m'agace .
Merci,

25/05/2023, 17h26
hyperion13

Salut
Pourtant rien de compliquer ! :weird:
Vous ouvrez en cascade 2 classeurs et à l'évidence le dernier ouvert est le classeur actif ! Ça coule de sens en plus !
Peut-être utiliser la propriété ActiveWorkBook ?
25/05/2023, 17h33
tee_grandbois
salut,

Citation:

Envoyé par hyperion13

Peut-être utiliser la propriété ActiveWorkBook ?

ou pas,
un petit point devant Sheets suffit:
Code:

1 2 3 With wbExcel_1 i = .Sheets("Feuil1").Cells(2, 2).Value End With