Récupérer dans une cellule le chemin absolu du fichier ouvert

[ThunderPaT]

Bonjour à tous,
je me casse les dents depuis un moment pour savoir comment récupérer le chemin absolu de mon fichier excel dans une cellule de mon classeur.

J'ai déjà essayer :

=GAUCHE(CELLULE("filename");CHERCHE("[";CELLULE("filename");1)-2)&"\"&STXT(CELLULE("nomfichier"); TROUVE("["; CELLULE("nomfichier"))+1;TROUVE("]"; CELLULE("nomfichier"))- TROUVE("["; CELLULE("nomfichier"))-1)

Ce qui me donne comme résultat par exemple :

R:\travail\test.xls

Alors que ce que je voudrais avoir, c'est pluôt :

\\serveur\PROJETS\travail\test.xls

Si quelqu'un sait comment avoir ce lien "absolu", je suis preneur

Merci d'avance !!

 

[excalibur]

Re : Récupérer dans une cellule le chemin absolu du fichier ouvert

bonjour ThunderPaT le forum un exemple par macro

Option Explicit
Sub Macro1()
MsgBox ThisWorkbook.Path
End Sub

 

[Pierrot93]

Re : Récupérer dans une cellule le chemin absolu du fichier ouvert

Bonsoir ThunderPat

par formule, je ne sais pas si cela est possible, mais en attendant les formulistes, la macro ci dessous devrait répondre à ton problème :

Sub AfficherNomServeur()
'activer la reference Microsoft scripting Runtime
Dim fs As Object, f As File, nomserveur As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(ActiveWorkbook.FullName)
nomserveur = f.Drive.ShareName
End Sub

bonne soirée
@+

Edition : Bonjour Jean-Pierre

 

[Raja]

Re : Récupérer dans une cellule le chemin absolu du fichier ouvert

Bonjour, Salut excalibur, Salut Pierrot93,

Cette formule peut aussi ramener le nom du fichier avec le chemin complèt.

=CELLULE("nomfichier";A1)

 

[ThunderPaT]

Re : Récupérer dans une cellule le chemin absolu du fichier ouvert

Merci à tous les 3 !!

@ Raja & excalibur => Vos soluces me permettent de faire la même chose que ma formule initial (càd afficher : C:\....)

@Pierrot93 => Merci c'est absolument ce que je cherchais !! Je trouve bien mon serveur.

Bonne soirée et encore merci

PS : La macro me va parfaitement bien, mais si quelqu'un avait une formule pourquoi pas