copie d'une arborescence avec excel vb

Bonjour à tous je souhaiterais savoir s'il existe une instruction excel vba permettant de faire une copie intégrale d'un répertoire (avec sous répertoire et fichiers compris). Pour l'instant j'utilise FileCopy mais je dois le faire fichier par fichier et je dois créer au préalable tous les répertoires nécessaires.

Merci

Citation:

---

Envoyé par kernel57

Bonjour à tous je souhaiterais savoir s'il existe une instruction excel vba permettant de faire une copie intégrale d'un répertoire (avec sous répertoire et fichiers compris). Pour l'instant j'utilise FileCopy mais je dois le faire fichier par fichier et je dois créer au préalable tous les répertoires nécessaires.

Merci

---

en fait un xcopy /S .... je crois pas que ça existe en VB ... mais tu peu peu être faire appel à la commade dos xcopy ... :roll: :wink:

non malheureusement xcopy ne fonctionne pas. Merci tout de meme

Bonjour Kernel57

J'utilise le File System Object en declarant la reference "Microsoft Scripting Runtime"

Code:

---

1 2 3 4 5 6 7 8

Set fso = CreateObject("Scripting.FileSystemObject") Set DossierACopier = fso.GetFolder (Chemin du Fichier )   DossierACopier.Copy (Chemin où copier le dossier)   Set DossierACopier = nothing Set fso = nothing

---

Voila j' espère que cela te convient
@+

Tu parles que ca marche c'est du tonnerre !!
Voilà une journée qui commence bien. :lol:
Mais une question ? Pourquoi déclarer la reference "Microsoft Scripting Runtime" ?

Merci encore

Ben, je constate q'il n'y en a pas besoin, en effet.

J'en étais persuadé pourtant !!!

@+