Discussion :

[ericdev67]

bonjour,

Je cherche depuis toute la journée, et je ne trouve pas..... : je souhaite copier un dossier dans un autre dossier.
Je m'explique : je souhaite copier le dossier "c:/eric" dans le dossier "d:/eric".
Pour l'instant, j'ai créer une boucle qui cherche tous les classeurs et qui les colle dans le nouveau dossier via

Code :

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

Filecopy

, mais je pense qu'il est possible de copier/coller le dossier (et non les classeurs), j'essaye, mais je ne trouve pas....

Code :

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

(et non les classeurs)

= non seulement les classeurs, le dossier complet, avec le dossier/sous dossier/classeurs/fichiers

Une idée ?

Merci,
A+

[kiki29]

Salut, regarde l'aide en ligne sur CopyFolder

[Abed_H]

Bonsoir
Cette procédure duplique le contenu du répertoire C:\Eric (y compris ses sous-répertoires) dans le répertoire D:\Eric

Code :

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

1
2
3
4
5
Sub DupliqueDossier()
Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.copyfolder "C:\Eric", "D:\Eric"
End Sub

Bonne soirée

[ericdev67]

Merci kiki29,
Merci Abed_H,

Effectivement kiki29, j'ai trouvé la réponse dans un post entre Olivier-tig et Leforestier......qui rejoint le code de Abed_H....

Merci à tous les deux


A+ pour de prochaines aventures