copie de sauvegarde automatique reseau

Salut,

Copies cette macro et affectes la à un bouton ( n'oubies
pas de mettre le bon chemin du fichier à sauvegarder :

Sub MacroEnregistrer()

Chemin = ActiveWorkbook.FullName

ActiveWorkbook.SaveAs
Filename:="\NomduPCNomDuRepertoireNomDuFichier.xls",
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

ActiveWorkbook.SaveAs Filename:=Chemin, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

End Sub

-----Message d'origine-----
bonjour

existe t'il une possibilité de faire une copie de
sauvegarde de fichiers

Excel en double sur un réseau

ex : le fichier truc.xls quand je le sauvegarde sur
mon DD j'aimerais

qu'il y ait une copie qui soit faite sur le DD du
serveur .

Merci


.