Macro "Copie de Dossier"

Benjy

XLDnaute Occasionnel
Bonjour,

J'ai un dossier sous Z:\protocole qui se nomme "formulaires" et qui contient plusieurs documents d'extensions diverses. Ex : Z:\protocole\Formulaires\formulaires SDEA.docx

Par macro je crée un nouveau dossier dans Z:\protocole\nouveau nom
Avec le code :
Code:
MkDir ("Z:\protocole\" & Cells(15, 3).Value
Le nom est donc donné par la valeur de la cellule (15,3)

Je cherche ensuite un code qui me permet soit :
-de copier directement le dossier "Formulaires" dans le nouveau dossier que je viens de créer.
-de copier l'ensemble des documents du dossier formulaires dans un nouveau dossier :
MkDir ("Z:\protocole\" & Cells(15, 3).Value & "\Formulaires\")

Ce qui revient au même au final mais la ligne de code sera différente.

Si je ne suis pas clair ( ce qui risque d'être le cas, merci de m'en informer )

Merci d'avance,

Cordialement,

Ben
 

Pierrot93

XLDnaute Barbatruc
Re : Macro "Copie de Dossier"

Bonjour,

pas sûr d'avoir bien compris, mais regarde peut être ceci, copie tous les fichiers du dossier "Test" dans un nouveau répertoire (Test2) qui sera créé (ce dernier ne doit pas exister) :

Code:
Dim Fso As Object, Source As String, Destination As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Source = "C:\MesDocs\Excel\Test"
Destination = "C:\MesDocs\Excel\Test2"
Fso.CopyFolder Source, Destination, False

bonne journée
@+
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 721
Membres
110 551
dernier inscrit
Khyolyanna