Bonjour,
J'ai besoin d'insérer plusieurs photos dans un documents word existant.
Le problème, c'est que je rencontre un bug dans ma boulce (en sachant que lorsque j'insère une seule photo celà fonctionne, mais à partir de deux photos il bug.
Voici la partie du code ou j'ai mon bug:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set DocWord = WrdApp.Documents.Open("C:\Gestionnaire REF\carte membre verso test.doc", ReadOnly:=False)
z = 1
For n = 1 To NbreCarte
    On Error Resume Next
    Fichier = "C:\Gestionnaire REF\testpilotageWord.doc"
    DocWord.InlineShapes.AddPicture Filename:= _
    "C:\Gestionnaire REF\Photos\" & NumAdh & ".jpg" 'Image à insérer dans document Word
    On Error GoTo 0
 
    DocWord.InlineShapes(z).Height = 87.99  '<-- bug à ce niveau avec 2 photos à inserer
    DocWord.InlineShapes(z).Width = 72.77
    DocWord.InlineShapes(z).ConvertToShape
    z=z+1
Next
Merci de pouvoir m'éclairer un peu plus sur ce problème