VBA_Copie/colle fichier d'un répertoire vers un autre

Bonjour à tous,

Je viens vers vous car je bloque ( encore et encore ) sur une macro qui permet de copier coller un fichier d'un répertoire à un autre.

Colonne B " Chemin des fichiers à copier"
Colonne C "nom du fichier"
Colonne F " Dossier de destination" .

lorsque je fais tourner la macro celle ci copie tous les documents dans le 1er dossier de destination indiqué, même si les chemins sont différents sur les lignes suivantes. Je dois oublier quelque chose... :(

Sub repCopierFichier()
Dim fso As Object, Dossier_cherché$, Dossier_récepteur$, Fichier_cherché$

Set fso = CreateObject("Scripting.FileSystemObject")
Dossier_récepteur = Range("F2")
Range("B2").Activate
Do Until ActiveCell = ""
Dossier_cherché = ActiveCell
Fichier_cherché = ActiveCell.Offset(0, 1)
fso.CopyFile Dossier_cherché & "\" & Fichier_cherché, Dossier_récepteur & "\" & Fichier_cherché
ActiveCell.Offset(1, 0).Activate
Loop

End Sub

Je vous joint le fichier en pièce jointe,

Merci de m'avoir lu !

A.

Bonjour,

Il vous manque le Dossier_recepteur dans le code...
Sinon évitez les accents dans les codes VBA (c'est à ne jamais faire)

J'aurais fait le code comme ceci :

Sub repCopierFichier()
Dim fso As Object, Dossier_cherche As String, Dossier_recepteur As String, Fichier_cherche As String
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row

    Dossier_cherche = Range("B" & i)
    Fichier_cherche = Range("B" & i).Offset(0, 1)
    Dossier_recepteur = Range("F" & i)
    fso.CopyFile Dossier_cherche & "\" & Fichier_cherche, Dossier_recepteur & "\" & Fichier_cherche

Next i
end sub

Crdlt

Bonjour Dan,

Merci pour votre retour, et merci pour les conseils je note :D

Bonne journée

A.