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
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