Insérer une image dans un cellule par copier coller [Résolu]

[jalseth]

Bonjour à tous.

J'ai un problème que je n'arrive pas à résoudre. J'ai une cellule d'un tableau WORD qui doit contenir du texte et une image provenant d'un copier/coller depuis EXCEL.
Je tente de sélectionner le dernier paragraphe qui est normalement vide pour ajouter l'image. Le souci, c'est que quand je fais cela, tout ce que j'avais écrit précédemment dans la cellule se retrouve effacé par l'image.

Je ne sais pas si il y a un collage spécial ou est ce que je choisi la bonne commande je ne sais pas.

Si vous pouviez m'aider, merci d'avance

Voila le code que j'utilse mais qui m'écrase le texte prédement inséré:

Code :

1
2
3
	ToolexcelDoc.Sheets("Calculation sheet").Range(plage_schema).CopyPicture
WordTable.Cell(8,1).Range.Paragraphs.Add
WordTable.Cell(8,1).Range.Paragraphs.Last.Range.Paste

[jalseth]

JE donnela solution pour ceux que ca intéresse. Je ne sais pas pourquoi mais je dois me placer a l'avant dernier paragraphe pour coller sans effacer!

Voila le code:

Code :

1
2
3
4
5
 
 
ToolexcelDoc.Sheets("Calculation sheet").Range(plage_schema).CopyPicture
WordTable.Cell(8,1).Range.Paragraphs.Add
WordTable.Cell(8,1).Range.Paragraphs(WordTable.Cell(8,1).Range.Paragraphs.Count-1).Range.Paste

[Heureux-oli]

La raison pour laquelle tu dois te déplacer est que lorsque tu utilises l'objet range pour une cellule, c'est toute la cellule qui est sélectionnée. Que ce soit le dernier, l'avant dernier, le fait de déplacer la sélection dans la cellule suffit.

Un EndKey Unit:=wdLine aurait fonctionné aussi.