Récupérer le chemin répertoire un fichier excel sur Réseau

Bonjour,

J'ai un problème que je n'arrive pas a résoudre.
Je créé un fichier Excel pour mon entreprise.
Je veux récupérer le chemin du répertoire ou ce situe mon fichier Excel.
Pour cela j'utilise :

Dim chemin As String
ChDir (ThisWorkbook.Path)
ChDir "."
chemin = CurDir(ThisWorkbook.Path)

Cela fonctionne très bien si par exemple mon fichier Excel se trouve dans mon ordinateur, mais le problème c'est que dans mon entreprise on stock les fichiers sur le Réseau. Et quand je met mon fichier Excel sur le réseau, cette ligne de commande ne fonctionne plus.
Avez vous une solution s'il vous plait.