Discussion :

[julius999]

Bonjour,

J'ai créé une trentaine de macro différentes qui doivent rester indépendantes les une des autres.
à la fin de chacune d'elle j'ai demandé qu'il apparaisse un message indiquant que tout était terminé.

maintenant je voudrais créer une ultime macro pour faire tourner les 30 à la suite.

Code :

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

1
2
3
4
 
Application.DisplayAlerts = False
Application.Run "blabla.xls'!macro1"
Application.Run "blabla.xls'!macro2"

Je voudrais que cette macro valide automatiquement les messages box. Mais voilà, dans mes recherches je n'ai trouvé que

Code :

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

Application.DisplayAlerts = False

qui n'est pas le bon code

[jfontaine]

Bonjour,


Le code suivant bloque uniquement les messages d'excel tel que confirmation de sauvegarde

Code :

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

Application.DisplayAlerts = False

Pour ton cas, il va falloir faire une adaptation de ton code pour que le message n'apparraisse que si lancement unitaire

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1(Message As Boolean)
 
'Code de la macro
 
 
If Message = True Then
    MsgBox "mon message"
End If
 
End Sub

Et pour le lancement de la macro

Unitaire :

Code :

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

Macro1 True

Global :

Code :

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

1
2
Macro1 False
Macro2 False