P pasq1 XLDnaute Nouveau 13 Juin 2011 #1 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
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 XLDnaute Occasionnel 14 Juin 2011 #2 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 ? Vote positif 0 Vote négatif
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 ?