Discussion :

[ouskel'n'or]

Même s'il peut être utilisé pour une procédure placée dans le classeur lui même, Application.run est essentiellement utilisé pour exécuter un procédure située dans un autre classeur ouvert.

[VBA – Excel]
Sans paramètre :
Syntaxe :

Code :

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

    Application.Run "Fichier.xls!'LaMacro'"

Exécute la procédure LaMacro située dans le fichier "Fichier.xls"

Ligne de commande placé dans une variable

Code :

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

1
2
    LigneDeCommande = "Fichier.xls! 'LaMacro'"
    Application.Run LigneDeCommande

Avec paramètre :
Syntaxe :

Code :

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

    Application.Run "'Fichier.xls'!LaMacro", "LeParamètre"

Ligne de commande placé dans une variable

Code :

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

1
2
    LigneDeCommande = "Fichier.xls!'LaMacro """ & "LeParamètre" & """'"
    Application.Run LigneDeCommande

Ecrire la ligne de commande dans l'objet ThisWorkbook d'un classeur

Code :

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

1
2
3
4
5
6
7
8
9
Dim NomClasseur$, LeParametre$, NoLigne As Long
    NomClasseur = "UnClasseur.xls" 'Classeur ouvert <> ThisWorkbook.name
    LeParametre = "La donnée"
    With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule 'A adapter
        NoLigne = .CountOfLines
        .InsertLines NoLigne + 1, "Private Sub Workbook_Open()"
        .InsertLines NoLigne + 2, "    Application.Run """ & "'" & NomClasseur & "'!NomDeLaMacro"", """ & LeParametre & """"
        .InsertLines NoLigne + 3, "End sub"
    End With

Correction :
Le nom du fichier contenant la macro lancée par Application.run ne doit pas inclure le chemin

[ouskel'n'or]

Outre les subroutines, Application.run peut être utilisé pour récupérer le résultat d'une fonction

Code :

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

1
2
3
Dim Result As String
    Result = Application.Run("LeClasseur.xls!'Palindrome'", "Elu par cette crapule")
    MsgBox StrReverse(Result)

[SilkyRoad]

bonsoir Ouskel'n'or

Peut-on appeler une macro d'un autre classeur ?


bonne soirée
michel

[ouskel'n'or]

Bonsoir Michel,
En effet mais ce n'est pas la même

Code :

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

1
2
3
4
5
Public Function Palindrome(LeMot) As String
     For i = Len(LeMot) To 1 Step -1
          Palindrome = Palindrome + Mid(LeMot, i, 1)
     Next
End Function

J'ai chercher à "Comment... " pour être bien certain... c'est à "Peut-on..." que j'aurais dû chercher
De même, j'ai cherché dans la FAQ la manière la plus simple d'écrire une procédure par macro mais ne l'ai pas trouvée. Et pourtant je l'ai eu lue.

Mais je réponds à ton "observation" :

bonsoir Ouskel'n'or

Peut-on appeler une macro d'un autre classeur ?

bonne soirée
michel

Oui, mais peut-être le développement des différentes méthodes d'utilisation apporterait-il un plus.

Edit
Pour illustrer mon observation, tu peux toujours jeter un oeil ici

[SilkyRoad]

rebonsoir

Oui, mais peut-être le développement des différentes méthodes d'utilisation apporterait-il un plus.

Oui effectivement.
dans ce cas il y a aussi un article à ce sujet:

http://silkyroad.developpez.com/VBA/...sicEditor/#LVI


bonne soirée
michel

[ouskel'n'or]

Tu as raison.