Discussion :

[mobiclick]

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 :

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

ActiveWorkbook.Close

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

Code :

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

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

[Antoniom]

Hello,

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

Code :

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

1
2
3
 
Unload USF2
ActiveWorkbook.Close

Voir même ceci..

Code :

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

1
2
3
 
ActiveWorkbook.Close
Unload USF2

Bonne nuit à tous !

Antoniom.

[mobiclick]

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

[fring]

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 :

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

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