Evènement Workbook_Beforesave

Bonsoir,

Quelqu'un peut-il me donner une exemple de cet évènement ?

Merci.

Bonjour,

Voir ici :

https://docs.microsoft.com/fr-fr/office/vba/api/excel.workbook.beforesave

A+

Bonjour …

ou ici, nest-ce pas Galopin ?

Dans la page des codes de ThisWorkbook (Alt F11) :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Cancel = MsgBox("acceptée ?", vbYesNo, "Sauvegarde...") = vbNo
  MsgBox "Sauvegarde " & IIf(Cancel, "non ", "") & "réalisée ", , ""
End Sub

Merci à Galopin01 et Ordonc : c'est tr ès clair !