user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

 

En promotion tout le mois d'octobre 2020
600 pages !

4,90 € (au lieu de 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'hui102
Hier3302
Cette semaine3404
Ce mois71060
Total depuis 200412503340

7
visiteurs actuellement en ligne

27 octobre 2020