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.

[Jean-Philippe André]

bonjour tout le monde,
petite question autour de ce Application.Run :
dans la partie d'envoi des paramètres, si je connais le nombre de paramètres passés, pas de pb.
Maintenant, dans mon cas, si je balance en paramètres d'entrée ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub LancementMacro(NomMacro As String, ListeParametres As String)
'les parametres sont séparés par des pipes |
Dim a As Variant
'test par le split
a = Split(ListeParametres, "|")
Debug.Print """" & Replace(ListeParametres, "|", """, """) & """"
'Application.Run NomMacro, a 'plante : normal ?
 
End Sub
 
 
Function test(pioupi1 As String, pioupi2 As String, pioupi3 As String, pioupi4 As String, pioupi5 As String)
    Debug.Print pioupi1 & pioupi2
 
End Function
 
Sub test1()
LancementMacro "test", "1|2|3|5|7"
End Sub

Comment puis-je transformer la liste de paramètres sous forme texte en argument ?
y a -t-il une méthode via une boucle for et un ubound ou alors une suite de "_ &" à concaténer dans un tableau ?

Merci pour vos idées.

[tirex28]

Bonsoir,

'Application.Run NomMacro, a 'plante : normal ?

Oui. a est un tableau, meme s'il comporte plusieurs elements ceux-ci sont considérés comme un seul argument par l'instruction Run. L'appel de la fonction ne correspond donc pas a sa définition. Une solution simple mais un peu lourde:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Select Case UBound(a)
    Case 0 '1 argument
        Application.Run NomMacro, a(0)
    Case 1
        Application.Run NomMacro, a(0), a(1)
    Case 2
        Application.Run NomMacro, a(0), a(1), a(2)
    Case 3
        Application.Run NomMacro, a(0), a(1), a(2), a(3)
    Case 4
        Application.Run NomMacro, a(0), a(1), a(2), a(3), a(4) 
End Select

Cordialement,

Tirex28/

[Jean-Philippe André]

