liste des macros presentes dans un classeur

[kiorys]

salut le forum,

il y a qq tps, j'avais trouvé sur ce site une macro qui permettait d'afficher sur une feuille Xcel la liste de toutes les macros presentes dans tous les classeurs Xcel ouverts avec le detail du module dans lesquelles elles se trouvent.

qq'un pourrait me dire ou trouver cette macro ?

merci

Kiorys

 

[MichelXld]

Re : liste des macros presentes dans un classeur

bonsoir

j'espere que cet exemple répondra à ta demande

Sub listeMacros()
'necessite d'activer la reference Visual basic For Application Extensibility 5.3
Dim i As Integer, Ajout As Integer
Dim Msg As String
Dim VBCmp As VBComponent
Dim x As Integer

Ajout = 1

For Each VBCmp In ThisWorkbook.VBProject.VBComponents
    Msg = VBCmp.Name
    With Cells(Ajout, 1)
        .Interior.ColorIndex = 6
        .Value = Msg
    End With
    x = ThisWorkbook.VBProject.VBComponents(Msg).codemodule.CountOfLines
    
        For i = 1 To x
        Cells(Ajout + i, 1) = _
             ThisWorkbook.VBProject.VBComponents(Msg).codemodule.Lines(i, 1)
        Next
    
    Ajout = Ajout + x + 2
Next VBCmp
End Sub

bonne soiree
Ce lien n'existe plus

 

[Kobaya]

Re : liste des macros presentes dans un classeur

salut MichelXLD,

ton code m'interesse aussi, mais ca fonctionne pas chez moi. vbComponent n'est pas reconnu...
il faut cocher une reference particuliere ?

 

[kiorys]

Re : liste des macros presentes dans un classeur

salut MichelXLD

comment fait-on pour activer la reference Visual basic For Application Extensibility 5.3 ?

merci pour ta reponse

 

[MichelXld]

Re : liste des macros presentes dans un classeur

rebonsoir

Dans l'eidteur de macros :
Menu Outils
References
Cochez la ligne "Microsoft Visual basic For Application Extensibility 5.3"
Cliquez sur OK pour valider


bonne soiree
Ce lien n'existe plus

 

[Kobaya]

Re : liste des macros presentes dans un classeur

oooops! quel étourdi!

j'avais pas lu ton commentaire....

merci !

 

[kiorys]

Re : liste des macros presentes dans un classeur

merci MichelXld.
excellent ce petit code..