Discussion :

[bartimeus35]

HEllo,
Je me bats avec du code du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bartimeus35]

Je viens d'essayer

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

[hyperion13]

Salut
Pourtant rien de compliquer !
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 ?

[tee_grandbois]

salut,

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

ou pas,
un petit point devant Sheets suffit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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