récupérer le chemin d'accès du document ouvert [Résolu]

[tonnick]

Bonjour,
j'ai réalisé un document word en lien avec un tableur excel situé dans le même dossier. Le problème est que ce dossier va être copier par les utilisateurs et coller sur leur pc persos. J'ai donc besoin de connaitre le chemin d'accès du fichier word pour créer ma liaison avec excel. Voilà ce que donne mon code dans Word:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Lancer() 

Dim chemin As String
chemin =????

Dim ExcApp As Object
Dim Fichier As String
Set ExcApp = CreateObject("excel.Application")
ExcApp.Visible = True
Fichier = chemin & "bibliothèque.xlsm"
ExcApp.Workbooks.Open (Fichier)
Set ExcApp = Nothing
End Sub

Pour information j'ai trouvé que dans excel il faut utiliser thisworkbook.path, mais je n'ai pas trouvé pour word.

Merci d'avance
Merci d'avance

[Heureux-oli]

Code :

1
2
 
ActiveDocument.Path

[tonnick]

Merci beaucoup ça marche