Selectionner un répertoire

Bonjour le forum, encore besoin de votre aide

j'ai une macro dans laquelle j’inscris un répertoire afin de traiter tous les fichiers qui s'y trouve comme ceci :

myPath = "C:\Users\XXXXX\Desktop\2020-07-01\"

Mais existe-t-il un moyen afin que, quand je lance la macro cela m'ouvre une fenêtre avec l'explorateur afin de choisir manuellement le répertoire afin de le mettre dans une variable ?

Cela m'éviterait de modifier le nom de la macro à chaque fois..

Merci pour votre aie !

Bonjour,

Voici qui devrait pouvoir faire l'affaire :

Sub recup()
Dim chemin As String
Dim Repertoire As FileDialog

Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show

If Repertoire.SelectedItems.Count > 0 Then chemin = Repertoire.SelectedItems(1)

End Sub

Ça fonctionne, merci beaucoup JoyeuxNoel, bonne journée !