Parametrer des liens de graphes dans Excel

Bonjour,

Je ne suis pas un expert Macro mais j'essaye de me débrouiller.

Mais là, je suis bloqué de chez bloqué.

J'ai un classeur KPI qui contient mes données et un autre classeur TOPSPARES qui contient mes graphes.

Je créer des onglets qui correspondent a des fournisseurs et je dois mettre à jour les graphes de ces onglets par rapport au données de mon classeur

Cela permet à mes utilisateurs de sortir des états rapidement et simplement.

Mais la gestion des modification des donnes des séries est complique et long.

Je souhaitais donc l'automatiser.

Code :

Sub changeGraphe()
'
' ClasseurTopSpare
ClasseurTopSpare = "TOP Spares KPI's.xlsm"
Onglet = Workbooks(ClasseurTopSpare).Worksheets("Parametres").Cells(27, "E").Value

'Classeur KPI
Fadre = "='\\sfs.corp\organization\KPI's\[KPI's.xlsm]" & Onglet

Workbooks(ClasseurTopSpare).Worksheets(Onglet).Activate

'Graphique 21
grapheobjet = "Graphique 21"

ActiveSheet.ChartObjects(grapheobjet).Activate

zlib = Fadre & "'!" & "$L$14"
ActiveChart.SeriesCollection(1).Name = zlib

zlib = Fadre & "'!" & "$L$17:$L$19"
ActiveChart.SeriesCollection(1).Values = zlib

zlib = Fadre & "'!" & "$M$14"
ActiveChart.SeriesCollection(2).Name = zlib

zlib = Fadre & "'!" & "$M$17:$M$19"
ActiveChart.SeriesCollection(2).Values = zlib

zlib = Fadre & "'!" & "$K$17:$K$19"
ActiveChart.SeriesCollection(1).XValues = zlib
Worksheets("Parametres").Activate

End Sub 

Mais je n'arrive pas à mettre à jour les données (nom et valeur) de mes séries.

Là j'ai même une erreur d'exécution '1004' :

Erreur définie par l'application ou par l'objet Quand il va exécuter le premier ActiveChart

J'ai essayer une autre solution de mettre les mêmes graphes sur mes deux Excel en me disant que je pourrais modifier l'adresse des séries. Mais là encore choux blanc. Je n'arrive pas a modifier les adresses des séries.

Sub changelien2()

onglet = Worksheets("Parametres").Cells(27, "E").Value
OriWorkbook = "='\\sfs.corp\organization\CUSTOMERSERVICE\SLR\SLRR\15. SLRRP\60. DataBase\20. KPIs\10. Top Spare\Compilation files\KPI''s\KPI''s.xlsm"

Ori2 = "KPIs.xlsm"
destination2 = "'!R7"
Worksheets(onglet).Activate

Reference = Destination & onglet & destination2

'Graphique 21
grapheobjet = "Graphique 21"
l = 0
l = ActiveSheet.ChartObjects(grapheobjet).Index

ActiveSheet.ChartObjects(grapheobjet).Activate

' serie Total ordered value 

Reference = Destination & onglet & "'!$L$14"
ActiveChart.SeriesCollection(1).Name = "TOTO3"

 ActiveChart.SeriesCollection(1).Chart.Values = Workbooks("TOT.xlsm").Worksheets(onglet).Range("M3:M5")
 ActiveChart.SeriesCollection(1).Values(2) = Workbooks(ClasseurRQ).Worksheets(onglet).cell(4, "M").Values
 ActiveChart.SeriesCollection(1).Values(3) = Workbooks(ClasseurRQ).Worksheets(onglet).cell(5, "M").Values

'valeurs serie
Reference = Destination & onglet & "'!$L$17:$L$19"
    ActiveChart.SeriesCollection(2).Values = Reference

Worksheets("Parametres").Activate

End Sub

Merci de votre aide.