Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

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

Author Xiaoyang Last modified

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 🤖, plus de 100 fonctionnalités avancées qui réduisent de 50 % le 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 – Optimisez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖 Fonctionnalités de Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (préserver le format) / Super Traduire (préserver le format) / Rédaction IA / Correction AI...

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

✏ Modification du texte : Recherche et remplacement en lot sur plusieurs fichiers / Redimensionner toutes les images / Transposer le tableau lignes et Colonnes / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminez les espaces supplémentaires / Sauts de section / Zone de texte / Liens hypertexte / Pour plus d’outils de suppression, rendez-vous dans le groupe Supprimer...

➕ Insertion créative : Insérer des séparateurs de milliers / Case à cocher / Bouton radio / Code QR / Code-barres / Plusieurs images / Découvrez davantage dans le groupe Insérer...

🔍 Sélection précise : Ciblez des pages spécifiques / Tableaux / Forme / Paragraphe de titre / Améliorez la navigation avec plus de fonctions de Sélectionner...

⭐ Optimisations exclusives : Accéder à n’importe quelle plage / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres du document /11 outils de conversion...

🌍 Prend en charge plus de40 langues : Utilisez Kutools dans la langue de votre choix – Prise en charge de l’Anglais, de l’Espagnol, de l’Allemand, du Français, du Chinois et de bien d’autres encore !

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

✨ Kutools pour Office – Une installation, cinq outils puissants !

Inclus Office Tab Pro · Kutools pour Excel · Kutools pour Outlook · Kutools pour Word · Kutools pour PowerPoint

📦 Obtenez les5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagnez du temps et augmentez votre productivité instantanément

Meilleurs outils de productivité pour Office

Kutools pour Word – 100+ outils pour Word

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