salut,
certes, j'avais déjà pensé à cette solution, mais si j'ai 30 paramètres (limite d'application.run) ben je suis b**** (am i famous ? )

[wilfried_42]

bonjour à tous

à l'aide d'un objet collection ca fonctionne

Code :

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

1
2
3
4
5
Sub test(param As Collection)
    For i = 1 To param.Count
        MsgBox param.Item(i)
    Next i
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
Sub envoi()
    Dim gw As Collection
    Set gw = New Collection
    For i = 1 To 50
        gw.Add "Essai : " & i
    Next i
    Call test(gw)
    Set gw = Nothing
End Sub

Bonne journée

[Jean-Philippe André]

salut wilfried,
j'avoue que ca me soule de dire ca, mais ca m'a pas fait avancer, dans le sens ou je suis bloqué sur la syntaxe derriere de

Code :

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

Application.Run NomFonction, Listeparametres

si je passe Listeparametres en tant que collection, ca me jette avec un "argument non facultatif". Même punition avec le passage d'une chaine de caracteres issues de Listeparametres.

Ci-dessous, les deux codes qui "plantent". :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub LancementMacro(NomMacro As String, ListeParametres As Collection)
 
Application.Run NomMacro, ListeParametres
 
End Sub
 
Function test(pioupi As String, pioupi2 As String, pioupi3 As String, pioupi4 As String, pioupi5 As String)
    Debug.Print pioupi & pioupi2
End Function
 
Sub envoi()
    Dim gw As Collection
    Set gw = New Collection
    For i = 1 To 5
        gw.Add "Essai : " & i
    Next i
    LancementMacro "test", gw
    Set gw = Nothing
End Sub

et

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Sub LancementMacro(NomMacro As String, ListeParametres As Collection)
'les parametres sont séparés par des pipes |
Dim a As Variant
Dim i As Integer
a = ListeParametres(1)
For i = 2 To ListeParametres.Count
a = a & "," & ListeParametres(i)
Next i
 
Application.Run NomMacro, a
 
End Sub
 
 
Function test(pioupi As String, pioupi2 As String, pioupi3 As String, pioupi4 As String, pioupi5 As String)
    Debug.Print pioupi & pioupi2
End Function
 
Sub envoi()
    Dim gw As Collection
    Set gw = New Collection
    For i = 1 To 5
        gw.Add "Essai : " & i
    Next i
    LancementMacro "test", gw
    Set gw = Nothing
End Sub

Je suis pas fier de mon code, mais j'en suis là pour le moment... Des idées ?

[tirex28]

Bonsoir,

Ca peut t'inspirer:

Code :

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

1
2
3
4
5
6
7
Sub test()
    CallByName Application, "Run", VbMethod, "'Lancer 1,2'"
End Sub
 
Sub Lancer(NumOne As Long, NumTwo As Long)
    MsgBox NumOne + NumTwo
End Sub

Cordialement,

Tirex28/

[ouskel'n'or]

tu as essayé de déclarer la collection en public ?
A tout hasard
A la réflexion, je doute que ça change quelque chose mais bon...

[wilfried_42]

re:

Pour ma part, je ne pense pas que l'on puisse faire ce que tu cherches à faire, avec une fonction...
Un fonction permet de renvoyer une valeur par l'intermediaire de son propre nom : Resultat = mafonction(parmetres)

Le but de passer pas un objet collection, est en fait de ne pas passer les parametres en les nommant un a un

Code :

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

1
2
3
4
5
6
function mafonction( variable as collection) as double
dim i as integer
for i = 1 to variable.count
mafonction = mafonction + variable.item(i)
next i
end function

maintenant si tu veux utiliser des fonctions à toi pour de multiples classeurs, ecrit les dans un classeur, en enregistre les en XLA


Edition : Oups, une ligne n'etait pas prise dans l'encadrement

[Jean-Philippe André]

salut les gens,
bon je sens que je vais arrêter de vouloir faire la fonction top mega évolutive.
tirex, ton code ne marche pas chez moi, il me sort une erreur 2517, "définie par l'application ou par l'objet."

Je vais passer par le systeme de collection ou de split,et faire un select case du nom de ma macro.

[wilfried_42]

re:

Si tu veux passer à une macro ou une fonction, un nombre aleatoire de parametre, tu ne peux dans ton sub ou function, definir un nombre fixe de variables

tu as 2 solutions, soit tu passes par des cellules avec une plage nommée evolutive, soit avec un objet collection

Code :

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

1
2
3
4
5
6
resultat = mafonction(mapagle)
Function mafonction(maplage as range) as variant
    dim i as long
    i = maplage.cells.count
    mafonction = i
end function

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub monsub()
dim ma_coll as collection, i as integer
set ma_coll = new collection
for i = 1 to int(50 * rnd) +1 ' Nombre aleatoire de parametres
    ma_coll.add (i * 10)
next i
call test(ma_coll)
end sub
 
Sub test(ma_coll as collection)
dim i as integer
for i = 1 to ma_coll.count
msgbox "Essai : " & ma_coll.item(i)
next i
end sub

Bonne journée

[Jean-Philippe André]

merci wilfried, je vais voir ce dont je vais vraiment avoir besoin, histoire d'arrêter de psykoter pour rien

[tirex28]

Bonjour a tous,

tirex, ton code ne marche pas chez moi, il me sort une erreur 2517, "définie par l'application ou par l'objet."

Peut etre une erreur dans la construction de la chaine de caractere, verifie que tu as bien les ' avant le nom de le macro et apres le dernier parametre, normalement ca doit rouler.

Si tu veux lancer une macro d'un autre classeur:

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
    CallByName Application, "Run", VbMethod, _
        "'NomClasseur.xls'!'Lancer 1,2'"
End Sub

'Dans un classeur nommé NomClasseur
Sub Lancer(NumOne As Long, NumTwo As Long)
    MsgBox NumOne + NumTwo
End Sub

Cordialement,

Tirex28/

[Papy Turbo]

Bonjour, et merci aux contributeurs de cette rubrique, notamment à ouskel'n'or pour son résumé en tête

Je me permets juste de réveiller ce vieux sujet parce que je viens de galérer pendant + de 30 minutes avec une ligne de commande 'Application.Run ...' qui ne déclenche aucune erreur mais qui n'exécute pas la macro !

Tout le problème tenait dans les ' (guillemets simples) autour du nom de fichier. Le nom du classeur externe contenant la macro à exécuter ne contient pas d'espace, mais des caractères spéciaux comme "-" ou "_".

Si un modo avait le temps de faire une petite mise à jour de la FAQ (http://excel.developpez.com/faq/index.php?page=VBA#Run), en ajoutant juste :

Code :

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

Result = Application.Run("'calcul.xls'!Log10", 1.2)

Précaution : il est vivement conseillé de mettre toujours le nom du classeur entre guillemets simples (la macro peut ne pas s'exécuter et il n'y a aucun message d'erreur)