Comment insérer plusieurs images dans un document Word tout en affichant automatiquement leur nom de fichier ?

Dans un document Word, vous pouvez insérer rapidement plusieurs images à la fois à l’aide de la fonction Insertion. Toutefois, il peut arriver que vous ayez besoin d’inclure le Chemin du fichier et les noms de fichiers en tant que légendes lors de l’insertion des images. Cela s’avère particulièrement utile pour la documentation, les rapports ou les présentations où il est important de référencer la source des images.

Dans ce tutoriel, nous vous guidons pas à pas pour insérer efficacement plusieurs images dans un document Word, accompagnées de leur chemin de fichier et de leur nom en tant que légendes, afin de mieux gérer vos images.

Insérer plusieurs images avec leur nom de fichier à l’aide d’un code VBA

Insérer plusieurs images avec leur nom de fichier à l’aide de Kutools pour Word

Insérer plusieurs images avec leur nom de fichier à l’aide d’un code VBA

Le code VBA suivant vous permet d’insérer plusieurs images, accompagnées de leur chemin de fichier et de leur nom en tant que légendes. Voici la marche à suivre :

1. Maintenez enfoncées les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion>Module, puis collez le code suivant dans le module ouvert :

   Sub PicWithCaption()
       Dim xFileDialog As FileDialog
       Dim xPath, xFile As Variant
       On Error Resume Next
       Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
       If xFileDialog.Show = -1 Then
           xPath = xFileDialog.SelectedItems.Item(1)
           If xPath <> "" Then
               xFile = Dir(xPath & "\*.*")
               Do While xFile <> ""
                   If UCase(Right(xFile, 3)) = "PNG" Or _
                       UCase(Right(xFile, 3)) = "TIF" Or _
                       UCase(Right(xFile, 3)) = "JPG" Or _
                       UCase(Right(xFile, 3)) = "GIF" Or _
                       UCase(Right(xFile, 3)) = "BMP" Then
                       With Selection
                           .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                           .InsertAfter vbCrLf
                           .MoveDown wdLine
                           .Text = xPath & "\" & xFile & Chr(10)
                           .MoveDown wdLine
                       End With
                   End If
                   xFile = Dir()
               Loop
           End If
       End If
   End Sub
   

3. Appuyez sur F5 pour exécuter le code. Une fenêtre Parcourir s’ouvrira, vous permettant de sélectionner le dossier contenant les images.



4. Cliquez sur OK, et toutes les images du dossier sélectionné seront insérées dans le document Word, accompagnées de leur Chemin du fichier et de leur nom en tant que légendes.

   

Insérer plusieurs images avec leur nom de fichier à l’aide de Kutools pour Word

L’utilisation de Kutools pour Word constitue une méthode efficace pour insérer plusieurs images accompagnées de leur chemin de fichier et de leurs noms dans un document Word. Cette fonctionnalité vous fait gagner du temps et garantit une plus grande précision par rapport à la saisie manuelle des détails d’ajout de fichiers. Grâce à sa fonction Images, vous accomplirez cette tâche sans effort.

Après avoir installé Kutools pour Word, suivez ces étapes :

1. Cliquez sur Kutools>Images multiples.

   

2. Dans la boîte de dialogue Insérer des imagesqui s’affiche, effectuez les opérations suivantes :
   • Cliquez sur Ajouter des fichiers ou sur Ajouter un dossier pour sélectionner les images que vous souhaitez insérer.
   • Cochez l’option Insérer le chemin du fichier de chaque image comme légende en bas à gauche de la boîte de dialogue.
   • Cliquez sur le bouton Insérerpour insérer toutes les images d’un seul coup.

     

3. Une fois les images insérées, le chemin du fichier et le nom de chaque image seront automatiquement ajoutés en tant que légende.

   

Meilleurs outils de productivité Office

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

🤖Fonctionnalités Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (conserver le format) / Super Traduire (conserver le format) / Rédaction IA / Correction IA…

📘Maîtrisez vos documents : divisez les pages, fusionnez les documents, exportez la sélection dans divers formats (PDF, TXT, DOC, HTML…) ou convertissez-les par lots en PDF…

✏Édition du contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes d’un tableau / Convertir un tableau en texte…

🧹Nettoyage simplifié : supprimez en un clin d’œil les espaces superflus, les sauts de section, les zones de texte ou les liens hypertexte. Pour encore plus d’outils de suppression, rendez-vous dans le groupe Supprimer…

➕Insertions créatives : insérez des séparateurs de milliers, une case à cocher, un bouton radio, un code QR, un code-barres ou plusieurs images. Découvrez-en davantage dans le groupe Insertion…

🔍Sélections précises : ciblez exactement les pages spécifiques, les tableaux, les formes ou les paragraphes de titre. Améliorez votre navigation grâce à davantage de fonctions de dé sélection…

⭐Améliorations phares : Naviguer vers n’importe quel emplacement / Insérer automatiquement du texte répétitif / Basculer entre les documents Windows / 11 outils de conversion Outils de...

🌍Prend en charge plus de 40 langues : Utilisez Kutools dans votre langue préférée – disponible en anglais, espagnol, allemand, français, chinois et plus de 40 autres langues !

 

Téléchargement gratuit     Acheter maintenant     En savoir plus

 

---

Office Tab- Apporte une interface à onglets à Office et rend votre travail bien plus facile

• Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !

Téléchargement gratuit     Acheter maintenant     En savoir plus

 

---

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

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

📦 Obtenez les 5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagner du temps et boostez immédiatement votre productivité

⬇️ Télécharger maintenant🎁 Acheter la suite complète📖 En savoir plus

Meilleurs outils de productivité Office

Kutools pour Word- Outils 100+ pour Word

• 🤖Kutools IA Fonctionnalités:Assistant IA/Assistant en Temps Réel/Super Polish/Super Traduire/Rédaction IA/Correction AI
• 📘Maîtrise des documents:Diviser les pages/Fusionner les documents/Conversion par lots en PDF
• ✏Édition du contenu:Recherche et remplacement en lot/Redimensionner toutes les images
• 🧹Nettoyage simplifié:Supprimer les espaces superflus/Supprimer Saut de section
• ➕Insertions créatives:Insérer des séparateurs de milliers/Insérer Case à cocher/Créer Code QR
• 🌍Prend en charge plus de 40 langues : Kutools parle votre langue – plus de 40 langues disponibles !

Téléchargement gratuitAcheter maintenantEn savoir plus sur Kutools