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

Question

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

Signaler

PaulineCarrey - Modifié par NHenry le 16/01/2017 à 18:45
vb95

Messages postés: 2429
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 1 juin 2021

- 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

Merci d'y penser dans tes prochains messages.

A voir également:

Copier des fichiers dans différent répertoire
Copier un fichier dans un répertoire ✓ - Forum - VB.NET
Copier un fichier dans le répertoire précédent ✓ - Forum - C++ & C++ .NET
Copier plusieurs fichiers d'emplacements différents - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
Directorystructure2excel: application copiant la structure d'un répertoire dans un fichier excel - Codes sources - C / C++ / C++.NET (Système)
Copier un type precis de fichiers dans un répertoire. ✓ - Forum - Visual Basic 6

3 réponses

Répondre Posez votre question

Patrice33740 · Answer 1 · 2017-01-17T00:56:04+0100

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 2 · 2017-01-17T08:26:47+0100

Réponse 2 / 3

PaulineCarrey
17 janv. 2017 à 08:26

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

vb95 · Answer 3 · 2017-01-18T18:22:27+0100

Réponse 3 / 3

vb95

Messages postés: 2429
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 1 juin 2021

137
18 janv. 2017 à 18:22

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

Signaler

Patrice33740

Messages postés: 8536
Date d'inscription: dimanche 13 juin 2010
Statut: Membre
Dernière intervention: 8 mai 2021

21
18 janv. 2017 à 18:38

Bonjour vb95

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

Cdlt
Patrice

Signaler

vb95

Messages postés: 2429
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 1 juin 2021

137 > Patrice33740

Messages postés: 8536
Date d'inscription: dimanche 13 juin 2010
Statut: Membre
Dernière intervention: 8 mai 2021

Modifié par vb95 le 18/01/2017 à 18:49

Bonsoir Patrice33740

J'avais pas fait attention ! Pas encore l'habitude ! C'est fait !
Merci et bonne année 2017

Votre réponse