Copier une image depuis une feuille Excel et la coller dans Word à un emplacement précis

zephir94

XLDnaute Impliqué
Bonjour à tous,

Je voudrais récupérer une image qui est dans une feuille de mon classeur Excel (Image61) et la coller dans un document Word, mais à un emplacement bien précis du document Word.

J'ai crée une zone Texte qui se nomme Text box 2.

J'arrive à la trouver mais mon code bloque quand j'essai de coller mon image dedans !

Voici le code :
VB:
Set Ledoc = traitementTexte.Documents.Open(ActiveWorkbook.Path & "/DOC/SYSTEM/BE.doc")
For Each Ma_Forme In Feuil3.Shapes
Feuil3.Select
If Ma_Forme.Name = "Image61" Then
Feuil3.Shapes("Image61").Copy
For Each objet In Ledoc.Shapes
  Zone = (objet.Name)
Next objet
Ledoc.Shapes(Zone).Select
With Ledoc.Shapes(Zone)
.Selection.Paste
End With
Exit For
Else
End If
Next Ma_Forme

arrivé à :

VB:
.Selection.Paste

J'ai une erreur 438, propriété ou non gérée par cet objet

Merci par avance pour vos aides
 

zephir94

XLDnaute Impliqué
Certes Ce lien n'existe plus,
Mais on me proposait uniquement les signets chose que je ne voulait pas utiliser ;)
VB:
Paragraphs

C'est quoi ? un signets ? tu peux m'en dire plus ?
J'ai utilisé il y a quelques temps les signets et ça a été une bérésina.
Tous les deux jours j'étais obligé de remettre le doc Word sur le serveur !!!
 

Staple1600

XLDnaute Barbatruc
Re

@zephir94
Certes, quoi ?
Peu importe ce quel'on a t'a proposé, le fait est que dans ton premier message, nulle part tu indiques que ta question est posée sur plusieurs forums.
Du coup, j'aurai pu me retrouver dans les 3 points évoqués dans le message#15 ;)

PS:
Tu as testé ma macro test sur ton PC ?
Cela fonctionne ou pas?
 

zephir94

XLDnaute Impliqué
Oui j'ai testé et ça marche parfaitement et je t'en remercie infiniment, mais moi cette image représente en fait une signature d'ou mon intérêt
de devoir la positionner exactement là où je le souhaite :D
Du coup comment avec ton exemple comment lui imposer un emplacement défini ?
 

zephir94

XLDnaute Impliqué
Et bien là était mon problème à un endroit précis du document sous des champs vers le bas de page juste en dessous du Nom du responsable.
D’où mes recherches pour L’insérer sous le nom de ce dernier.
Le côté pratique de ma zone de texte est que je peux la déplacer où je le veux :rolleyes:
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 010
Membres
101 866
dernier inscrit
XFPRO