Fermeture d'excel - userform en double emploi

Bonjour à tous,

je voudrais créer un fichier excel où lorsque l'on veut fermer ce dernier une boîte de dialogue à choix multiple apparaît en proposant 4 choix :
- simple consultation (1)
- travaux en cours (2)
- travaux à réviser (3)
- travaux terminés (4)

En fonction du choix, une ou plusieurs macros s'exécutent :
- (1) : fermeture sans sauvegarde
- (2) : impression via un userform
- (3) : ...
- (4) : ...

Pour cela, dans le thisworkbook, j'ai insérer une macro du type :
Private Sub Workbook_BeforeClose

Et j'ai introduit une macro pour ma boite de dialogue.


MON PROBLEME :
en sélectionnant le premier choix, une erreur apparaît :
Erreur d’exécution 400
Feuille déjà affichée, affichage modale impossible

Je pense que en demandant de fermer mon fichier dans le choix 1, Excel veut relancer ma boîte de dialogue via Private Sub, d'où redondance!!
Je ne sais donc pas comment faire pour pouvoir fermer excel sans relancer ma boîte de dialogue pour le choix n°1 et la même chose pour les trois autres choix.

En espérant avoir été clair, merci d'avance

Cordialement

Bonjour,

Essaie en plaçant une sortie de ton userform plutôt

Code:

---

1 2 3 4 5

Private Sub commandbutton1_click() Unload UserForm2 Dim réponse As Long Application.ScreenUpdating = False ......

---

Bonjour,

Si tu es entré dans la procédure Workbook_BeforeClose, c’est que la demande de fermeture du classeur a déjà été faite. Tu n’as donc pas à redemander cette fermeture avec ActiveWorkbook.Close.
Tu peux te contenter de placer une variable booléenne qui indiquera si l’enregistrement du classeur doit être effectué ou non.

Cordialement.

bonjour,

merci gFZT82 de ton aide.
Je viens de faire quelques tests avec tes ajustements c'est parfait, par contre j'aurais voulu intégrer un bouton annuler dans mon userform2 afin que l'on puisse reprendre sa note de travail.
De même au choix n° 4 je voudrais que lorsque le message des saut de page apparaît, s'il l'on clique NON, la macro se stoppe et revienne sur l'onglet E - NT.

j'ai testé plusieurs codes sans succès!!!

Merci d'avance

Cordialement

J’ai intégré un bouton Annuler qui arrête l'opération de fermeture.
Au choix n° 4 lorsque l'on clique NON sur le message "ATTENTION Veuillez Imprimer les notes de travail", la macro stoppe et on revient sur l'onglet E - NT.

Cordialement.

bonjour gFZT82,

Merci pour ton aide.
Cela correspond parfaitement à ce que je voulais faire pour l'instant.

Cordialement
Yannick