Discussion :

[volubiliss]

Bonjour

Petite demande d’information relative a comment structurer un objet et ses relations.
J’ai 3 classeurs ouvert classeur A – classeur B – classeur C composés chacun de 3 feuilles : pour classeur A (a1 a2 a3) Pour B classeur (b1 b2 b3)…
J’aimerai savoir comment je puis faire une recherche, par exemple, de la feuille b3 en étant positionné dans le classeur A,
Pour être plus claire je tape du code positionné dans un module du classeur A et j’aimerai appeler directement la feuil b3 sans passer par le classeur B , le code serait du type je suis sur Classeur A est ce que la feuille b3 existe ?, si oui activate.

Comment puis-je procéder ?

Merci d’avance

[pgz]

Bonjour.

Si tu connais le nom des classeurs, c'est très simple. Par exemple pour avoir une instance de la feuille b2, avec une procédure dans le projet du classeur A

Code :

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

1
2
3
Dim oSht as Excel.Worksheet
 
Set oSht = Application.Workbooks("NomDuClasseurB").Worksheets("NomDeLaFeuilleB2")

Ensuite tu peux utiliser toutes le propriétés et méthodes d'un objet WorkSheet en utilisant la variable oSht.

Si tu ne sais pas si la feuille existe, mais que tu connais le nom du classeur et celui de la feuille recherchée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim oWbk as Excel.Workbook, oSht as Excel.Worksheet
 
Set oWbk= Application.Workbooks("NomDuClasseurB")
 
for each oSht in oWbk.Worksheets
    if oSht.Name = "NomDeLaFeuilleB2" then exit for
next oSht
 
if oSht is Nothing Then
    ...'la feuille n'existe pas
Else
    ... 'la feuille existe
End if

Cordialement,

PGZ

[volubiliss]

Merci pour ce retour, cela me clarifie bien les choses