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

ThunderPaT

XLDnaute Nouveau
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 :
Code:
=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 !!
 

Pierrot93

XLDnaute Barbatruc
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 :

Code:
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
 
Dernière édition:

Raja

XLDnaute Accro
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.

Code:
=CELLULE("nomfichier";A1)
 
Dernière édition:

ThunderPaT

XLDnaute Nouveau
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 !! :D 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 :)
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 896
Messages
2 093 387
Membres
105 716
dernier inscrit
jrmdprt