OVH Cloud OVH Cloud

Sauvegarde données

2 réponses
Avatar
Kerroch
Bonsoir à tous,

J'ai un classeur composés d'environ 30 feuilles de saisies ,de synthèses
etc..
Ma question est plutôt d'ordre générale:
Comment faire pour sauvegarder ce classeur ou les feuilles du classeur
de manière à avoir une sauvegarde efficace.
à chaque enregistrement du fichier on peut imaginer une copie incrémentale

Avez vous d'autres astuces méthodes expériences avis en la matière???
Merci pour vos idées..

Kerroch

2 réponses

Avatar
isabelle
bonjour Kerroch,

ajoute une feuille dans ton classeur pour y stocker l'incrémentaion d'un
numéro, tu peux masquer cette feuille par la suite. copie la macro
suivante dans le module de classe ThisWorkbook de ce classeur.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets("FeuilleMasquer").Range("A1") = Sheets("Feuille1").Range("A1") +
1
ActiveWorkbook.SaveCopyAs "C:TEMPXXXX" &
Sheets("Feuille1").Range("A1") & ".XLS"
End Sub

isabelle


Bonsoir à tous,

J'ai un classeur composés d'environ 30 feuilles de saisies ,de synthèses
etc..
Ma question est plutôt d'ordre générale:
Comment faire pour sauvegarder ce classeur ou les feuilles du classeur
de manière à avoir une sauvegarde efficace.
à chaque enregistrement du fichier on peut imaginer une copie incrémentale

Avez vous d'autres astuces méthodes expériences avis en la matière???
Merci pour vos idées..

Kerroch


Avatar
Kerroch
Merci pour cette idée ,
Le classeur étant enregistré plusieurs fois par jour,
et la personne utilisant ce classeur ne connaissant que très peu
windows et Excel, il me reste à rajouter un module faisant le nettoyage
dans c:temp. pour limiter l'accumulation de trop de fichiers...

Merci encore
kerroch.




"isabelle" a écrit dans le message de
news:
bonjour Kerroch,

ajoute une feuille dans ton classeur pour y stocker l'incrémentaion d'un
numéro, tu peux masquer cette feuille par la suite. copie la macro
suivante dans le module de classe ThisWorkbook de ce classeur.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets("FeuilleMasquer").Range("A1") = Sheets("Feuille1").Range("A1") +
1
ActiveWorkbook.SaveCopyAs "C:TEMPXXXX" &
Sheets("Feuille1").Range("A1") & ".XLS"
End Sub

isabelle


Bonsoir à tous,

J'ai un classeur composés d'environ 30 feuilles de saisies ,de synthèses
etc..
Ma question est plutôt d'ordre générale:
Comment faire pour sauvegarder ce classeur ou les feuilles du classeur
de manière à avoir une sauvegarde efficace.
à chaque enregistrement du fichier on peut imaginer une copie
incrémentale



Avez vous d'autres astuces méthodes expériences avis en la matière???
Merci pour vos idées..

Kerroch