Appeler une macro avec paramètres

Bonjour,

Je suis en train d'améliorer une macro excel existante.
Pour le moment j'ai ça :

Code:

---

Application.RUN monNomDeFichier & EXTENSION & "!" & "Module2.MaMacro"

---

Ce qui permet de lancer ma macro de manière correcte.
Le problème c'est que pour éviter d'écrire des valeurs en dur dans la macro, je voudrais passer des chaines de caractères utilisées dans ma macro en paramètre de celle-ci.

J'ai donc modifié l'entete de ma macro de ça :

Code:

---

1 2 3

Sub MaMacro ... End Sub

---

En ça :

Code:

---

1 2 3

Sub MaMacro(Str1 As String, Str2 As String, Str3 As String, Str4 As String, Str5 As String) ... End Sub

---

Le problème est que pour l'appel je ne sais pas comment l'appeler !

J'ai essayé ça :

Code:

---

Application.RUN "" & monNomDeFichier & EXTENSION & "!" & "Module2.MaMacro" & "" & "," & Str1 & "," & ... etc

---

Code:

---

Application.RUN "(" & monNomDeFichier & EXTENSION & "!" & "Module2.MaMacro" & "" & "," & Str1 & "," & ... etc & ")"

---

Code:

---

Application.RUN monNomDeFichier & EXTENSION & "!" & "Module2.MaMacro(" & Str1 & "," & ... etc & ")"

---

Mais ça ne fonctionne pas ! Que faire ?

Merci par avance de vos réponses ou de tous documents ou topics que je pourrais consulter pour me dépanner.

Salut Raptang et le forum
Regard l'aide à Call.
tu peux transmettre des paramètres de différentes manières.
Call maMacro (paramètres)
ou tu peux utiliser des variables globales, ou passer par une feuille de calcul.
A+

Merci de ta réponse. J'ai consulté quelques infos sur Call.
Mais ça ne fonctionne toujours pas car il ne tolère pas les "&".
En gros il attends directement le nom de la macro a appeler alors que la macro a appeler est dans un autre fichier et nécessite le nom du fichier contenant.
D'où le :

Code:

---

monNomDeFichier & EXTENSION & "!" & "Module...

---

Or avec Call il s'attend au passage des paramètres après le premier mot. Il génère une erreur de type :

Citation:

---

Erreur de Compilation
Attendu : fin d'instruction

---

Au niveau du "&" après "monNomDeFichier".

Salut Raptang et le forum
Un dépannage ne permet aucune imprécision

Code:

---

monNomDeFichier & EXTENSION & "!" & "Module...

---

??? c'est quoi exactement ton instruction complète ?
Fais une chose simple : mets un msgbox avec ta construction et vérifie que tu as exactement le résultat attendu. Ce n'est qu'une chaîne de texte. Si le résultat n'est pas bon, Excel ne saura pas l'exploiter. Ou donne-nous la valeur attendue, avec les variables (et leurs contenus sur une donnée). À travailler dans le vide, on avancera pas. Excel ne tolère aucun à-peu-près ! Il lui faut des valeurs exactes.
A+

Il est préférable d'essayer progressivement.
D'abord un appel sans arguments
monNomDeFichier étant du type XXXXXX.xls

Code:

---

1 2 3 4

Ma_Macro = monNomDeFichier & "!" & "Module2.MaMacro1" msgbox Ma_Macro ' Pour vérifier la syntaxe   Application.RUN Ma_Macro

---

Puis avec des arguments

Code:

---

1 2 3 4

Ma_Macro = monNomDeFichier & "!" & "Module2.MaMacro" msgbox Ma_Macro ' Pour vérifier la syntaxe   Application.RUN Ma_Macro, Str1, Str2, Str3

---

Attention il y a MaMacro et MaMacro1 dans le code ci dessus.

Code:

---

1 2 3

Sub MaMacro1 msgbox "Bonjour ici MaMacro1" end sub

---

Code:

---

1 2 3

Sub MaMacro (Arg1, Arg2, Arg3) msgbox ("Bonjour ici MaMacro Arg1 : " & Arg1) end sub

---

PPz

Bonsoir toutes et tous,

Voici un petit exemple avec les commentaires dans le code :

Code:

---

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

Sub Test_Run()   Dim NomFichier As String Dim Extension As String Dim NomModule As String Dim NomMacro As String Dim Arg1 As String Dim Arg2 As Single   NomFichier = "D:\Test Run" Extension = ".xls" NomModule = " Module1" NomMacro = "Test" Arg1 = "Mon argument N°1" Arg2 = 1.2345   '>>> Attention à ne pas oublier les deux apostrophes !!! Application.Run "'" & NomFichier & Extension & "'!" & NomModule & "." & NomMacro, Arg1, Arg2   'si la proc appelée se trouve dans un module standard, il n'est 'alors pas nécessaire de préciser le nom du module et dans ce cas, la 'commande devient : Application.Run "'" & NomFichier & Extension & "'!" & NomMacro, Arg1, Arg2   'par contre, si la proc se trouve dans le module d'une feuille ou du classeur, il est 'nécessaire d'indiquer son nom de la manière suivante : NomModule = "Feuil1" 'ou : NomModule = "Thisworkbook"   Application.Run "'" & NomFichier & Extension & "'!" & NomModule & "." & NomMacro, Arg1, Arg2   End Sub   'cette proc dans un module standard d'un autre classeur '(ici "D:\Test Run.xls") Public Sub Test(Arg1 As String, Arg2 As Single)   MsgBox Arg1 & vbCrLf & Arg2   End Sub

---

Bon courrage.

Hervé.

Excuses moi,
Je ne comprends pas ton dernier post.
Est-ce une question ou une solution ?
- si c'est une question, merci de préciser ce qui ne marche pas
- si c'est une solution, merci d'ajouter Résolu au fil de discussion

Cordialement
PPz