Image copié dans Excel à coller dans le document actif Word

Version imprimable

Bonjour,

J'ai réussi à stocker les cellules de mon tableau Excel dans le presse papier.
Là où je sèche c'est pour coller cette image dans le document Word actif.

Pouvez vous m'aider ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Copiecolleimagecellule()
Dim Rg As Range, z$
Dim wApp As Object
Set wApp = CreateObject("Word.Application")
 
z$ = "A1:G30"                 'range de données à capturer
Set Rg = ActiveSheet.Range(z$): Rg.CopyPicture xlScreen, xlPicture: DoEvents ' copie du range en image
'MsgBox "Image copiée"
'Documents("Doc1.docx").Activate
'wordApp.Visible = True
    If Documents.Count >= 1 Then
        MsgBox ActiveDocument.Name
    Else
        MsgBox "No documents are open"
    End If
End Sub

25/01/2022, 20h31
yoyovento

personne ne peut m'aider ?
s'il vous plait

j'ai un peu avancé mais je voudrais coller là où je suis :)

Code:

1
2
3
4
5
Sub Copiecolleimagecellule 3()
Range("A1:B45").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set wdapp = GetObject(, "Word.Application")
wdapp.activedocument.Range(0, 0).PasteSpecial

Hello,

Il te faut utiliser le "selection" de l'objet "wdApp".

Code:

1
2
3
4
5
6
7
8
9
Sub Copiecolleimagecellule_4()
 
Dim wdApp As Object
 
    Range("A1:B4").CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Set wdApp = GetObject(, "Word.Application")
    wdApp.Selection.Paste
 
End Sub