S
sev
Guest
Bon week end à tous ,
Lorsque je ferme un classeur sans vouloir le sauvegarder sur le disque dur et clé USB , j'ai un Bug.
Comment éviter cela ?
Voici le code de fermeture :
Lorsque je ferme un classeur sans vouloir le sauvegarder sur le disque dur et clé USB , j'ai un Bug.
Comment éviter cela ?
Voici le code de fermeture :
HTML:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\SEV\Documents\comptes\agenda.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
If MsgBox("Voulez vous enregistrer les modifications sur une clé USB ?", vbQuestion + vbYesNo, "ENREGITRE LES MODIFICATIONS") = vbNo Then Exit Sub
MsgBox "Attention insérer une clé USB pour la sauvegarde ", vbInformation + vbOK
ChDir "H:\"
ActiveWorkbook.SaveAs Filename:="H:\agenda - Sauvegarde.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub