Recupérer bon chemin d'accès d'un fichier

Bonjour,

Question sans doute classique mais je n'ai pas su trouver les bons mots clés pour trouver la réponse.

J'utilise le code suivant pour récupérer le chemin d'accès d'un répertoire choisi par l'utilisateur dans l'explorateur:

Function selectionRepertoire_afficherChemin() As String
Dim Repertoire As FileDialog

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

selectionRepertoire_afficherChemin = Repertoire.SelectedItems(1)
End Function

Le problème, c'est que cette fonction me retourne un chemin du type :

http://truc.fr/livelinkdav/nodes/1611065636/MonDossier

et j'aimerais récupérer plutôt :

Z:\MonDossier

Ce qui est beaucoup plus maniable par la suite.

En effet, j'ai connecté un site qui héberge des fichiers comme lecteur réseau avec lettre Z:\. Directement sur Z:\ se trouvent des dossiers dont MonDossier.

Vous me direz : il suffit de faire Replace(lachaine, blabla, "Z:\") mais ça ne convient pas puisque ma macro sera utilisée par d'autres qui n'auront pas la même lettre réseau.

Il y a sûrement une commande simple qui permet de récupérer le vrai chemin.

Je compte sur vos idées brillantes !

bonsoir

 Sub chem()
    Dim Chemin As String
    Chemin = Application.Path
    MsgBox (Chemin)
 End Sub
h

Cdt

Harissa

Edit: Désolé j'ai mal lu...je réponds a coté

Merci Harissa23, mais je crains que ce ne soit pas ce que je recherche, ou alors je n'ai pas bien compris ce que tu me proposes.

J'ai adapté ton code pour voir le Path d'un classeur sur mon lecteur réseau.

 Sub chem()
    Dim Chemin As String
    Chemin = ActiveWorkbook.Path
    MsgBox (Chemin)
 End Sub

Mais j'obtiens toujours :

http://truc.fr/livelinkdav/nodes/1666065636/MonDossier

Edit : OK np