Discussion :

[simonlagaffe]

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

[simonlagaffe]

Problème résolu grace a votre tchat!
Il suffisait de mettre z=0 et non z=1!

[ouskel'n'or]

Tu mets une gestion d'erreur... or si tu as une erreur, ton image n'est pas insérée et z = z + 1 devient faux
Teste ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Set DocWord = WrdApp.Documents.Open("C:\Gestionnaire REF\carte membre verso test.doc", ReadOnly:=False)
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(DocWord.InlineShapes.count).Height = 87.99  '<-- bug à ce niveau avec 2 photos à inserer
    DocWord.InlineShapes(DocWord.InlineShapes.count).Width = 72.77
    DocWord.InlineShapes(DocWord.InlineShapes.count).ConvertToShape
Next

Et vérifie le nom que tu obtiens avec "C:\Gestionnaire REF\Photos\" & NumAdh & ".jpg" (avec un msgbox, ou avec un Debug.print -> Editeur VBA -> Affichage -> Fenêtre Exécution)
A+

[ouskel'n'or]

Le problème de ta gestion d'erreur reste vrai ! Si tu as une erreur de nom de fichier, z = z + 1 est faux. Utilise DocWord.InlineShapes.count
A toutes fins utiles

[simonlagaffe]

Un grand merci à toi ouskel'n'or!!!
Avec ta réponse ça m'as permis de débloquer toute la partie d'insertion, redimmensionnement et positionnement des images dans word depuis Excel!
Je galéré dessus depuis quelques jours et commencé à désespérer!!
Le problème venait bien de la variable "z", et j'ai donc remplacer celle ci par "DocWord.InlineShapes.Count" comme tu me l'as conseillé!
Une fois que celà fonctionné, j'ai rajouter la fonction pour positionner ces images!
Voici le code (en espérant que ça seras utilie à d'autre!)

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
16
'***INSERTION DES IMAGES***
        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
        'Redimensionnement de l'image
        DocWord.InlineShapes(DocWord.InlineShapes.Count).Height = 87.99 'Longueur
        DocWord.InlineShapes(DocWord.InlineShapes.Count).Width = 72.77 'Largeur
        DocWord.InlineShapes(DocWord.InlineShapes.Count).ConvertToShape
 
        'Positionnement de l'image
        DocWord.Shapes(DocWord.Shapes.Count).Top = 110 'Positionnement Vertical
        DocWord.Shapes(DocWord.Shapes.Count).Left = 210 'Positionnement Horizontal
        DocWord.Shapes(DocWord.Shapes.Count).ZOrder msoBringInFrontOfText  'image au premier plan devant le texte
        'DocWord.Shapes(z).ZOrder msoSendBehindText'option pour image en arriere plan derriere le texte

Et vive ce forum!!!