Sub Graphique_Excel_Word()
Dim mobj As Object, fdoc As String
fdoc = 'excel_word.doc'
' Copier le graphique de la feuille Feuil1 '
Worksheets('feuil1').ChartObjects('Graphique 1').Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
' Créer un objet Word et un nouveau document '
Set mobj = CreateObject('word.application')
mobj.Visible = True
' Créer un nouveau document dans Word '
Set ndoc = mobj.documents.Add
' Ecrire dans le nouveau document et y coller un graphique '
' issu d'Excel via le Presse-papiers '
With mobj
' Ecrire dans Word '
.Selection.TypeText Text:='Voici le graphique demandé par Monsieur Untel' & vbCrLf & vbCrLf
' Coller le graphique '
.Selection.Paste
' Changer de Dossier '
.ChangeFileOpenDirectory 'C:\\'
' Enregistrer le document Word '
.ActiveDocument.SaveAs Filename:=fdoc, FileFormat:=wdFormatDocument
End With
mobj.Quit ' Quitter Word '
Set mobj = Nothing ' Libérer la mém. allouée à mobj '
End Sub