Discussion :

[peofofo]

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 ?

[J.Michel]

Essayes comme ça

Code :

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

1
2
3
4
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   MsbBox "Coucou"
End Sub

[Invité]

Bonjour

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

Code :

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

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

Starec

[peofofo]

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 ?

[J.Michel]

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

[peofofo]

Merci, c'est vraiment super

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

Merci encore