exit sub qui ne marche pas??

[olive]

Bonjour,

Alors, mon dernier petit probleme avant de terminer ma macro:

Dans une macro, je fais appel a une autre macro, contenu dans un autre classeur.

J'ai un autre probleme concernant les exit sub.

Donc, dans mon classeur 1:
--------------------------
Sub macro1()

mavar = "bonjour"
Workbooks.Open ("c:\testmacro.xls")
Run("testmacro.xls!macro2", mavar) = True

End Sub
--------------------------
et dans mon classeur testmacro, j'ai:
--------------------------

Sub macro2(mavar)

msg = MsgBox(mavar)
Exit Sub

End Sub
--------------------------
Losrque je veux quitter la procedure (avec le exit sub), j'ai une erreur 424: object required.

Pourquoi??

ca marche tres bien si je lance la macro2 toute seule, mais des qu'elle est appellee par une autre, ca plante.

Pouvez-vous m'aider?

merci pour tout!!

 

[teddy]

Bonjour,

La première idée qui me vient à l'esprit 😱)) c'est que quand tu sort de ta macro2 tu es sur ton classeur 2 donc il ne retrouve plus la macro1 qui l'a appelée.
Tu dois resélectionner ton classeur 1 avant de sortir de ta macro.

Essaye je n'ai pas le temps 😱(( (je bosse !!)

@+ Teddy

 

[jmps]

Bonjour olive et teddy,

Je dirais plutôt que le problème se situe sur cette ligne :

Run("testmacro.xls!macro2", mavar) = True

Le "= True" me semble superflu.

Essaye et dis nous.

Bon courage.

José