XL 2016 macro : copier un tableau excel dans word en métafichier

Adapiano25

XLDnaute Nouveau
Bonjour,
Je balbutie en VBA et je rencontre le problème suivant : je cherche à copier un tableau excel dans word à un endroit précis et en format métafichier (ca résoud normalement les problèmes de taille normalement et la qualité du rendu est très bonne). Sauf qu'avec mon code cette dernière partie ne fonctionne pas, puisque la taille du tableau déborde largement de la feuille word. (alors que lorsque je le fais "manuellement" ça marche très bien..)
J'ai rédigé ceci (la première action est de récupérer la date du jour qui est renseignée dans mon fichier Excel).. donc je l'ai laissé ici même si ça n'a aucun rapport.
Si vous avez des idées je suis preneuse. Merci par avance pour vos réponses.
@++

Sub Edition_Factures()

Dim WApp As New Word.Application
Dim WDoc As Word.Document
Dim WChemin As String

Sheets("Stats").Activate (copie de la date du jour)
Range("A1").Copy

WChemin = ThisWorkbook.Path
Set WDoc = WApp.Documents.Open(WChemin & "\..\Base Factureblabla.docx")
WApp.Visible = True
WDoc.Activate

WApp.Selection.Goto what:=wdGoToBookmark, Name:="Date_jour" (accès au signet)
WDoc.ActiveWindow.ActivePane.Selection.PasteAndFormat (wdFormatPlainText) (collage date)

Sheets("Facture").Activate (copie du tableau)
Range("A3").CurrentRegion.Copy

WApp.Selection.Goto what:=wdGoToBookmark, Name:="Tab_Excel" (accès au signet)
WDoc.ActiveWindow.ActivePane.Selection.Pastespecial(wdPasteMetafilePicture) (collage tableau)

Application.CutCopyMode = False

Set WDoc = Nothing
Set WApp = Nothing

End sub
 

Adapiano25

XLDnaute Nouveau
Bonjour, re,
Finalement j'ai trouvé, il fallait améliorer la commande de collage ! youpi
ci-dessous la solution :
WApp.Selection.Goto what:=wdGoToBookmark, Name:="Tab_Excel"
WDoc.ActiveWindow.ActivePane.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False
et comme je l'ai lu souvent, l'enregistreur de macro est ton meilleur ami (ici il fallait actionner celui de word).
Bon réveillon à tous !
 

Discussions similaires