Copier un répertoire dans un autre emplacement

[RONIBO]

Bonjour le forum,

Je souhaite copier un dossier, avec tout le contenu qui se trouve dedans (dans mon fichier exemple on prend le dossier "Exemple") dans un autre endroit.

Je souhaite choisir l'emplacement grâce à cette boite de dialogue :

Function SelDossier(Defaut As String)
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = Defaut
.Title = "Répertoire"
If .Show = -1 Then
SelDossier = fd.SelectedItems(1)
End If
End With
Set fd = Nothing
End Function

Je vous joints un fichier exemple.


Merci d'avance à vous

A+