Bonjour à tous,

je viens solliciter votre connaissance afin de remédier à un léger problème, j'ai conçu une macro qui me permet, à partir d'un tableau de données de créer un graphique (une première pour moi). Le programme "tourne" très bien avec avec Office 2016, en revanche sur Office 2007, j'ai un message d'erreur du type :
Erreur d'execution '-2147417848(80010108)
La méthode 'Add' de l'objet "ChartObjects" a échoué

Le code est relativement simple :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub CreateChart()
Range("C4:J4,L4:M4,C5:J5,L5:M5").Select
myrange = Selection.Address
mysheetname = ActiveSheet.Name
ActiveSheet.ChartObjects.Add(125, 60, 210, 100).Select
ActiveChart.ChartWizard _
       Source:=Sheets(mysheetname).Range(myrange), _
       Gallery:=xlLine, Format:=4, PlotBy:=xlRows, _
       CategoryLabels:=1, SeriesLabels:=1, HasLegend:=0, _
       Title:="Mon titre"
ActiveChart.ChartType = xlRadarFilled
End Sub
Si jamais vous avez des pistes pour résoudre ce problème en m'expliquant ce qui "cloche" je suis preneur !

En vous souhaitant une bonne journée,

Cordialement