Re
Tiens voici un autre code
ce dernier te demande lorsque tu fais un 'enregistrer sous' si tu as fait une sauvegarde si tu dis non il te l'enregistre puis t'ouvre la boite enregistrer sous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
If MsgBox('avez vous pensez à enregister une copie sur votre disque dur avant de faire le tranfert' & _
'du dossier sur un support amovible ?', vbYesNo, 'Attention !') = vbNo Then
ActiveWorkbook.Save
MsgBox 'Voilà c'est fait !'
End If
End If
End Sub
Bon courage