Sauvegarde Sans ouvrir le fichier

[JFLord]

Bonjour,

Ma question va peut-être sembler bête, mais j'arrive pas à trouver ma réponse.

J'ai de besoin de faire des backups de fichier dans un répertoire X. Par contre, je ne veux pas ouvrir le fichier.

Il s'agit donc de faire simplement un copier coller du fichier de son répertoire initial vers le répertoire de backup.

Merci
JF

 

[Pierrot93]

Re : Sauvegarde Sans ouvrir le fichier

Bonsoir JF,

si j'ai bien compris, essaye le code ci-dessous :

Dim AncienNom As String, NouveauNom As String
AncienNom = "C:\MesDocs1\Excel1\toto.xls"
NouveauNom = "C:\MesDocs2\Excel2\toto2.xls"
Name AncienNom As NouveauNom

bonne soirée
@+

 

[tototiti2008]

Re : Sauvegarde Sans ouvrir le fichier

Bonjour JFLord, bonjour Pierrot,

Name ça déplace, non ?

Pour copier je crois qu'il y a :

FileSystemObject.CopyFile "C:\MesDocs1\Excel1\toto.xls", "C:\MesDocs2\Excel2\toto2.xls"

 

[JFLord]

Re : Sauvegarde Sans ouvrir le fichier

Effectivement le premier déplace le fichier...

J'ai pas essayé le deuxieme encore mais a premiere vu, je pense que ca fonctionnera pas... Intuition 😉

 

[Pierrot93]

Re : Sauvegarde Sans ouvrir le fichier

Re,

Aarf, exact toto... voyais ceci en fait :

FileCopy "C:\MesDocs\Dos1\toto1.xls", "C:\MesDocs2\Dos2\toto2.xls"

 

[tototiti2008]

Re : Sauvegarde Sans ouvrir le fichier

Re,

ah ben oui, encore plus simple avec FileCopy
Je recherche toujours CopyFile dans l'aide plutôt que FileCopy
mais comme ils existent tous les 2...

 

[tototiti2008]

Re : Sauvegarde Sans ouvrir le fichier

Bonjour à tous,

J'ai pas essayé le deuxieme encore mais a premiere vu, je pense que ca fonctionnera pas... Intuition

En effet, il faut l'écrire comme ça

Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")
FS.CopyFile "C:\MesDocs\Dos1\toto1.xls", "C:\MesDocs2\Dos2\toto2.xls"

ce qui confirme que FileCopy est bien plus court 😉