Macro "Copie de Dossier"

Benjy · 9 Février 2011

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 · 9 Février 2011

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

Benjy · 9 Février 2011

Re : Macro "Copie de Dossier"

Bonjour Pierrot,

Impeccable comme d'habitude ! Sa fonctionne.

Merci à vous,

Cordialement,

Ben

Macro "Copie de Dossier"

Benjy

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Benjy

XLDnaute Occasionnel

Discussions similaires

Macro "Copie de Dossier"

Benjy

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Benjy

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency