Bonjour a tous,

Je travaille actuellement sur une macro vba excel, celle ci, doit placer des images dans word, jusqu'ici ca va a peu pres, pour faire ceci voila le code que j'utilise :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 WordApp.Selection.InlineShapes.AddPicture Filename:= _
            ThisWorkbook.Path & "\" & ch.name & ".jpg", LinkToFile:=False, SaveWithDocument:= _
            True    'Pour importer chaque image
                With WordDoc.InlineShapes(1)
                    .Height = 295    'redimensionne l'image
                    .Width = 400
                    .ConvertToShape
                End With
                WordDoc.Shapes(nbWord).name = ch.name 
 
                With WordDoc.Shapes(nbWord)
                    .Top = IIf(courant = 1, 150, 445)
                    .Left = 100    'place l'image
                    .ZOrder 4
                End With
J'aimerai pouvoir placer ces images a une page precise qu'un utilisateur pourra choisir. Je n'arrive a placer les images sur une autre page que la premiere... Si quelqu'un a idee de comment faire, je suis preneur.