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