Quitter Excel via un userform qui s'affiche a la fermeture du fichier et av

Bonjour

Encore besoin de vous

J'ai créer un userform qui doit s'ouvrir quand on veut fermer le classeur avec deux choix possible soit envoyer un mail et fermer enregistrer soit fermer directement le fichier

Je n'arrive pas définir le code.

Pour envoyer le mail avec le bouton oui qui ouvrer Outlook ferme le fichier et sauvegarde :

Private Sub CommandButton1_Click()
Dim ol As Object, MonMail As Object
DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set MonMail = ol.CreateItem(olMailItem)
MonMail.To = "bibiche/brun@xx.fr"
MonMail.Subject = "Engagement à faire"
MonMail.Body = "BDC AJOUTER MERCI DE FAIRE ENGAGEMENT"
MonMail.display
Set ol = Nothing
Unload UserForm3
End Sub

Mais je bloque sur l'affichage de l'userform et le bouton NON qui doit fermer le classeur avec sauvegarde

Pouvez vous m'aider

Merci

Bonjour Emilie46,

Utiliser la partie code du classeur. Faire un clic droit sur Workbook dans l'éditeur VBA.

Sélectionner à droite de la fenêtre ouverte l'événement Workbook_beforeclose.

Inscrire alors à l'intérieur la ligne de code ci-dessous.

Userform1.Show

Cela va ouvrir cet userform