user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

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

 

Pour insérer par exemple le nom de ce dossier dans le document au point d'insertion, ajoutez cette ligne :

Selection.TypeText dossier

 

 

Statistiques

Aujourd'hui204
Hier2369
Cette semaine2573
Ce mois45233
Total depuis 200413076160

5
visiteurs actuellement en ligne

22 juin 2021