Récupérer nom d'onglet à partir du nom système

Bonjour,

Question qui peut paraitre simple mais sur laquelle je bloque :

Je souhaite génèrer la doc d'un application Excel en automatique.
Je balaye donc l'ensemble des "module" comme ceci :

Code:

---

1 2 3 4 5

For Each v In ActiveWorkbook.VBProject.VBComponents Set VBCodeModule = v.CodeModule Feuille.Range("A" & Ln).Value = VBCodeModule.Name Next

---

Pour les feuilles de calcul, je récupère donc "Feuil1", "Feuil2", ...
Je souhaiterai indiquer à la place le nom de l'onglet.
Quelle est la propriété qui me permet de le récupérer ?

Cdt, NC

Bonjour,

les modules possèdent un panel de propriétés, accessibles par la "propriété" .Properties

Ici, on test si c'est un module Objet Excel (Type = 100),c'est à dire pas un Userform/Module Standard/Module de classe, et on exclut le module Thisworkbook
Et enfin, on affiche le Name des feuilles, au lieu de leur CodeName

Code:

---

1 2 3

For Each v In ActiveWorkbook.VBProject.VBComponents If v.Type = 100 And v.Name <> "ThisWorkbook" Then Debug.Print v.Properties("Name") Next v

---

Merci pour cette réponse aussi rapide qu'efficace.
Je n'avais rien trouvé dans l'aide d'Excel.
Et pas complètement mon bonheur sur developpez.com.