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 : Sélectionner tout - Visualiser dans une fenêtre à part
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