Pour connaître le chemin complet avec le nom du document, ce n'est pas compliqué, il suffit d'utiliser la propriété FullName :
ActiveDocument.FullName
Pour connaître le chemin complet sans le nom du document, il suffit d'utiliser la propriété Path :
ActiveDocument.Path
Mais pour récupérer juste le nom du dossier dans lequel se trouve le document, cest un petit peu plus compliqué. On va donc partir du chemin Path, et on va extraire le dossier :
Sub nom_dossier()
Dim chemin As String, dossier As Variant
If ActiveDocument.path = vbNullString Then
MsgBox "Commencez par enregistrer votre document."
Exit Sub
End If
chemin = ActiveDocument.Path
dossier = Split(chemin, Application.PathSeparator)
dossier = dossier(UBound(dossier))
End Sub
Dim chemin As String, dossier As Variant
If ActiveDocument.path = vbNullString Then
MsgBox "Commencez par enregistrer votre document."
Exit Sub
End If
chemin = ActiveDocument.Path
dossier = Split(chemin, Application.PathSeparator)
dossier = dossier(UBound(dossier))
End Sub
Pour insérer par exemple le nom de ce dossier dans le document au point d'insertion, ajoutez cette ligne :
Selection.TypeText dossier
