Liste de mes macros

[tf1]

Bonjour

J'ai une fichier excel avec pleins de macros
le souhaite savoir comment faire pour voir on totalité la liste de mes macros et d'imprimer cette liste.
juste la liste des titres des macros sans le contenue de la macro....

Merci

 

[Staple1600]

Re : Liste de mes macros

Bonjour à tous

tf1
Utilises la loupe en haut à droite de ton écran.
tu trouveras de nombreux exemples dans les archives du forum 😉
ou sinon ne jamais oublier de faire un petit tour à la maison mère 😉

 

[MJ13]

Re : Liste de mes macros

Bonjour Tf1, Jean-Marie

Sinon, avec mon petit utilitaire, normalement tu peux avoir la liste des macros. C'est assez facilement adaptable pour les transférer sur une feuille. En plus, tu auras plein de raccourcis pour te servir d'Excel.

https://www.excel-downloads.com/threads/utilitaire-excel-mj-v4.140657/

Il faudra que je vous livre la nouvelle version 🙂.

 

[Staple1600]

Re : Liste de mes macros

Bonjour MJ13

MJ13
Si tf1 utilises correctement la loupe il devrait tomber sur ton utilitaire, non ? 😉

 

[MJ13]

Re : Liste de mes macros

Re

Si tf1 utilises correctement la loupe il devrait tomber sur ton utilitaire, non ?

Franchement, pour le trouver, il est bien caché 🙂.

Mais si il peut faire le code à partir de mon utilitaire ou d'un autre, cela m'intéresse 😉. Je pourrais même le rajouter.

 

[Staple1600]

Re : Liste de mes macros

Re


Et si tf1 a comme moi une inclinaison pour le web anglophone,
il aurait pu tomber sur ce code de Nate Oliver (MVP de son état) 😉

Bref c'est pas les exemples qui manquent ici ou ailleurs 😉
(mais chercher avant de poser une question est de moins en moins dans les mœurs 😉 )

Sub IlsSontFraisMesMaquereaux()
Dim i As Long, MyProc As String
Dim vBcomp As Object
Dim xlApp As Object, xlWb As Object
Set xlApp = GetObject(, "Excel.Application")
Set xlWb = xlApp.Workbooks(1)
For Each vBcomp In xlWb.VBProject.VBComponents
With vBcomp.CodeModule
    For i = 1 To .CountOfLines
    If Not MyProc = .ProcOfLine(i, 0) And _
        Not .ProcOfLine(i, 0) = vbNullString Then
            MyProc = .ProcOfLine(i, 0)
            If Not CBool(InStrB(1, MyProc, "ProcLst")) Then _
            Debug.Print MyProc
        End If
    Next i
End With
Next vBcomp
Set xlWb = Nothing: Set xlApp = Nothing
End Sub

 

[tf1]

Re : Liste de mes macros

merci a tous pour vos réponses

Mais je vois pas de réponse qui me correspond
je veut voir la liste des mes macros tout simplement

merci

 

[DoubleZero]

Re : Liste de mes macros

Bonjour, tf1, Staple1600 🙂, Michel 🙂, le Forum,

A voir, également, le travail de BOISGONTIER, ici.

A bientôt 🙂

 

[MJ13]

Re : Liste de mes macros

Re, Bonjour 00

Pourtant en reprenant le code de JM, ça peux le faire:

Sub IlsSontFraisSesMaquereaux()
 Dim i As Long, MyProc As String
 Dim vBcomp As Object
 Dim xlApp As Object, xlWb As Object
 Set xlApp = GetObject(, "Excel.Application")
 Sheets.Add
 j = 1
 Set xlWb = xlApp.Workbooks(1)
 For Each vBcomp In xlWb.VBProject.VBComponents
 With vBcomp.CodeModule
     For i = 1 To .CountOfLines
     If Not MyProc = .ProcOfLine(i, 0) And _
         Not .ProcOfLine(i, 0) = vbNullString Then
             MyProc = .ProcOfLine(i, 0)
             If Not CBool(InStrB(1, MyProc, "ProcLst")) Then _
             Debug.Print MyProc
             ActiveSheet.Cells(j, 1).Value = MyProc: j = j + 1
         End If
     Next
 End With
 Next vBcomp
 Set xlWb = Nothing: Set xlApp = Nothing
End Sub

 

[tf1]

Re : Liste de mes macros

ok mes sa bloque a cette ligne

For Each vBcomp In xlWb.VBProject.VBComponents

merci

 

[DoubleZero]

Re : Liste de mes macros

Re-bonjour,

... le travail de BOISGONTIER...

... appliqué à un fichier.

Bon courage et à bientôt 🙂

 

[Staple1600]

Re : Liste de mes macros

Re, bonjour 00 😉

Il faut activer le référence idoine dans VBE
(de mémoire Microsoft Visual Basic for Application Extensability)
Edition:ma mémoire n'est plus ce qu'elle était, c'est Extensibility
(tf1: là aussi chercher sur le web pour plus de détails ..., be curious camarade 😉)
et sans doute cocher Faire Confiance au Projet Visual Basic dans Editeurs approuvés
(voir dans Outils/Macros/Sécurité)

Évidemment comme on utilise Debug le résultat s'affichera dans le fenêtre d'Exécution
mais avec la modif de MJ13, on aura le résultat dans une nouvelle feuille. 😉

 

[tf1]

Re : Liste de mes macros

ok merci a tous sa semble marcher

merci merci