Problème de bouton de commande

[bibiphoqie]

Bonjour,

J'ai fait la macro suivante qui consiste à créer un graphqie sous Excel et à le coller dans un document Word (nommé "Tableau de suivi (Référentiel).doc"):

Sub Graphique()

Charts.Add
ActiveChart.ChartType = xl3DBarStacked100
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B53😀53"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).Name = "=Feuil1!R52C2"
ActiveChart.SeriesCollection(2).Name = "=Feuil1!R52C3"
ActiveChart.SeriesCollection(3).Name = "=Feuil1!R52C4"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.HasLegend = True

ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Cut

'on récupère le document qui est déjà ouvert
Set WordDoc = GetObject("Q:\PROJET_CMMI_SSIFce\STEP1&2_Project\Technical documentation\Mesures projet\Tableau de Suivi (Référentiel).doc")

'coller
WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdFloatOverText, DisplayAsIcon:=False

With WordApp.Selection.ShapeRange
.ZOrder msoSendToBack
.Height = 74
.Left = 355
.Top = 369 'position verticale de l'image dans le document

End With
End Sub

Cette macro marche lorsque je l'execute, par contre si je crée un bouton de commande sur ma feuille Excel et que je lui affecte cette macro (nommé "Graphique"), le graphique n'apparait pas dans mon document Word.

Bizaremment j'ai vu qu'en remplaçant la ligne:

WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdFloatOverText, DisplayAsIcon:=False

par

WordApp.Selection.Paste

Le bouton de commande affiche bien le graphique dans mon document Word, seulement je préfererai garder mon collage spécial qui me permet d'avoir le graphique comme image (et donc qui prend moins de place dans le document Word).

J'espère m'être à peu près bien exprimée et que vous saurez m'aider...

Merci! 🙂