Excel lire macro

Bonjour,

On peut lancer une macro d'un autre classeur en utilisant la fonction Run

Application.Run("C:\monClasseur.xls!macro1")

Si la macro demande des paramètres d'entrées et renvoie une valeur on peut faire

retour = Application.Run("C:\monClasseur.xls!macro1", 10)

;o)

Voilà comment toutes les macros d'un classeur.

Sub listeMacros()
'Nécessite d'activer la référence
    '"Visual basic For Application Extensibility 5.3"

Dim i As Integer, Ajout As Integer, x As Integer
Dim Msg As String
Dim VBCmp As VBComponent
Dim Wb As Workbook

'Indiquez le nom du classeur (ouvert)
Set Wb = Workbooks.Open("C:\monClasseur.xls")

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

Il suffit de l'adapter un peu pour parcourir l'ensemble des classeurs ...

;o)

Si tu as regardé le lien, c'est un peu ce qu'il propose ^^

Il faut le nommé .XLA et ne contiendra que des macros et pas de feuilles. Je te conseille de bien suivre le tuto.

Il suffit de faire quand tu lances Excel de faire : Outils/Macros Complémentaires, et cochez la case "Mes fonctions personnelles". Ensuite tu les auras à chaque lancement d'Excel sans avoir à refaire la manip.

;o)

De rien et bon courage ...

;o)