Application.Run ne fonctionne pas.

[RO204B]

Bonsoir à tous.

J'ai créé un classeur qui comporte une demande d'exécution de macro dans un second classeur.

Dans le calsseur 1 :
Sub ChangmtAnnée()
'
' [...]
Windows("Classeur 2").Activate
Sheets("XX").Select
Question = MsgBox("Confirmer le changement d'année", vbYesNo)
If Question = 7 Then
Exit Sub
End If
If Question = 6 Then
Application.Run ("ZZZ")
End If
End Sub

Si le choix est 6, la macro Application.Run ("ZZZ") bogue... (mais le choix 7 fonctionne).

Or, la même macro commandée à partir d'une autre macro écrite cette fois dans le classeur 2 s'exécute normalement :

Sub ChangmtAnnée()
'
' Question = MsgBox("Confirmer le changement d'année", vbYesNo)
If Question = 7 Then
Exit Sub
End If
If Question = 6 Then
Application.Run ("ZZZ")
End If
End Sub

Qu'est-ce qui m'échappe ?
Merci d'avance à ceux qui voudront bien m'éclairer.

 

[Staple1600]

Re : Application.Run ne fonctionne pas.

Bonsoir à tous


Pour lancer une macro d'un autre classeur
Sub a()
Application.Run "Classeur2!zzz"
End Sub

Si le classeur est enregistré ajouter l'extension.