Double sauvegarde

Bonjour à tous,

Je gère un fichier excel auquel je tiens particulièrement. Ce fichier est enregistré sur le serveur pour etre accessible par d'autre gens

est-ce possible d'enregistrer (de façon automatique et transparente) ce fichier dans deux endroits en même temps? => sur le réseau et sur mon dd en local.

Merci pour votre aide

roudy

Salut,

Tu peux déjà créer une copie de sauvegarde en faisant:

Fichier/rengistrer sous/

Ensuite, à droite, tu as outils. Cliques dessus puis options générales. coche la case créer une copie de sauvegarde.

Par contre, ta copie de sauvegarde est enregistrée dans le même dossier....

Si tu veux mettre une copie dans un dossier caché:

Créer le dossier puis le mettre en caché sur le réseau (sur ton disque dur, je ne pense pas que cela soit possible, il doit être protégé en écriture...)

Et ensuite dans thisworkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim chemin As String
Application.DisplayAlerts = False
'remplacer le chemin par le chemin du dossier
chemin = "C:\Documents and Settings\FR018661\Desktop\Test\"

ActiveWorkbook.SaveAs Filename:= _
        chemin & ActiveWorkbook.Name
End Sub

Cela va enregistrer le fichier au chemin indiqué à chaque fermeture du fichier.

A te lire,

Souri84

Inutile de dire, que si tu veux tester la méthode, teste d'abord sur un fichier qui ne craint rien..... on ne sait jamais avec Excel....

Souri84

alalala

trop fort souri84!! ca marche très bien, merci merci!!

roudy ol:

PS: si je peux inclure la date en plus dans le nom du fichier sauvegardé en double... histoire de pouvior tracer.. ca serait tip top

re,

tu peux faire quelque chose comme ça.... a toi de voir comment tu veux que ton fichier soit formaté....

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim chemin As String
Dim spy As String
Application.DisplayAlerts = False
chemin = "C:\Documents and Settings\FR018661\Desktop\Test\"
spy = Year(Now) & Month(Now) & Day(Now)
ActiveWorkbook.SaveAs Filename:= _
        chemin & spy & "_" & ActiveWorkbook.Name
End Sub

A+

Souri84

Impec!!

merci merci

roudy