Macro "Copie de Dossier"

[Benjy]

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 :

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]

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) :

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
@+

 

[Benjy]

Re : Macro "Copie de Dossier"

Bonjour Pierrot,

Impeccable comme d'habitude ! Sa fonctionne.

Merci à vous,

Cordialement,

Ben