Macro pour insérer une image dans Word à partir d'Excel

Bonjour,

J'étais venue chercher des conseils il y a quelques mois, et j'avais été super bien aidée, donc je retente ma chance

Je dois faire une macro publipostage à partir d'Excel pour créer des docs Words (chaque ligne d'Excel = 1 doc Word)

Sur chaque doc Word, je dois faire apparaitre une image (différente en fonction de la ligne) mais je ne sais pas bien comment faire pour que cela se fasse automatiquement dans ma macro.

J'ai tenté en mettant un lien hypertexte mais cela n'a pas fonctionné...

Je vous mets les fichiers en questions en PJ si ça peut aider...

Et la macro que j'ai pour le moment:

Sub Photos()
'
' Photos Macro
'
'
'Variables:
Dim i As Integer
' nombre de fiches à générer
Dim nbredoc As Integer
' répertoire ou seront générées les fiches
Dim dirdoc As String
' variable de travail : nom de la fiche générée
Dim Filename As String
' repertoire ou les documents generes sont sauvegardes
Dim sauvegarde As String
' definition du nom du document cree
Filename = codeEtude & "Photos.doc"

codeEtude = ActiveDocument.MailMerge.DataSource.DataFields(1).Value

' Nombre de documents a generer
With ActiveDocument.MailMerge
        With .DataSource
            nbredoc = .RecordCount
        End With
   End With

' nbredoc = 10

For i = 1 To nbredoc
'creation du document
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .MailAsAttachment = False
        .MailAddressFieldName = ""
        .MailSubject = ""
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = i
            .LastRecord = i
        End With
        .DataSource.ActiveRecord = i
        .Execute Pause:=True
        codeEtude = .DataSource.DataFields(1).Value

       'codeEtude = ActiveDocument.MailMerge.DataSource.DataFields(1).Value
    End With

 'Enregistrement du document publiposté
     With ActiveDocument

        .SaveAs "C:\Users\Desktop\test\" & codeEtude & "_Photo.doc"
        .Close
    End With
codeEtude = ActiveDocument.MailMerge.DataSource.DataFields(1).Value
Next i

End Sub

Merci d'avance pour votre aide!

Lilas

En fait j'ai fini par trouver en poussant mes recherches.

Merci quand même.

Lilas