Posez votre question Signaler

Copier des fichiers dans différent répertoire [Résolu]

-
VBA Office (Excel, Word ...) Posez votre question Signaler
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.
Afficher la suite 

Votre réponse

Répondre au sujet

3 réponses

Signaler Commenter la réponse de Patrice33740
Messages postés
7632
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
22 février 2019
 16
0
Merci
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
Commenter la réponse de Patrice33740
Signaler Commenter la réponse de PaulineCarrey
0
Merci
Génial !!!! Merci beaucoup c'est super !!
Commenter la réponse de PaulineCarrey
Signaler Commenter la réponse de vb95
Messages postés
1799
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
20 février 2019
 60
0
Merci
Bonjour
Ce qui serait génial aussi est de clôturer le sujet ( voir " Marquer comme Résolu" ) !
Merci
Signaler Commenter la réponse de Patrice33740
Patrice33740
Messages postés
7632
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
22 février 2019
 16 -
Bonjour vb95

Comme elle n'est pas inscrite, elle peut pas passer en résolu !
Tu peux le faire.

Cdlt
Patrice
Signaler Commenter la réponse de vb95
vb95
Messages postés
1799
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
20 février 2019
 60 > Patrice33740
Messages postés
7632
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
22 février 2019
 -
Bonsoir Patrice33740

J'avais pas fait attention ! Pas encore l'habitude ! C'est fait !
Merci et bonne année 2017
Commenter la réponse de vb95

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.