deuxième sauvegarde incrémentée

sousou

XLDnaute Barbatruc

• 22 Mars 2012

• #2

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

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 22 Mars 2012

• #3

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 22 Mars 2012

• #4

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

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 22 Mars 2012

• #5

Re : deuxième sauvegarde incrémentée

super
merci à toi

ça fonctionne pil poil

Michel

 

Vote positif 0 Vote négatif