Sauvegarde Sans ouvrir le fichier

Pierrot93

XLDnaute Barbatruc

• 31 Août 2010

• #2

Re : Sauvegarde Sans ouvrir le fichier

Bonsoir JF,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 31 Août 2010

• #3

Re : Sauvegarde Sans ouvrir le fichier

Bonjour JFLord, bonjour Pierrot,

Name ça déplace, non ?

Pour copier je crois qu'il y a :

Code:

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

 

Vote positif 0 Vote négatif

J

JFLord

Guest

• 31 Août 2010

• #4

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 😉

 

Dernière modification par un modérateur: 31 Août 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Août 2010

• #5

Re : Sauvegarde Sans ouvrir le fichier

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 31 Août 2010

• #6

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...

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 1 Septembre 2010

• #7

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

Cliquez pour agrandir...

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

Code:

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 😉

 

Vote positif 0 Vote négatif