A partir d'excel je souhaite qu'un nouveau doc. Word s'ouvre en format paysage. Mon code ne fonctionne pas corectement.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
'Ajoute un nouveau document
With appword
    .Visible = True
    Set docword = .Documents.Add
    .Activate
End With
 
'Mise en page paysage
With ActiveDocument.PageSetup
    .Orientation = wdOrientLandscape
End With

Merci d'avance pour votre aide