Conservation mise en page- Excel vers Word

Bonjour,

Je copie un tableau depuis Excel

Je le colle dans un nouveau Word.

Le tableau est alors trop grand donc je l'adapte à Word. Mais la mise en page est alors changée. Comment puis-je faire ?

Set AppWord = New Word.Application

AppWord.Visible = True

Set DocWord = AppWord.Documents.Add

Worksheets(2).Range("A1:F14").Copy

AppWord.Selection.Paste

DocWord.Tables(1).AutoFitBehavior wdAutoFitWindow

Merci de votre réponse.

Anthony

Bonjour Anthony,

Pour fixer la largeur de la colonne 1 par exemple à 30, il faut d'abord indiquer qu'on désactive la largeur auto (AutoFitBehavior à 0), ensuite on peut déterminer la largeur souhaitée (et sans ajustement)

    With WordDoc.Tables(1)
        .AutoFitBehavior 0  ' wdAutoFitFixed
        .Columns(1).SetWidth ColumnWidth:=30, RulerStyle:=0 ' wdAdjustNone
    End With

Pierre

Super ! Merci Pierre