macro font Arial

[yaya73]

Bonjour,

j'ai un doc en excel (données tableau) qui via un btn généré un doc en word .
Dans ce doc en word je souhaiterai avoir toutes les polices en arial et l'idéale avec une taille de 11.

Quelq'un pourrait m'aider

merci

 

[job75]

Re : macro font Arial

Bonjour yaya73,

Sub CopierDansWord()
'cocher la référence Microsoft Word xx.x Object Library
Dim AppWord As Word.Application
Dim DocWord As Word.Document
Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add
[A1:G400].Copy 'plage à adapter bien sûr
AppWord.Selection.Paste
Application.CutCopyMode = False
With DocWord.Tables(1).Range.Font
  .Name = "Arial"
  .Size = 11
End With
End Sub

A+