Macro pour redimensionner tableau excel sous word

manu28

XLDnaute Nouveau
Bonjour à tous.
J'ai un problème avec une de mes macros. Le but est d'exporter un tableau excel sous word et de le redimensionner pour qu'il corresponde à la largeur de la page, le tout avec une macro excel.
Pour cela j'ai créé un signet dans mon doc word et j'arrive à exporter mon tableau excel au bon endroit. Par contre impossible de le redimensionner. C'est le premier tableau que j'insère, juste après la table des matières.
Quelqu'un aurait une idée?
Pour info, j'ai activé "Microsoft Word 12.0 Object Library", "Microsoft Excel 12.0 Object Library" et "Microsoft Office 12.0 Object Library".

Merci de votre aide!!!

Voici mon code:

Sub BoutonGeneration_Clic()
' Déclaration des variables
Dim wrdapp As Object 'Word.Application
Dim monDoc As Object 'Word.Document
Dim nomFicOrigWord
Dim nomFicCibleWord
Const wdGoToBookmark = -1

'Lancement d'une instance Word
Set wrdapp = CreateObject("Word.Application")

'Rendre Word visible
wrdapp.Visible = True

' Récupération des noms des fichiers Word
nomFicOrigWord = Range("D4").Value ' nom du fichier contenant la structure du rapport
nomFicCibleWord = Range("D5").Value ' nom du fichier de sauvegarde du rapport généré

'Ouvrir le document word source
wrdapp.Documents.Open (nomFicOrigWord)
Set monDoc = wrdapp.ActiveDocument

' Copie les données depuis Excel
ThisWorkbook.Worksheets("Donnees generales").Range("B2:K29").Copy
With wrdapp.Selection
' va à l'emplacement du signet 'Name'
.Goto What:=wdGoToBookmark, Name:="tableau_donnees_generales"
' copie la sélection en tant que tableau Excel
.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False
'*****************************************************************
' Début de la zone qui pose probleme
'*****************************************************************
monDoc.Tables(1).AutoFitBehavior wdAutoFitWindow
'*****************************************************************
' Fin de la zone qui pose probleme
'*****************************************************************
' vide le presse papier
Application.CutCopyMode = False
End With

' Sauvegarde du rapport
wrdapp.ActiveDocument.SaveAs (nomFicCibleWord)

' Effacement des variables
Set wrdapp = Nothing
Set monDoc = Nothing
End Sub
 

Discussions similaires