Discussion :

[olivier-tig]

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

[LeForestier]

Bonjour,

Code :

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

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

A+

[olivier-tig]

je n'ai pas encore essayer , mais merci bcp