Excel lire macro Fermé

Question

Bonjour,
Lorsque j'ouvre un classeur, je peux voir ma macro. Mais, je voudrais voir toutes mes macros des autres classeurs Excel et les exécuter si je le veux sans avoir à ouvrir tous les classeurs.
Merci

Polux31 · Answer

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)

Polux31 · Answer

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)

Polux31 · Answer

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)

Polux31 · Answer

De rien et bon courage ...


;o)

Excel lire macro

4 réponses

Discussions similaires