Discussion :

[scoubi77]

Bonsoir à tous,

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

Pour du texte j'utilise une fois le Document Word ouvert :

Code :

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

Ledoc.Content.Find.Execute findtext:="<BALISE1>", ReplaceWith:="" & "" & Feuil3.Range("A1").Value, Replace:=wdReplaceAll

en utilisant une Balise qui est précisément là ou je souhaite insérer le texte.
Évidement vue que c'est une image je pense bien que cela ne va pas marcher !

je connais le nom de mon image, Image61

donc pour la récupérer depuis ma feuille pas de soucis :

Code :

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

Feuil3.Shapes("Image61").Copy

La copier dans Word :

Code :

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

1
2
3
4
5
  Set Ledoc = CreateObject("Word.Application")
  Ledoc.Visible = True
Feuil3.Shapes("Image61").Copy
        Ledoc.Selection.Paste
.......

Mon problème c'est comment lui imposer l'endroit précis ou je veux la coller ?

Merci pour vos aides

[78chris]

Bonjour

Voir l'utilisation des signets plutôt que des balises textuelles

[scoubi77]

Merci 78chris pour la réponse,

Ok pour les signets mais si non dans l'absolu comment atteindre une zone de texte depuis Excel dans mon document Word ?

[scoubi77]

Bon j'ai essayé de trouver les zones de Texte dans mon document Word,

Code :

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

1
2
3
4
Dim objet As Variant 
For Each objet In Ledoc.Shapes 
  MsgBox (objet.Name) 
Next objet

C'est assez déroutant car il me trouve une zone texte dite : Textbox2


Bon j'ai un peu avancé du coup j'arrive bien à sélectionner la Zone Texte

Code :

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

1
2
3
4
5
Dim objet As Variant
For Each objet In Ledoc.Shapes
  Zone = (objet.Name)
Next objet
Ledoc.Shapes(Zone).Select

Maintenant il faut que j'arrive a y coller mon image

[78chris]

Bonjour

Il est plus simple de coller une image comme un texte (paragraphe) et non dans un textbox...

J'ai créer des dizaines de docs avec moult images et n'ai quasi jamais utilisé de shapes qui posent plus de problèmes...

[scoubi77]

Merci, un exemple, une méthode Vba pour argumenter ?

Je patauge depuis hier soir !

ça veut dire Utiliser mes balises ?

Pour l'instant je vérifie que la forme existe bien dans la feuille Excel ensuite je cherche la zone de texte dans le Document Word
qui est Text box 2, je la trouve bien, j'ai vérifier que la forme copiée est bien mon image en utilisant Paint.
Mais il bloque au moment du collage

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
 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é à :

Code :

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

1
2
 
.Selection.Paste

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