Bonjour,

je souhaiterais copier une feuille graphique excel vers un fichier word.
Le problème c'est que j'aimerais copier le graphique en mode paysage et aussi l'ajuster à la bonne taille dans le document word.


Si quelqu'un connait la solution je suis preneur.

Voici mon code

Merci

Sub Macro3()

Dim wrd As Object
Dim strPath As String

Set wrd = CreateObject("Word.Application")

' Création d'un nouveau document
wrd.Documents.Add

'Selection du graphique
Sheets("Feuil1").Select
ActiveWorkbook.ActiveChart.Select

'Copie du graphique
ActiveChart.ChartArea.Copy

'Sa ne marche pas ->
'wrd.ActiveDocument.PageSetup.Orientation = wdOrientLandscape

wrd.Selection.PasteAndFormat (wdChartPicture)
wrd.Selection.TypeParagraph

wrd.ActiveDocument.SaveAs "C:\Documents and Settings\r\Bureau\Doc4.docx"
wrd.ActiveDocument.Close
Set wrd = Nothing
End Sub

Configuration: Windows XP
Firefox 2.0.0.20