Discussion :

[Jean-Phi LM]

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.

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

Merci de votre aide.

[Daniel.C]

Bonjour,

Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ChartObjects(grapheobjet).Chart.Activate

au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ChartObjects(grapheobjet).Activate

[Jean-Phi LM]

Bonjour,

Si je fait cette modif, et que j'écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ChartObjects(grapheobjet).Chart.Activate

J'ai u message erreur : La méthode activate de la classe Chart a échouée.

[Daniel.C]

Bonjour,

Tu as raison. Est-ce que tu pourrais mettre ton classeur, sans données confidentielles en pièce jointe ?

[Jean-Phi LM]

Bonjour,

Je n'arrive pas a joindre les fichiers.

Peux-tu me donner un mail pour que je te les envoies.

Merci.

Jean-Philippe

[Daniel.C]

Bonjour,

Clique sur mon pseudo et sur "envoyer un email" :