[VBA] Récupérer un nom de dossier

Bonjour,

je souhaiterai avoir l'option qui permet de récupérer, dans une cellule Excel, un chemin sur le réseau ou ordinateur

Par exemple, je voudrais que dans la cellule A1, il me mette "C:\Mes documents\toto\répertoire 1"

Je sais que le code pour récupérer le nom d'un fichier est :

Dim sChemin As String ' Chemin du fichier

sChemin = Application.GetOpenFilename
Range("C2").Value = sChemin

Merci de votre collaboration.