Fonction enregistrer vba

Bonjour à tous,

Je cherche une solution pour faire apparaitre un message si l'utilisateur clique sur la disquette enregistrer ou fait fichier --> Enregistrer / Enregistrer sous

Est ce possible ?:?

Essayes comme ça ;)

Code:

---

1 2 3 4

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsbBox "Coucou" End Sub

---

Bonjour

Regardes du coté de l'évènement BeforeSave de ton classeur.

Code:

---

1 2 3

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "toto" End Sub

---

Starec

Merci à tous les deux pour avoir répondu si vite.

Je dois placer le code dans un module mais comment faire le lien avec la disquette ?

Non ce code doit être placé dans "ThisWorkbook"

Merci, c'est vraiment super :P

Juste une dernière précision, si je souhaite ne pas enregistrer le fichier, je peus faire un exit sub?

Edit:
J'ai trouvé : Cancel = True :D

Merci encore ;)