Accéder au contenu principal

Comment insérer le chemin du fichier et le nom du fichier sans extension dans un document Word ?

Author: Xiaoyang Last Modified: 2025-08-06

Normalement, nous pouvons insérer le nom du fichier ou le chemin du fichier et son nom dans le document Word en utilisant la fonction de champ Nom du fichier, mais ce nom de fichier inséré inclut l'extension .docx ou .doc. Comment pourriez-vous insérer le nom du fichier ou le chemin du fichier et son nom sans extension ?

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

Outils de productivité recommandés pour Word

Kutools pour Word : Intègre l'IA 🤖, avec plus de 100 fonctionnalités avancées qui permettent d'économiser 50 % du temps de traitement de vos documents.Téléchargement gratuit

Office Tab : Introduit des onglets similaires à ceux des navigateurs dans Word (et autres outils Office), simplifiant la navigation entre plusieurs documents.Téléchargement gratuit

Insérer le 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'endroit où vous souhaitez insérer le chemin du fichier et le nom sans extension.

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

3. Puis, cliquez sur Insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert.

Code VBA : Insérer le 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 et le nom ont été insérés dans le document sans extension, voir capture d'écran :

The file path and name are inserted into the document without extension

Remarque : Si vous souhaitez simplement insérer le nom du fichier sans extension dans le document, vous devez appliquer 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

Meilleurs outils de productivité pour Office

Kutools pour Word – Améliorez votre expérience Word avec plus de 100 fonctionnalités exceptionnelles!

🤖 Fonctionnalités IA de Kutools: Assistant IA/ Assistant en Temps Réel/ Super Polir (Conserve la mise en forme)/ Super Traduire (Conserve la mise en forme)/ Rédaction IA/ Correction AI...

📘 Maîtrise des documents: Diviser des pages/ Fusionner les documents/ Exporter une sélection dans différents formats (PDF/TXT/DOC/HTML...)/ Conversion en lot vers PDF...

✏ Édition de contenu: Recherche et remplacement en lot dans plusieurs fichiers/ Redimensionner toutes les images/ Transposer les lignes et colonnes de tableau/ Convertir le tableau en texte...

🧹 Nettoyage facile: Éliminez les espaces supplémentaires/ sauts de section/ zones de texte/ liens hypertexte/ Pour plus d’outils de suppression, consultez le groupe Supprimer...

➕ Insertion créative: Insérez des séparateurs de milliers/ cases à cocher/ boutons radio/ code QR/ code-barres/ images multiples/ Découvrez-en plus dans le groupe Insérer...

🔍 Sélection avec précision: Ciblez des pages spécifiques / tableaux / formes / paragraphes de titre / Améliorez la navigation avec davantage de Sélectionner fonctionnalités...

⭐ Fonctionnalités phares: Accédez à n'importe quel emplacement/ Insertion automatique de textes répétitifs/ Basculez entre les fenêtres de document/11 outils de conversion...

🌍 Prise en charge de plus de40 langues: utilisez Kutools dans la langue de votre choix – Anglais, Espagnol, Allemand, Français, Chinois et plus de40 autres langues!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vous souhaitez essayer ces fonctionnalités? Téléchargez Kutools pour Word dès maintenant! 🚀
 

Meilleurs outils de productivité pour Office

Kutools pour Word – 100+ outils pour Word

Téléchargement gratuit Acheter maintenant En savoir plus sur Kutools