Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcourir ?

Bonjour,

voici la fonction que j'utilise dans le code de mon bouton :

Function joindreC18()
Dim chemin As String 'nom de variable récupérant le chemin du fichier

chemin = Application.GetOpenFilename
'Ici Range("C18" ) est la case dans laquelle on va afficher le chemin du fichier
Range("C18").Value = chemin

End Function

Cliquez pour agrandir...

cependant ce code permet d'aller chercher le chemin relatif d'un FICHIER, or je souhaite simplement aller chercher un répertoire de destination pour un futur enregistrement...

Comment pourrais-je faire ?

Merci d'avance

Bonne journée

Gimli