Accéder au contenu principal

Comment insérer plusieurs images avec leur nom de fichier dans un document Word ?

Author: Xiaoyang Last Modified: 2025-05-27

Dans un document Word, vous pouvez rapidement insérer plusieurs images à la fois en utilisant la fonction Insérer. Cependant, il peut arriver que vous deviez inclure le chemin du fichier et les noms de fichiers comme légendes lors de l'insertion des images. Cela peut être 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 guiderons à travers les étapes pour insérer efficacement plusieurs images ainsi que leurs chemins de fichiers et noms de fichiers comme légendes dans un document Word, vous aidant ainsi à gérer vos images plus efficacement.

Insérer plusieurs images avec leur nom de fichier en utilisant un code VBA

Insérer plusieurs images avec leur nom de fichier en utilisant Kutools pour Word

Insérer plusieurs images avec leur nom de fichier en utilisant un code VBA

Le code VBA suivant vous aide à insérer plusieurs images ainsi que leur chemin de fichier et leur nom comme légendes. Veuillez suivre ces étapes :

  1. Maintenez Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
  2. Cliquez sur Insérer > 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 apparaîtra, où vous pourrez sélectionner le dossier contenant les images.

    4. Select a folder to insert pictures from

  4. Cliquez sur OK, et toutes les images du dossier sélectionné seront insérées dans le document Word, avec leur chemin de fichier et leur nom inclus comme légendes.

    Selected pictures are inserted into the document with filenames

Insérer plusieurs images avec leur nom de fichier en utilisant Kutools pour Word

L'utilisation de Kutools pour Word offre une méthode efficace pour insérer plusieurs images ainsi que leurs chemins de fichiers et noms dans un document Word. Cette fonctionnalité fait gagner du temps et garantit la précision par rapport à l'ajout manuel des détails des fichiers. Avec sa fonction Images, vous pouvez accomplir cette tâche sans effort.

Kutools for Word,doté d'IA 🤖, offre plus de 100 fonctionnalités pratiques pour simplifier vos tâches.

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

  1. Cliquez sur Kutools > Multi-Image.

    Multi-Picture option on the Kutools tab on the ribbon

  2. Dans la fenêtre contextuelle Insérer des images boîte de dialogue, effectuez les opérations suivantes :
    • Cliquez sur Ajouter des fichiers ou Ajouter un dossier pour sélectionner les images que vous souhaitez insérer.
    • Cochez l'option Insérer le chemin de chaque image comme légende en bas à gauche de la boîte de dialogue.
    • Cliquez sur le bouton Insérer pour insérer les images en une seule fois.

      Insert Pictures dialog box

  3. Après avoir inséré les images, le chemin de fichier et le nom de chaque image seront ajoutés comme légende.

    Selected pictures are inserted into the document with filenames

Kutools pour Word est l'add-in ultime pour Word qui rationalise votre travail et améliore vos compétences en traitement de documents. Obtenez-le maintenant !

Meilleurs outils de productivité pour Office

Kutools pour Word - Élevez votre expérience Word avec plus de 100 fonctionnalités remarquables !

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

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter la sélection dans divers 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 du tableau / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminer les espaces supplémentaires / Sauts de section / Zones 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 / Cases à cocher / Boutons radio / Code QR / Code-barres / Images multiples / Découvrez plus dans le groupe Insérer...

🔍 Sélections précises : Identifier des pages spécifiques / Tableaux / Formes / Paragraphes de titre / Améliorez la navigation avec plus de fonctionnalités de sélection...

⭐ Améliorations étoilées : Naviguer vers n'importe quel emplacement / Insertion automatique de texte répétitif / Basculer entre les fenêtres de document /11 outils de conversion...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vous voulez essayer ces fonctionnalités ? Téléchargez Kutools pour Word 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