Inserer image Excel vers bookmarks Word

Question

Bonjour à tous, Je me remets dans le VBA après plusieurs années et j'ai besoin de vos lumières;

Je souhaite modifier un document word selon les données présentes dans mes cellules Excel. J'utilise de simple signets dans le modèle word.

Quand il s'agit de texte, pas de problème avec mon code : worddoc.Bookmarks("Nom_du_signet").Range.Text = Range("B12").Value

Seulement, je souhaite faire la même chose pour insérer une image, que selon l'image qui apparait dans Excel, qu'elle s'insère dans Word.

Aurriez-vous des pistes ?

Je vous joins mon code.

Set wordapp = CreateObject("word.Application")
Set worddoc = wordapp.Documents.Open("C:\..........\test1.docx")

worddoc.Bookmarks("Nom_client").Range.Text = Range("B1").Value
worddoc.Bookmarks("Civilite_client").Range.Text = Range("B2").Value
worddoc.Bookmarks("Adresse_client").Range.Text = Range("B3").Value
worddoc.Bookmarks("CP_client").Range.Text = Range("b4").Value
worddoc.Bookmarks("Ville_client").Range.Text = Range("B5").Value
worddoc.Bookmarks("Type_xxxxx").Range.Text = Range("B6").Value
worddoc.Bookmarks("Type_xxxxx").Range.Text = Range("B7").Value
worddoc.Bookmarks("Type_xxxxxx").Range.Text = Range("B8").Value
worddoc.Bookmarks("Composition_xxxxx").Range.Text = Range("B9").Value
worddoc.Bookmarks("Marque_xxxxx").Range.Text = Range("B11").Value
worddoc.Bookmarks("Modèle_xxxxxx").Range.Text = Range("B12").Value

worddoc.ExportAsFixedFormat OutputFileName:= _
    "_" & ".pdf", ExportFormat:= _
    17, OpenAfterExport:=True, OptimizeFor:= _
    0, Range:=0, from:=1, to:=1, _
    Item:=0, IncludeDocProps:=True, KeepIRM:=True, _
    CreateBookmarks:=0, DocStructureTags:=True, _
    BitmapMissingFonts:=True, UseISO19005_1:=False

worddoc.Close savechanges:=False
wordapp.Quit

Je vous remercie d'avance !

Rag02700 · Answer

Et comme ceci pour la partie image : sheets(1).shapes(1).CopyPicture Appearance:=xlScreen, Format:=xlPicture wdoc.Bookmarks("Bkmrk1").Range.Paste Application.CutCopyMode = False ça donne quoi ...