Discussion :

[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

[SfJ5Rpw8]

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 ...

[kernel57]

non malheureusement xcopy ne fonctionne pas. Merci tout de meme

[bouley]

Bonjour Kernel57

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kernel57]

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

Merci encore

[bouley]

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

J'en étais persuadé pourtant !!!

@+