bonjour!


word vba insérer une image dans chaque page

cette commande permet d’insérer une image à l'endroit de selection :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Selection.InlineShapes.AddPicture FileName:="G:\image.jpg", LinkToFile:= _
        False, SaveWithDocument:=True

cette commande permet d'inserer une image dans le document + positionnement :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 Set pic = ActiveDocument.Shapes.AddPicture(FileName:=file, _
            LinkToFile:=True, SaveWithDocument:=msoFalse, Left:=150, Top:=-20, Width:=70, Height:=90)
y'aurait-t-il une commande qui permet d’insérer une image dans chaque page du document en précisant le positionnement ????


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
genre  :   Set pic = activePage.Shapes.AddPicture(FileName:=file, _
            LinkToFile:=True, SaveWithDocument:=msoFalse, Left:=150, Top:=-20, Width:=70, Height:=90)

activepage.shape.addpicture n'existe pas ..


que ce que je peux faire pour réaliser ça?? insérer une image dans chaque page du document en précisant le positionnement




y'a-t-il un moyen pour préciser la page et le positionnement pour insérer l'image


POUR PLUS DE DETAILS : j'ai utilisé la fonction de fusion et publipostage pour créer des cartes d'identification de produit , il ne manque que la photo qui correspond à chaque produit => donc à chaque page; il me reste à pouvoir utiliser :



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Set pic = activePage.Shapes.AddPicture(FileName:=file, _
            LinkToFile:=True, SaveWithDocument:=msoFalse, Left:=150, Top:=-20, Width:=70, Height:=90)
mais celle-là marche pas.