Microsoft 365 Copier dans Excel et coller dans Word à l'emplacement du curseur

[dadoo99]

Bonjour à toutes et tous,

J'ai cherché sur plusieurs forum, mais rien trouver de concluant.
Voici ce que je souhaite réaliser : Copier la sélection de cellules Excel et la coller sous forme d'image dans Word à l'emplacement actif du curseur.

J'arrive à tout faire sauf à positionner mon "collage" à l'endroit où se trouve le curseur.

Voici mon code :

Sub Copier_Colle_Image_Cellule_selectionnée()

    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Set wdapp = GetObject(, "Word.Application")
    wdapp.activedocument.Range(0, 0).PasteSpecial Placement:=wdInLine
    wdapp.Activate


End Sub

Merci pour votre aide.

 

[patricktoulon]

l’inconvénient avec la méthode de Eric c'est qu'ajouter un paragraphe change le count du range de plus de 1
si tu dois faire plusieurs insertions ben c'est pas de la tarte pour le move

un paragraphe c'est un paragraphe c'est pas un insert string ou autre
ici tu insert une image de ta sélection tu ne dois augmenter le range pour (unit) que de 1 et tu n'aura pas de soucis à avancer dans le document
donc tout simplement .paste

je dis ça j'dis rien moi

 

[dadoo99]

Resalut Patrick,
Merci pour l'info. J'ai fais un test d'insertions multiples avec le code d'Eric et cela fonctionne toujours, même si j'insère à plusieurs endroits du documents word.
Mais merci, je sais que je devrai surveiller cela.