Copier des fichiers dans différent répertoire [Résolu]
PaulineCarrey -
16 janv. 2017 à 13:44 - Dernière réponse : vb951590
Messages postés samedi 11 janvier 2014Date d'inscription
19 juin 2018
Dernière intervention
- 18 janv. 2017 à 18:48
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
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
vb951590
Messages postés samedi 11 janvier 2014Date d'inscription
19 juin 2018
Dernière intervention
>
Patrice337406963
Messages postés dimanche 13 juin 2010Date d'inscription
18 juin 2018
Dernière intervention -18 janv. 2017 à 18:48
Bonsoir Patrice33740
J'avais pas fait attention ! Pas encore l'habitude ! C'est fait !
Merci et bonne année 2017
