Discussion :

[mobiclick]

Bonjour le forum,
Je cherche comment mettre en forme un MsgBox ( au format très basique )à la fermeture de mon classeur Excel,mais selon de nombreux forums cela est impossible à priori.Parcontre,il existe une alternative :il s'agit de mettre un userform.show à la fermeture de ce classeur (je pourrais agrémenter mon userform -qui fait office de msgbox-autant que je le souhaite).Jusquelà c'est ok...mais je voudrais pouvoir fermer mon classeur sans être obligé de cliquer sur la croix rouge de l'userform.Par exemple un userform qui disparait en 2 secondes.

Merci d'avance
PS: Je reste ouvert à toute proposition,notament si vous avez une idée sur la mise en forme d'un MsgBox.

[fring]

Bonjour,

Pour afficher un Userform durant 2 secondes à la fermeture du classeur, tu peux procéder comme ceci :

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)
UserForm1.Show 0
Application.Wait Now + TimeValue("00:00:02")
End Sub

Tu peux aussi afficher une simple Msgbox durant 2 secondes

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
CreateObject("Wscript.shell").Popup "Texte de la Msgbox", 2, "Titre de la Msgbox"
End Sub

[mobiclick]

Re-Bonjour le forum,
Merci pour la réponse ...J'ai testé et c'est formidable