Comment insérer le chemin du fichier ainsi que son nom, sans l’extension, dans un document Word ?

Généralement, nous pouvons insérer le nom du fichier ou Chemin du fichier et le nom dans le document Word à l’aide de la fonction de champ NomDeFichier, mais ce nom de fichier inséré inclut l’extension .docx ou .doc. Comment insérer le nom du fichier ou Chemin du fichier et le nom sans l’extension ?

Insérer Chemin du fichier et le nom ou le nom du fichier sans extension à l’aide d’un code VBA

---

Insérer Chemin du fichier et le nom ou le nom du fichier sans extension à l’aide d’un code VBA

Pour insérer le nom du fichier sans extension dans un document Word, veuillez appliquer le code VBA suivant :

1. Placez le curseur là où vous souhaitez insérer le chemin du fichier ainsi que son nom sans extension.

2. Ensuite, maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez ensuite sur Insertion > Module, puis copiez et collez le code ci-dessous dans le module vierge qui s’ouvre.

Code VBA : Insérer Chemin du fichier et le nom sans extension :

Sub InsertFileNameAndPath()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.FullName, ".")
        xPathName = VBA.Left(.FullName, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub

4. Appuyez ensuite sur la touche F5 pour exécuter ce code, et le chemin du fichier ainsi que son nom seront insérés dans le document sans extension, comme illustré ci-dessous :

Remarque: Si vous souhaitez uniquement insérer le nom du fichier sans extension dans le document, utilisez ce code :

Code VBA : Insérer uniquement le nom du fichier sans extension :

Sub InsertFileNameOnly()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.Name, ".")
        xPathName = VBA.Left(.Name, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub

---