sos pb copier tableau excel dans feuille word abve collage special(image métafichier

[pasq1]

j'ai dans une feuille excel 3 tableaux que je veux exporter dans une feuille word.

je veux que ces tableaux soient collés avec la commande collage special(image métafichier amélioré)

j'ai crée une ptite macro ci jointe mais les fichiers collés dans word n'apparaissent
pas en image.


de plus je ne veux pas retailler l'image.

qui peut m'aider?

merci

Sub EnvoyerTableauxExcelVersWord()
Dim DocWord As Word.Document
Dim AppWord As Word.Application

Dim tabl1 As Object
Dim tabl2 As Object
Dim tabl3 As Object

Set tabl1 = Range("b2:g5")
Set tabl2 = Range("j8:r12")
Set tabl3 = Range("u15:x26")

Set AppWord = CreateObject("Word.Application")

Set DocWord = AppWord.Documents.Open("d:/maquet_v1.doc")
With DocWord

tabl1.Copy
.Bookmarks("Signet" & 1).Range.Paste
.Tables(1).AutoFitBehavior 2

tabl2.Copy
.Bookmarks("Signet" & 2).Range.Paste
.Tables(1).AutoFitBehavior 2

tabl3.Copy
.Bookmarks("Signet" & 3).Range.Paste
.Tables(1).AutoFitBehavior 2

Application.CutCopyMode = False

End With

AppWord.Visible = True

End Sub

 

[Sylvain]

Re : sos pb copier tableau excel dans feuille word abve collage special(image métafi

Bonjour,

Et si à la place de Copy, tu mets CopyPicture ?