Copie de Fichiers

[FaridP]

Bonjour à Tous,

J'essaie de copier un fichier d'un répertoire à un autre mais je ne sais pas comment récupérer les chemins "Source" et "Destination" associés à la ligne sur laquelle figure le nom du fichier...

Je vous joins un fichier qui sera peut-être plus parlant.

Merci de votre Aide
Farid

 

[porcinet82]

Re : Copie de Fichiers

Salut Farid,

Je viens de jeter un oeil a ton fichier et a ton code. Pour ce qui est de la boucle, j'ai utilisé une boucle sans la plage nommée, cequi donne le code suivant :

Sub Test()
Dim Source$, Destination$
Dim i%
For i = 2 To Range("A65536").End(xlUp).Row
    Source = Cells(i, 2).Value
    Destination = Cells(i, 3).Value
    FileCopy Source, Destination
    Kill (Source)
Next i
End Sub

Par contre, tu dis vouloir copier un fichier d'un endroit vers un autre. Or, le code FileCopy permet de copier le contenu d'un fichier dans un autre. Pour copier le fichier, il faut que tu regardes du coté de CopyFile. Je t'aurais bien modifié la macro pour qu'elle fonctionne avec, mais je n'ai pas réussi a utiliser cette instruction.

@+

 

[Jacques87]

Re : Copie de Fichiers

Bonjour Farid, Bonjour Romain

Pour copier un fichier en utilisant l'instruction CopyFile, il faut d'abord définir l'objet, d'où le code

Sub Test()
Dim Source As String
Dim Destination As String
Dim C As Range
Set fso = CreateObject("Scripting.FileSystemObject")
Source = "C:\Documents and Settings\tartenpion\fichier1.xls"
Destination = "C:\Documents and Settings\tartenpion\fichier2.xls"
fso.CopyFile Source, Destination
Kill (Source)
End Sub

Source et Destination sont des chemins bidons dans mon exemple, c'est à adapter à vos besoins

Bon courage

 

[myDearFriend!]

Re : Copie de Fichiers

Bonjour FaridP, porcinet82, Jacques87,

Si l'objectif est de déplacer le fichier, plutôt que de le copier et ensuite supprimer la source, autant faire :

[SIZE=2]Name "C:\Fichier.xls"[COLOR=navy] As [/COLOR]"D:\Mes Documents\Fichier.xls"[/SIZE]

Avec cette instruction, on peut aussi en profiter pour le renommer au besoin :

[SIZE=2]Name "C:\Fichier.xls"[COLOR=navy] As [/COLOR]"D:\Mes Documents\Test.xls"[/SIZE]

Cordialement,

 

[porcinet82]

Re : Copie de Fichiers

Bonjour Farid, Jacques, Didier,

Ce n'est pas moi qui est posé la question, mais je vous remercie quand meme, Jacques pour m'avoir donné un coup de pouce, et Didier pour avoir proposé une autre solution (en plus est toute simple) qui semble en effet plus adapté au problème de Farid. Merci pour ces nouvelles connaissances, et au plaisir...

@+

 

[chris]

Re : Copie de Fichiers

Bonjour à tous

C'est moi qui avait indiqué les instructions FileCopy et kill à Farid.

Porcinet tu m'as fait douter mais j'ai revérifié : Filecopy permet bien de copier un fichier. CopyFile est l'équivalent fso.

Sinon merci à MyDearFriend pour le Name : je l'avais totalement oublié et avais donc proposé cette solution en 2 temps.

Bon week end à tous