Arrêt d'une macro par une autre macro ...

[spin]

Bonjour à tous

Comment arrêter une macro automatiquement via une autre macro ?

Je m'explique:
Des utilisateurs peuvent lancer une tâche automatique (macro 1) en appuyant sur un bouton d'un classeur A. Le problème est que je ne souhaite plas que cette macro soit éxécuté. Mais je n'ai pas possibilité de modifier la macro 1 ou même de prévenir les utilsateurs.
En début de macro 1, un classeur B est ouvert automatiquement. J'ai accès à ce classeur B et peux donc y mettre une macro 2. Je souhaite donc à l'ouverture du classeur B lancer la macro 2 (via Sub Workbook_Open() ) qui arrêterait automatiquement la macro 1 puis préviendrait l'utilisateur.

Merci d'avance

 

[wilfried_42]

Re : Arrêt d'une macro par une autre macro ...

bonjour spin

à mon avis, tu ne peux pas arreter une macro à l'aide d'une autre macro, neanmoins, une astuce peut faire ce que tu demandes

Dans le classeur B que tu ouvres avec ta macro, tu à une macro dans workbook_open() dans laquelle tu testes les conditions d'exploitation de ce fichier par ta premiere macro

Et bien si les condition sont bonnes, met un pointeur ok dans ton classeur B qui sera testé par ta macro apres l'ouverture de ce classeur

workbooks.Open filename:=...............................
if workbooks(2).sheets("Continuer").range("A1") <> "Ok" then
msgbox "Arret de la macro, le fichier n'est pas pret"
Workbooks(2).close
exit sub
end if

 

[spin]

Re : Arrêt d'une macro par une autre macro ...

Merci pour ta réponse

Je ne peux pas utiliser cette astuce car je n'ai aucun moyen de modifier la macro1, donc d'y installer un test.

🙁
Spin

 

[tirex28]

Re : Arrêt d'une macro par une autre macro ...

Bonsoir,

A mettre dans le classeur B.

Private Sub Workbook_Open()
    MsgBox "La macro1 du classeur A va s'arreter."
    End
End Sub

Cordialement,

Tirex28/