bonsoir Olivier
la macro ci-joint :
Ouvre un document Word contenant 3 signets ( nommés Signet1 ,Signet2 , Signet3 )
Boucle sur les 3 premiers graphiques du classeur
Copie chaque graphique , puis le colle dans un Signet
Sub BoucleGraphiquesExcel_CollageDansSignetsWord()
'testé avec Excel2002
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
Set WordApp = CreateObject("word.application")
Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\leFichier.doc")
For i = 1 To 3 'boucle sur les 3 premiers graphiques du classeur
Sheets("Feuil1").ChartObjects(i).Copy 'copie le graphique
'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
'chaque graphique est associé à un des signets lors du collage
WordDoc.Bookmarks("Signet" & i).Range.PasteSpecial _
Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False
Next i
WordApp.Visible = True
'WordDoc.Close True 'ferme le document word en sauvegardant les données
'WordApp.Quit 'ferme la session Word
End Sub
bonne soirée
MichelXld