Copier contenu dossier dans un autre dossier

Bonjour Tout le monde ,

j'espère que vous allez bien !

Pourriez-vous m'aider sur un sujet svp, je souhaite COPIER le contenu (fichiers) des dossier d'un répertoire 1 et les coller dans les dossier du répertoire 2.

je laisse mon fichier en pièce jointe: colonne A les noms des dossier du réprtoire 1, et en colonne B les noms des dossiers du réperoire 2 (destination), sachant que je souhaite faire ce copier-coller ligne par ligne, c'est-à- dire dossier 1 vers dossier 45 et ainisi de suite.

est-il possible.

merci d'avance.

Bonjour Imad SIO,

Oui c'est tout à fait possible, avec FSO

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\DossierA", "C:\DossierB"

A+

Bonjour Bruno m45,

ça fonctionne bien

mais je souhaite mettre les dossier qui contiennent les fichiers à copier en colonne A, et les dossier destinataire en colonne B.

j'arrive pas à le faire en remplaçant "C:\DossierA" par cells(x,x) qui contient le chemin

Comment ajuster cela

merci d'avance

Re,

Si le chemin est complet, il suffit de passer par des variables (pas obligatoire)

Dim dLig as Long, Lig as Long
Dim DossierA as String, DossierB as String
Dim FSO as Object
dLig = Range("A" & Rows.Count).End(XlUp).Row
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Lig = 2 to dLig
  DossierA = Range("A" & Lig).Value
  DossierB = Range("B" & Lig).Value
  objFSO.CopyFolder DossierA, DossierB
Next Lig
Set FSO = Nothing

A+

Merci beaucoup Bruno M45 , ça fonctionne à merveille