Discussion :

[Lameth]

Bonjour,

D'abitude, aucun probleme avec ceci:

Code :

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

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 :

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

Sub SuperMac(a As Integer)

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

Code :

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

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

Pareil...

Une idee?

[JackOuYA]

bonsoir,

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

[Lameth]

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).

[Lameth]

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)...

[JackOuYA]

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

Code :

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

call Supermac(0)

dans ton code ..?

[pgz]

Bonjour.

Essaie comme cela

Code :

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

Application.run Macname,0

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

PGZ