Option Explicit
Sub PilotageWord3()
Dim MonBeauWord As Object
Dim MonDoc As Object
Set MonBeauWord = CreateObject("Word.Application")
' Création d'un nouveau document :
Set MonDoc = MonBeauWord.Documents.Add
' Ecriture d'un petit texte dans ce nouveau document :
MonBeauWord.Selection.TypeText "Test de fonctionnement"
'Selection du graphique à copier
Sheets("Référentiel métier accueil").Select
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.ChartArea.Select
'Copie du graphique dans le presse papier
ActiveChart.ChartArea.Copy
'Passage du curseur texte sur la ligne en dessous du texte
MonBeauWord.Selection.TypeParagraph
'Collage du graphique
MonBeauWord.Selection.PasteAndFormat (13)
'Passage du curseur texte sur la ligne en dessous du graphique (pour coller un autre graphique
MonBeauWord.Selection.TypeParagraph
' Sauvegarde de ce document ainsi créé :
'/// A ADAPTER ///
MonBeauWord.ActiveDocument.SaveAs "c:\zaza.doc" '"C:\Users\Marine\Desktop\Simple test2.doc"
'/////////////////
' Fermeture de ce document :
MonDoc.Close
' Fermeture de l'application Word
MonBeauWord.Quit
' Destruction de la variable objet
Set MonBeauWord = Nothing
End Sub