code pour un Userform

Bonjour le forum,
Dans mon classeur j'ai deux Userform:USF1 qui s'ouvre à l'ouverture du classeur,USF2 à sa fermeture et dure 2 secondes avant de disparaître.Mon problème est le suivant:
J'ai placé un commandbutton "Quitter" dans USF1 pour fermer le classeur avec le code

Code:

---

ActiveWorkbook.Close

---

Ceci a pour effet de figer USF2 et le classeur ne se ferme pas.
Dans ThisWorkbook j'ai mis

Code:

---

1 2 3 4

Private Sub Workbook_BeforeClose(Cancel As Boolean) USF2.Show Application.Wait Now + TimeValue("00:00:02") End Sub

---

Merci d'avance

Hello,

Sans conviction, dans le code du bouton "Quitter" essaie comme ceci..

Code:

---

1 2 3

Unload USF2 ActiveWorkbook.Close

---

Voir même ceci..

Code:

---

1 2 3

ActiveWorkbook.Close Unload USF2

---

Bonne nuit à tous !

Antoniom.

Grand Merci Antoniom
Le premier code marche à merveille...vraiment très cool de ta part
Bonne continuation :ccool:

je t'avais donné la réponse dans cette discussion --> http://www.developpez.net/forums/d98...format-msgbox/

A l'ouverture du Userform, il faut désactiver le mode Modal pour que la procédure puisse continuer, d'où le paramètre 0

Code:

---

1 2 3 4

Private Sub Workbook_BeforeClose(Cancel As Boolean) USF2.Show 0 Application.Wait Now + TimeValue("00:00:02") End Sub

---