Discussion :

[Superpat9999]

Bonjour,
J'ai ce code qui fonctionne parfaitement :

Code :

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

1
2
3
    For Each oMod In ThisWorkbook.VBProject.VBComponents
        If oMod.CodeModule = NomModule Then
            ...

Je ne souhaite plus parcourir tous les modules puisque je connais le nom de mon module dans la variable NomModule.
Comment supprimer la boucle par un appel direct à mon module ?
Merci de votre aide

[joe.levrai]

Bonjour,

pour pointer un module particulier via son nom, un exemple

Code :

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

1
2
Dim LeModule As VBComponent
Set LeModule = ThisWorkbook.VBProject.VBComponents("Module5")

[Superpat9999]

Merci beaucoup joe.levrai, cela fonctionne parfaitement