Copier fichier dans un répertoire spécifique

Bonjour,

Je souhaiterais copier des fichiers qui sont tous dans un même dossier vers des dossiers spécifiques.

J'ai listé les fichiers à déplacer, leur source et la destination dans un fichier exel.

Je souhaiterais utiliser une macro car je dois réaliser cette tâche d'une manière assez répétitive pour de nombreux fichiers.

En parcourant différents forums, j'ai trouvé cette base mais je n'arrive pas à l'adapter à mon cas:

Sub filemove()
Dim From As String
Dim Dest As String

Range("A2").Cells.Select
i = 0
From = ActiveCell.Value
On Error Resume Next

Do While From <> ""
From = ActiveCell.Offset(i).Value
Dest = ActiveCell.Offset(i, 1).Value
FileCopy From, Dest

i = i + 1
Loop

End Sub

Merci d'avance pour votre aide

bonjour,

essaie ceci

Sub filemove()
    Dim From As String
    Dim Dest As String
    Dim i

    i = 2

    'On Error Resume Next

    Do While Cells(i, 1) <> ""
        From = Cells(i, 2) & Cells(i, 1)
        Dest = Cells(i, 3) & Cells(i, 1)
        FileCopy From, Dest

        i = i + 1
    Loop

End Sub