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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35 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.
Quand il va exécuter le premier ActiveChartLà j'ai même une erreur d'exécution '1004' :
Erreur définie par l'application ou par l'objet
Merci de votre aide.
Partager