Discussion :

[canard338]

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 :

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

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

[joe.levrai]

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 :

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

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

[canard338]

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.