deuxième sauvegarde incrémentée

[kinel]

bonjour

je voudrai qu'à chaque sortie de mon fichier la sauvegarde soit automatique et qu'en plus une seconde sauvegarde soit créée dans un autre dossier. si cette sauvegarde de secours est incrémentée ce serait l'idéal

merci de votre aide

Michel

 

[sousou]

Re : deuxième sauvegarde incrémentée

Bonjour
Essaie queque chose comme cela
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
cancel=true
thisworkbook.save
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "/Save" & Year(Date) & "_" & Month(Date) & "_" & Day(Date) & ".xls"
End Sub

 

[kinel]

Re : deuxième sauvegarde incrémentée

Bonjour sousou
merci pour cette réponse qui me donne déjà un bon élément de départ
est ce possible de rendre cette commande automatique lors de la fermeture du fichier ?
et à la limite de ne pas laisser le choix de ne pas enregistrer

pour résumer, la fermeture entraînerait un enregistrement et une sauvegarde automatique

merci à tous de vos réponses
Michel

 

[sousou]

Re : deuxième sauvegarde incrémentée

Re
C'est beforclose qu'il faut utiliser
Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.Save
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "/Save" & Year(Date) & "_" & Month(Date) & "_" & Day(Date) & ".xls"
End Sub

 

[kinel]

Re : deuxième sauvegarde incrémentée

super
merci à toi

ça fonctionne pil poil

Michel