Bonjour,

Tout est dans l'intitulé.
Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Tuto_Click()
 
    MsgBox "Merci à Zaza pour cette présentation !", vbInformation, ""
 
    On Error GoTo suite
 
    ThisWorkbook.FollowHyperlink "S:\blabla Tuto.mkv"
    Exit Sub
suite:
    MsgBox "Le support a été déplacé ou supprimé !", vbCritical, "Alerte"
End Sub
Problème : si l'utilisateur clic sur la "petite croix" en haut à droite du Msgbox, le code est exécuté !
La seule chose que j'ai trouvé, c'est ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  MsgBox "Bye ! " & CloseMode
End Sub
... (apparemment) ça ne fonctionne que sur 1 UF

Question : Est-il possible de détecter la fermeture d'1 Msgbox ?

En vous remerciant par avance pour vos lumières,
Cordialement,
jp