Feuille

Comment désigner une feuille excel par son codename

Résolu

wire less -

Bonjour,
Désigner une feuille excel par son codename, c'est parfois très facile !

Ainsi, au lieu d'écrire, Sheets("Nom_de_mon_onglet").Activate
on a qu'à écrire par exemple Feuil1.Activate

C'est super ... mais voila ...
quand on ouvre un second classeur par exemple avec la commande
Workbooks.Open("c:\Mes_Documents\...\Mon_Doc.xls")

et que l'on veut activer la nouvelle feuille 1 avec "Feuil1.Activate" ben ... la méthode n'est plus accepté !!

Quelqu'un aurait une idée ???

Afficher la suite

5 réponses

Réponse 1 / 5
cs_Le Pivert Contributeur
Bonjour,

Toujours avec le code Name!
```
Option Explicit
Private Sub CommandButton1_Click()
  Dim wsh As Worksheet
Workbooks.Open ("C:\Users\.....\Documents\Classeur2.xlsx")
'boucle sur toutes les feuilles
 For Each wsh In ActiveWorkbook.Worksheets ' pour chaque feuille du classeur
       MsgBox wsh.Name 
  Next 'on passe à la feuille suivante
'feuille active
MsgBox ActiveSheet.Name
End Sub
```
1
1. wire less Auteur
  
  Merci CS_Le Pivert.
  Mais il s'agit bien d'une confusion ... et j'essai justement de la résoudre.
  
  Si je reprend ton script et que je le complète avec ce dont j'ai besoin :
  
  For Each wsh In ActiveWorkbook.Worksheets MsgBox wsh.Name MsgBox wsh.CodeName Next
  
  Alors tu te rendra compte que chaque feuille possède un "Name" : c'est le nom de l'onglet écris sur l'onglet Excel, et un CodeName. Le CodeName c'est le vrai nom de l'objet feuille.
  
  J'ai besoin du CodeName parce qu'il est écris en dur et que l'utilisateur ne peut pas le modifier simplement en cliquant-droit sur l'onglet et en le renommant. Ainsi, pas de possibilité d'erreur pour mon script.
  
  Malheureusement, il est facile d'appeler un CodeName sur l'instance d'excel à l'origine de la macro ... (Feuil1.Select ou lieu de Sheets("Nom_de_Mon_Onglet").Select
  Mais lorsqu'il s'agit d'une autre feuille Excel ... ben c'est plus la même chose !!
  
  Si je fait :
  
  Workbooks.Open ("C:\Users\.....\Documents\Classeur2.xlsx") Sheets("Nom_de_Mon_Onglet").Select
  
  ça marche.
  
  Workbooks.Open ("C:\Users\.....\Documents\Classeur2.xlsx") Feuil1.Select
  
  J'ai une erreur :
  Erreur d'exécution '1004':
  La méthode 'Select' de l'objet '_Workshhet' a échoué
  
  ...
  
  Quelqu'un aurait une idée ??
  
  1
2. cs_Le Pivert Contributeur
  
  Alors tu te rendra compte que chaque feuille possède un "Name" : c'est le nom de l'onglet écris sur l'onglet Excel, et un CodeName. Le CodeName c'est le vrai nom de l'objet feuille.
  
  Quand tu écris cela tu plaisantes, car juste au dessus il y a le code que je t'ai donné avec ceci:
  
  MsgBox wsh.Name
  MsgBox wsh.CodeName
  
  Avec toi c'est un dialogue de sourd. Cela fait longtemmts que je connais la différence. C'est même moi dans un précédent post qui t'ai donné le lien sur la propriété des feuilles!
  
  -1
3. wire less Auteur
  
  :-/ ... t'énerve pas ...
  
  MsgBox wsh.CodeName
  
  Il me semble que c'est moi qui l'ai écris ... toi tu n'as fait référence qu'à
  
  MsgBox wsh.Name
  
  Mon problème reste le même.
  Dans ma feuille je ne connais que mon "CodeName" ... et pas mon "Name".
  
  Le "CodeName" en question c'est "Feuil1". Si je veux connaitre le "Name" associé je n'ai qu'à faire :
  MsgBox Feuil1.Name
  
  Je reviens à mon problème :
  
  Sheets("Nom_de_Mon_Onglet").Select
  
  ça marche
  
  Feuil4.Select
  
  ça marche pas.
  ou encore :
  Sheets(Feuil1.Name).Select
  
  qui ne marche pas non plus.
  
  Je précise que ces méthodes marchent très bien quand je travail que sur les feuilles de l'excel qui exécute la macro.
  
  J'aurais aimé faire un par exemple ...
  ActiveWorkbook.Worksheets.Feuil1.Select
  
  mais sa ne marche pas non plus ...
  J'ai plus d'idée !
  Merci encore tout le monde !!
  
  0
4. cs_Le Pivert Contributeur
  
  Voilà, si j'ai bien compris:
  
  Dim ws As Worksheet Dim mafeuille Workbooks.Open ("C:\Users\....\Documents\Classeur1.xlsx") For Each ws In Worksheets If ws.CodeName = "Feuil1" Then mafeuille = ws.Name Sheets(mafeuille).Select End If Next ws
  
  0
5. wire less Auteur
  
  @cs_Le Pivert!! Hé hé hé !!
  C'est brillant !!
  Bon ... j'aurais préféré pouvoir sélectionner directement à partir du CodeName comme je le fais d'habitude !! Mais à défaut ... je suis bien content d'avoir un code qui marche :-/
  Alors là, je dis bravo pour l'astuce ! :-D je vais m'en contenter bien volontiers !!
  
  Merci ?ment cs_Le Pivert ...
  Je laisse le sujet ouvert encore cet aprèm au cas ou un autre génie du mal me vienne en aide mais sinon je clôture ce sujet demain matin.
  
  Thank you.
  
  0
Réponse 2 / 5
wire less Auteur
En gros, quelqu'un saurait comment désigner une feuille par son codename sachant que cette feuille appartient à un autre workbook que celui d'execution de la macro :-/ ??
0
Réponse 3 / 5
cs_Le Pivert Contributeur
Tromper de post
0
Réponse 4 / 5
wire less Auteur
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 une "moulinette" 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.
```
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
```
0
Vous n’avez pas trouvé la réponse que vous recherchez ?

La communauté CCM répond en moyenne en moins de 2h.

Posez votre question
Réponse 5 / 5
pijaku Modérateur
Bonjour,

Sans aucuns commentaires :
https://www.developpez.net/forums/d1552048/logiciels/microsoft-office/excel/macros-vba-excel/designer-feuille-codename/
0
1. wire less Auteur
  
  Ben si ?? Fait un commentaire ?? Sans aucuns commentaires c'est déjà un commentaire :-) ??
  
  0
2. cs_Le Pivert Contributeur
  
  Salut pijaku,
  
  surtout que je lui avais donné la solution, le 09 novembre à 13h sur ce post.
  
  @+ Le Pivert
  
  0
3. pijaku Modérateur
  
  @ wire less : si je n'ai pas voulu, initialement, faire de commentaires, c'était juste pour t'amener à réfléchir à la question du pluri-postage d'une même question sur X forums. Donc, à priori, cela ne te dérange pas de faire bosser plusieurs personnes, bénévolement, pour tes soucis.
  
  @ Le Pivert : C'est tout à fait cela. Ce n'est pas la discussion sur CCM qui cloche, mais le fait de :
  - ne pas avoir taggué la discussion sur DVP comme "résolue" dès le 09 à 13h,
  - revenir brandir ici une solution de Marc_L (légèrement différente de la tienne) comme s'il avait lui même trouvé,
  
  0
4. wire less Auteur
  
  Arfff ... vous êtes un peu relou là !! J'ai du mal à vous suivre.
  Je voulais juste fermer la discussion proprement en apportant la réponse !!
  Qu'est ce qu'il y a CS_Le Pivert ?? Je t'ai pas suffisamment remercié ??
  Je voulais juste souligner clairement la réponse.
  Il est inutile de chercher une manière simple et de coder Feuil1.Activate pour un autre Workbook que ThisWorkbook.
  le CodeName est attaché ... au workbook de la macro... pas la peine de chercher à bidouiller un quelconque :
  VBAProjet(FileName1).Feuil1.Name ActiveWorkbook.Windows(FileName1).Sheets(Feuil1.Name) Workbooks.Open(Filename:=fileToOpen(FileName1)).Feuil1.Activate
  
  ... ça va ... moi aussi je me suis cassé le *ul !! J'ai passé du temps en debug à chercher un moyen simple ... je suis allé voir les propriétés des objets ActiveSheet / Worksheets / Workbooks pour essayer de comprendre les propriétés ascendantes et descendantes ...
  
  C'est pas évident. Et il ne me semble que ça mérite d'être bien souligné.
  Je souligne. Il n'existe AUCUN MOYEN de désigner une feuille n'appartenant pas à ThisWorkbook par son CodeName.
  
  Relis ma réponse également du 9 à 13h53 ... je te remercie pour ce que je considéré alors pour une astuce. Je Re souligne donc.
  Il ne s'agit pas d'une astuce.
  Il n'existe AUCUN MOYEN de désigner une feuille n'appartenant pas à ThisWorkbook par son CodeName.
  
  Merci à tous pour votre aide. Merci CS_Le Pivert pour ta diligence et tes multiples réponses.
  
  0

Comment désigner une feuille excel par son codename

5 réponses

Discussions similaires

Newsletters