Ajuster tableau Excel a la longueur d'une page Word

Bonjour à tous,

Je cherche désespérément a faire ajuster un tableau Excel généré à une seule page Word.

De manière générale, mon fichier Excel généré ne dépasse pas 50 lignes

Au niveau de la largeur c'est OK, mais côté longueur mon tableau dépasse la 1ere page.

J'ai réduit les marges.

J'ai essayé plusieurs propriétés mais cela ne va pas.

Voici un extrait de mon code :

'Definition du fichier word
Set wdDoc = appWD.Documents.Open(sUrlFichierWord)

'Mise en page du document Word
With appWD.Documents(sUrlFichierWord).PageSetup
 .LeftMargin = 15
 .RightMargin = 15
 .TopMargin = 15
 .BottomMargin = 10
End With

'Copie du gabarit excel vers le document word
With Worksheets(FeuilleGab & " GAB")
    Range(.Cells(1, 2), .Cells(DL, 12)).Copy
End With

appWD.Selection.PasteExcelTable False, False, False
wdDoc.Tables(1).AutoFitBehavior 2 ' wdautoFitWindow
Application.CutCopyMode = False

Le but final étant de préparer un modèle d'une page pour publipostage.

Quelqu'un connaitrait-il les bonnes propriétés ou aurait-il une idée?

Merci d'avance

Bonjour

Comment le tableau Excel est-il reporté dans Word ?

A priori tu fais une copy ce qui génère un tableau Word.

Puisque tu ne fais pas de liaison, colle sous forme d'image plus malléable.

Bonjour,

Un essai. Ajouter ce bout de code derrière

With appWD.Documents(sUrlFichierWord).PageSetup
 .LeftMargin = 15
 .RightMargin = 15
 .TopMargin = 15
 .BottomMargin = 10
End With

.FitToPages

cdt Henri

AFEH a écrit :

Bonjour,

Un essai. Ajouter ce bout de code derrière

With appWD.Documents(sUrlFichierWord).PageSetup
 .LeftMargin = 15
 .RightMargin = 15
 .TopMargin = 15
 .BottomMargin = 10
End With

.FitToPages

cdt Henri

la propriete .FitToPages ne marche pas sous Word malheureusement. Merci quand même

78chris a écrit :

Bonjour

Comment le tableau Excel est-il reporté dans Word ?

A priori tu fais une copy ce qui génère un tableau Word.

Puisque tu ne fais pas de liaison, colle sous forme d'image plus malléable.

Oui j'y avais pensé, mais j'ai besoin de le garder sous format tableau car celui ci va me servir pour faire un publipostage.

Re

Pas compris : le tableau fera partie du publipostage ou bien son contenu alimentera le publipostage ?

Dans le 1er cas, l'image ne gêne pas, dans le second quel intérêt de transférer des données d'Excel à Word ?

Comme déjà dit un collage standard transforme en tableau Word qui ne reprend que très vaguement la forme initiale...

78chris a écrit :

Re

Pas compris : le tableau fera partie du publipostage ou bien son contenu alimentera le publipostage ?

Dans le 1er cas, l'image ne gêne pas, dans le second quel intérêt de transférer des données d'Excel à Word ?

Comme déjà dit un collage standard transforme en tableau Word qui ne reprend que très vaguement la forme initiale...

Effectivement c'est le1er cas qui m'intéresse. Ce tableau fera partie du publipostage, les données étant sur une autre feuille Excel.

Pouvez-vous m'éclairer sur le collage sous forme d'image ? Merci d'avance.

Il semble que j'ai trouvé quelque chose de très intéressant :

appWD.Selection.PasteAndFormat Type:=16 'wdFormatOriginalFormatting

RE

C'est l'option par défaut donc ne change rien

    appWD.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False

Merci 78chris et merci également a AFEH.

Le sujet est résolu.