user_mobilelogo

Word 365

Vous saurez tout !

 

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'hui2921
Hier1479
Cette semaine2921
Ce mois44084
Total depuis 200412722529

21
visiteurs actuellement en ligne

18 janvier 2021