Copier des fichiers dans différent répertoireRésolu

Question

Bonjour,
J'ai besoin d'une aide svp. J'ai un code VBA qui copie les fichiers souhaités dans seulement un seul dossier de destination or je ne souhaite pas avoir qu'un seul dossier de destination.
Sur une ligne sur trouve la destination puis l'autre ligne une autre destination.
Pouvez-vous m'aider à modifier mon script VBA svp ?
Voici mon script :
Sub repCopierFichier()
Dim fso As Object, Dossier_cherché$, Dossier_récepteur$, Fichier_cherché$

Set fso = CreateObject("Scripting.FileSystemObject")
Dossier_récepteur = Range("F12")
Range("B12").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
      EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI 
Merci d'y penser dans tes prochains messages.

Patrice33740 · Answer

Essaies :
Sub repCopierFichier()
Dim fso As Object, cel As Range, Dossier_cherché$, Dossier_récepteur$, Fichier_cherché$

Set fso = CreateObject("Scripting.FileSystemObject")
Set cel = Range("B12")
Do Until cel.Value = ""
  Dossier_cherché = cel.Value                 'en colonne B
  Fichier_cherché = cel.Offset(0, 1).Value    'en colonne C
  Dossier_récepteur = cel.Offset(0, 4).Value  'en colonne F
  fso.CopyFile Dossier_cherché & "\" & Fichier_cherché, Dossier_récepteur & "\" & Fichier_cherché
  Set cel = cel.Offset(1, 0)
Loop

End Sub

PaulineCarrey · Answer

Génial !!!! Merci beaucoup c'est super !!

vb95 · Answer

Bonjour
Ce qui serait génial aussi est de clôturer le sujet ( voir " Marquer comme Résolu" )  !
Merci

Copier des fichiers dans différent répertoire

3 réponses

Votre réponse