Macro qui lance une macro

Bonjour,

D'abitude, aucun probleme avec ceci:

Code:

---

1 2 3 4

Fichier = "Fichier.xls" MacName = Fichier & "!SuperMac" Workbooks(Fichier).Activate Application.Run MacName

---

Je vais lancer la macro SuperMac dans le "Fichier" (different).

D'habitude, pas de probleme.

Sauf que la, j'ai "Runtime Error 1004, the macro Fichier.xls!SuperMac can't be found". Bon, il ment, elle existe:

Code:

---

Sub SuperMac(a As Integer)

---

Il faut visiblement le parametre a (0 supposons), j'ai essaye:

Code:

---

1 2 3 4

Fichier = "Fichier.xls" MacName = Fichier & "!SuperMac(0)" Workbooks(Fichier).Activate Application.Run MacName

---

Pareil...

Une idee?

bonsoir,

ton fichier macro "supermac" comment est-il ouvert ?

Hello, il est ouvert en lecture ecriture, pas de pb de ce cote la.

Le parametre a de la macro SuperMac, c'est un parametre que le developpeur a mis rien que pour m'emmerder: il ne sert pas dans la macro...

Evidemment, je ne peux pas (dans le sens "pas le droit") modifier la macro SuperMac (sinon, si je vire a As Integer ca marche).

J'ajoute que cette macro SuperMac est declanchable par le clic sur un bouton dans le fichier Fichier.xls qui execute une private sub On click qui fait un call Supermac(0)...

et ta macro est "privée" quan tu fais cela :

Code:

---

call Supermac(0)

---

dans ton code ..?

Bonjour.

Essaie comme cela

Code:

---

Application.run Macname,0

---

Si le classeur contenant la macro est ouvert dans la même application.
Bon courage,

PGZ

Voir cette FAQ:
http://excel.developpez.com/faq/?page=VBA#Run

PS: et le concepteur n'a pas mis ce paramètre pour "t'emmerder", mais pour rendre le lancement de la macro impossible à partir du menu "Outils"->"Macros". ;)

Je reprends la structure:

Fichier du developpeur
Dans la sheet1, une macro se lance qand on clique sur un bouton

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() ActiveSheet.Calculate Call MacCalc(1) End Sub

---

Dans un module

Code:

---

1 2 3

Sub MacCalc(a As Integer) ... End Sub

---

Notes que ce n'est pas une fonction, je ne peux donc pas stocker le resultat de la macro MacCalc dans une variable comme propose dans la FAQ. Oui le developpeur fait ca pour "cacher" la macro mais aussi pour faire chier tout le monde (de son propre aveu). Certes, j'aurai la solution de dupliquer son fichier, d'enlever son parametre mais je raterai la moindre update du fichier. Donc je dois lancer la macro.

Donc de mon fichier, pour ce genre de truc, j'emploie:

Code:

---

1 2 3

MacName = Fichier & "!MacCalc" Workbooks(Fichier).Activate Application.Run MacName

---

Quand il n'y a pas de parametre, evidemment ca marche. J'ai essaye toutes les solutions proposees, cela ne marche pas: Call ne marche pas avec une macro en dehors du classeur courant,

Code:

---

1 2 3

MacName = Fichier & "!MacCalc" Workbooks(Fichier).Activate Application.Run(MacName,1)

---

->"expected: =", le probleme c'est que cette macro ne renvoie pas une valeur... Si je lui mets:

Code:

---

1 2 3

MacName = Fichier & "!MacCalc" Workbooks(Fichier).Activate tets=Application.Run(MacName,1)

---

->"the macro... can't be found" et puis comme dis, c'est pas une fonction donc pas cense renvoyer une valeur stockable.

Code:

---

1 2 3

MacName = Fichier & "!MacCalc" Workbooks(Fichier).Activate Application.Run MacName,1

---

->"the macro... can't be found"

J'ai eu l'idee de plutot lancer la macro CommandButton1_Click le probleme c'est que c'est une Private Sub...

En gros, je m'en sors pas...

Et ça ça donne quoi? (sans activer l'autre classeur donc)

Code:

---

1 2	MacName = Fichier & "!MacCalc" Application.Run MacName,1

---

Pareil... C'est a dire "macro not found"

Et bien sur si j'enleve le "a as integer" ca marche, mais je peux pas modifier la macro du developpeur (je l'ai fait pour voir si j'avaias pas une erreur stupide quelque part).

Donc le probleme, et je trouve des references que pour des fonctions malheureusement, est de lancer une macro avec des arguments dans un autre classeur...

A tout hasard:

Code:

---

1 2 3

MacName = Fichier & "!MacCalc" Workbooks(Fichier).Activate Application.Run MacName,1%

---

lol, merci de ton aide au passage...

Le "%", il me l'efface une fois la ligne validee, en mettant des parentheses, j'ai le "expected: =", et en lui mettant le "=", "macro not found"...

Bon, autre piste: comment as-tu déclaré MacName?

Code:

---

1 2	Dim MacName As String Dim Fichier As String

---

Dernière possibilité qui me vienne à la tête, sinon je ne vois pas. Essaye de mettre autre chose que 0 ou 1 comme argument: 2 par exemple.

J'abandonne, je travaille sur une copie du fichier a mes risques et perils, j'ai vire l'argument et ca marche maintenant...

Merci pour votre aide a tous...

Espère toujours que quelqu'un trouve la solution à ta réponse. ;)

Ouais mais si tu regardes la litterature sur internet, les lancement de macros d'autres classeurs avec arguments, tu ne trouves que des exemples avec des fonctions...

Je commence a me demander si c'est possible pour un sub,...

Eh bien ça marche sans arguments, mais peut-être qu'il y a le truc qu'on pouvait pas deviner lorsqu'on y met des arguments.

Demande toujours au support microsoft si tu trouves rien: on sait jamais...

Tiens on va essayer le support MS, par pur curiosite, j'ai fait autrement.