Sauvegardes journalières

[guy72]

Bonjour,
Je souhaiterais savoir, si il est possible de faire une sauvegarde automatique avec à chaque fois un N° incrémenté dans le dossier "Sauvegardes", à chaque fois que je quite mon fichier ?
Merci de votre aide
Cordialement
Guy

 

[Paritec]

Re : Sauvegardes journalières

Bonjour Guy72,
oui c'est possible mais as tu mis dans ton fichier le chemin de sauvegarde?
Encore pire tu n'as pas mis de fichier mais le lien vers ton site , bon alors quand tu auras donné des éléments on pourra t'aider
a+
papou🙂

 

[Pierrot93]

Re : Sauvegardes journalières

Bonjour Guy, re Papou

peut être en utilisant la méthode "SaveCopyAs", et ce dans l'événement "BeforeClose" du classeur en question, je te laisse compléter le chemin et le nom du fichier (de nombreux exemples sur le forum pour l'incrémentation... code à placer dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "tonchemin nom fichier"
End Sub

bonne journée
@+

 

[guy72]

Re : Sauvegardes journalières

Bonjour,
Mon fichier s'apelle "Météo Excel 2011" et je souhaite l'enregister dans le dossier "Sauvegardes Météo 2011".
donc dans "thisworkbook" de mon fichier "Météo Excel 2011", j'ai mis :

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "C:\Documents and Settings\Guy\Mes documents\Meteo\Sauvegardes Météo 2011\Météo Excel 2011.xlsm"
End Sub

Quand je ferme mon fichier, rien ne se passe

P.S. C'est normal que le nom du dossier "Meteo" ne contient pas d'accents

 

[guy72]

Re : Sauvegardes journalières

Re
Je rectifie mon dernier message :
Si je ferme mon fichier, il s'nregistre dans le dossier "Sauvegarde Météo 2011" sous le nom de "Météo Excel 2011".
Par contre si je fais des modifes, et que je referme mon fichier, il écrase le précédent sans faire un autre fichier incrémenté ?
Je pensais que la 2ème fois, il s'enregistrerait sous "Météo Excel 2011 2" ou quelque chose comme ça ?
Cordialement
Guy

 

[Pierrot93]

Re : Sauvegardes journalières

Re,

essaye peut être ceci :

ThisWorkbook.SaveCopyAs "C:\Documents and Settings\Guy\Mes documents\Meteo\Sauvegardes Météo 2011\Météo Excel " & Format(Now, "yyyymmdd hhnnss") & ".xlsm"

 

[guy72]

Re : Sauvegardes journalières

Impeccable !!
Merci de ton aide
Cordialement
Guy
A+