Discussion :

[Wire.Less]

Chaque feuille excel est identifier par deux propriétés :
Son "Name" : C'est ce qui est écrit sur l'onglet et qui est visible par l'utilisateur.
Son "CodeName" : C'est le nom de la feuille écris en dur. Le "CodeName" n'est pas visible par l'utilisateur et à partir de l'interface développeur, sa correspond à la propriété (Name) de chaque feuille.

Sous Excel VBA on peut indifféremment sélectionner une feuille par :

Code :

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

Sheets("Nom_de_Mon_Onglet").Select

ou

Feuil1.Select

L'avantage d'utiliser le "CodeName", c'est que si on utilisateur à l'idée de renommer l'onglet, ma macro trouvera quand même le "CodeName" Feuil1 !!

Mon problème est que cette commande que j'utilise pourtant à foison, ne marche plus lorsque que travail sur un autre Workbook que celui qui exécute ma macro ....


Ainsi :

Code :

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

1
2
3
 
Workbooks.Open ("C:\Users\.....\Documents\Classeur2.xlsx")
Sheets("Nom_de_Mon_Onglet").Select

ça Marche ...

Code :

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

1
2
3
 
Workbooks.Open ("C:\Users\.....\Documents\Classeur2.xlsx")
Feuil1.Select

Me renvoie une erreur :
Erreur d'exécution '1004':
La méthode 'Select' de l'objet '_Workshhet' a échoué

... J'ai essayé toute les combinaison possible :-/
ActiveWorkbook.Feuil1.Select
Worksheets(Feuil1.Name).Select

Bref ... je sais plus quoi inventer ...
Si quelqu'un a une idée !!
Merci.

[Menhir]

Quel message s'inscrit dans la fenêtre d'exécution quand tu lances :

Code :

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

1
2
Workbooks.Open ("C:\Users\.....\Documents\Classeur2.xlsx")
Debug.Print Sheets("Nom_de_Mon_Onglet").CodeName

[Invité]

Salut,

Tu peux regarder ici:
http://www.developpez.net/forums/d15...ersonnal-xlsb/

@+

[Wire.Less]

"Feuil1" !!!
Et si je fais

Code :

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

Debug.Print Feuil1.Name

j'obtiens le "Name" de l'onglet de la feuille qui exécute la macro !! pas de l'ActiveWorkbook que je viens d'ouvrir avec mon Workbooks.Open

:'-(

Quel message s'inscrit dans la fenêtre d'exécution quand tu lances :

Code :

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

1
2
Workbooks.Open ("C:\Users\.....\Documents\Classeur2.xlsx")
Debug.Print Sheets("Nom_de_Mon_Onglet").CodeName

[Invité]

Tu répond à qui ? A Menhir ou à moi ?

[Wire.Less]

Tu répond à qui ? A Menhir ou à moi ?

Je suis en train de lire ta réponse dsl. Je répondais à Menhir.

Dons, dans le liens que tu m'as transmis on voit que ...
par exemple on peut désigner "l'autre feuille" par son nom de projet ... ok , je m'y plonge et j'essai d'appliquer cette méthode ... des que j'aurais compris ce qu'est mon nom de projet et comment l'utiliser :-/

[Invité]

Tu n'as pas à être désolé, c'est surtout pour savoir à qui tu répond, sinon, on comprend rien aux réponses.

[Marc-L]

Bonjour, bonjour !

De toute manière, le CodeName ne s'applique directement qu'au classeur contenant le code !

Pour utiliser le CodeName d'une feuille d'un classeur autre que ThisWorkbook,
il faut boucler sur les feuilles de cet autre classeur pour lire leur CodeName afin de définir
une variable de type Worksheet pointant sur la feuille désirée comme cette fonction :

Code :

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

1
2
3
4
5
6
Function GetSheetByCode(Wb As Workbook, CODE$) As Worksheet
         Dim Ws As Worksheet
    For Each Ws In Wb.Worksheets
          If Ws.CodeName = CODE Then Set GetSheetByCode = Ws: Exit For
    Next
End Function

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Invité]

C'est effectivement une autre solution (qui ressemble à http://www.cpearson.com/excel/RenameProblems.aspx). Les 2 fonctionnent.

[Marc-L]

Ton lien cherche dans le classeur contenant le code, donc ThisWorkbook,
ce qui est un peu idiot pour un CodeName fonctionnant directement justement avec ThisWorkbook !

[Wire.Less]

Bonjour, bonjour !

De toute manière, le CodeName ne s'applique directement qu'au classeur contenant le code !

Pour utiliser le CodeName d'une feuille d'un classeur autre que ThisWorkbook,
il faut boucler sur les feuilles de cet autre classeur pour lire leur CodeName afin de définir
une variable de type Worksheet pointant sur la feuille désirée comme cette fonction :

Code :

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

1
2
3
4
5
6
Function GetSheetByCode(Wb As Workbook, CODE$) As Worksheet
         Dim Ws As Worksheet
    For Each Ws In Wb.Worksheets
          If Ws.CodeName = CODE Then Set GetSheetByCode = Ws: Exit For
    Next
End Function

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

Merci tout le monde !!
La réponse est donc : "On ne peut pas" désigner une feuille appartenant à un autre classeur que ThisWorbook par son CodeName ...
Il faut donc faire tourner la "moulinette" donné par Marc-L pour identifier le Name et faire référence à la feuille par son Name.
Merci merci merci tout le monde. Je clôture le sujet.

[Invité]

Salut,

Ben je t'ai répondu que si.

Cependant, la fonction de Marc-L est préférable car moins restrictive. Elle n'oblige pas à référencer le projet.
Le classeur B n'est pas pris en référence par le classeur A et les erreurs interviennent en cours d'exécution (Run Time) par exemple si l'indice de la feuille n'existe pas. Avec l'autre solution, les erreurs interviennent en cours de conception (Design Time) ou en cours de compilation (Compile Time) si le projet est compilé. Ce sont 2 techniques différentes.

Il n'y a absolument aucune raison de le faire, mais juste pour l'exemple, si tu devais mettre un (Custom) Event dans la Feuil de ton classeur A, tu ne pourrait pas utiliser WithEvents par exemple pour récupérer les événements déclenché par le classeur A car ce type de technique demande un typage fort pour fonctionner.

Classeur A:

Code :

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

1
2
3
4
5
 
Public Event CustomActivate()
Private Sub Worksheet_Activate()
    RaiseEvent CustomActivate
End Sub

Classeur B:

Code :

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

1
2
3
4
5
6
7
8
 
Private WithEvents Feuil As VBAProject2.Feuil1
Private Sub Workbook_Open()
    Set Feuil = VBAProject2.Feuil1
End Sub
Private Sub Feuil_CustomActivate()
    MsgBox "Custom Event déclenché."
End Sub