Sauvegarde auto d'un fichier sur un autre folder

[basma]

Bonjour.

J'ai un fichier qui s'appelle " maison.xls " et qui se trouve, par ex, sur C:\Documents and Settings\Basma\Mes documents\CONSTRUCTION MAISON\maison.xls.

Je désirerais qu'à la fermeture de ce fichier Excel :
1) une copie de " maison.xls " s'effectue automatiquement sur C:\Documents and Settings\Basma\Mes documents\sauvegarde\
2) tout en gardant le même nom
3) avec la date de dernière modification

Est-ce possible ?

D'avance merci pour votre aide toujours judicieuse !

Basma

 

[Mouti]

Re : Sauvegarde auto d'un fichier sur un autre folder

Bonjour Basma

Pour répondre à ta question; il te faut aller dans enregistrer sous / Outils/ Options Générales puis cocher sur créer une copie de sauvegarde.
Le fichier sera enregistré au même emplacement que ton fichier initial.

 

[basma]

Re : Sauvegarde auto d'un fichier sur un autre folder

salut mouti.
merci pour l'info !

 

[James33000]

Re : Sauvegarde auto d'un fichier sur un autre folder

Bonjour Basma

Pour répondre à ta question; il te faut aller dans enregistrer sous / Outils/ Options Générales puis cocher sur créer une copie de sauvegarde.
Le fichier sera enregistré au même emplacement que ton fichier initial.

Bonsoir
Oui....mais.....est-il possible d'enregistrer le fichier de sauvegarde à un autre emplacement que le fichier original ? sans avoir recours au VBA

 

[basma]

Re : Sauvegarde auto d'un fichier sur un autre folder

En effet, très bonne question, James 33000.
Ma question se repose à nouveau.

Qui aurait une solution svp ?
MERCI !

Bonsoir
Oui....mais.....est-il possible d'enregistrer le fichier de sauvegarde à un autre emplacement que le fichier original ? sans avoir recours au VBA

 

[Temjeh]

Re : Sauvegarde auto d'un fichier sur un autre folder

Bonjour

Pourquoi fuire le VBA

ALT+F11 et coller dans workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.SaveAs "C:\Documents and Settings\Claude\Bureau\" & "maison" & Format(Date, "yyyymmdd") & ".xls"
End Sub

Simple, facile et efficace

A+

Temjeh