Insertion image vers Word

Version imprimable

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:

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

11/09/2008, 11h15
simonlagaffe

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

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:

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+

11/09/2008, 11h22
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

Un grand merci à toi ouskel'n'or!!!:king:
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:

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!!! :king::yaisse2: