simonlagaffe
XLDnaute Nouveau
Bonjour,
J'ai créer un fichier excel de gestion de membres d'adhérents d'un club. J'ai ajouter une fonction permettant de créer des cartes membres (sur doc Word)automatiquement, mais par contre j'ai un problème au niveau de mes images:
J'utilise une boucle FOR(car jusqu'à 8 carte de membres maximum), et "z" comme variable pour les index des images
Voici le code:
J'aurais besoin vraiment de votre aide sur ça!! je bloque complètement sans comprendre....
J'ai créer un fichier excel de gestion de membres d'adhérents d'un club. J'ai ajouter une fonction permettant de créer des cartes membres (sur doc Word)automatiquement, mais par contre j'ai un problème au niveau de mes images:
J'utilise une boucle FOR(car jusqu'à 8 carte de membres maximum), et "z" comme variable pour les index des images
Voici le code:
Code:
Dim n As Long 'variable pour boucle
Dim z As Long 'variable pour numero image word
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
'Redimensionnement de l'image
DocWord.InlineShapes(z).Height = 87.99 '<-- 1er bug a la 3ème image
DocWord.InlineShapes(z).Width = 72.77
DocWord.InlineShapes(z).ConvertToShape
'Positionnement de l'image
DocWord.Shapes(z).Top = 110 '<-- 2eme bug, dés la première image
DocWord.Shapes(z).Left = 210
z = z + 1
Next
J'aurais besoin vraiment de votre aide sur ça!! je bloque complètement sans comprendre....