copier dossier /vba

bonsoir

je voudrai copier un dossier a partir du disque amovible (H) sur le disque dur.
j'ai essayer avec l'enregistreur de macro, mais ca n'a pas fonctionner.
Quelqu'un aurait il un code a me proposer merci

Bonjour,

Code:

---

1 2 3 4 5

Sub CopierRepertoir() Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFolder "H:\NomDuRépertoir", "C:\" End Sub

---

A+

je n'ai pas encore essayer , mais merci bcp