Discussion :

[gege765]

Bonsoir,

Voilà je souhaite déplacer des fichiers d'un répertoire source identique vers un répertoire de destination précisé en colonne B.
Le nom du fichier à déplacer se situe en colonne A.

Actuellement mon code déplace uniquement les fichiers sans prendre en compte le répertoire ?

Que dois-je modifier à ma macro ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub DéplacerFichiers(Dequel_dossier$, A_queldossier$)
    Dim fso As Object
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    For i = 1 To Sheets(1).Range("a65536").End(xlUp).Row
        fso.MoveFile Dequel_dossier & "\" & Cells(i, 1), A_queldossier & "\"
    Next
    On Error GoTo 0
End Sub

Merci.