Parametrre des 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:

---

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.

Citation:

---

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.

Bonjour,

Essaie :

Code:

---

ActiveSheet.ChartObjects(grapheobjet).Chart.Activate

---

au lieu de :

Code:

---

ActiveSheet.ChartObjects(grapheobjet).Activate

---

Bonjour,

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

Code:

---

ActiveSheet.ChartObjects(grapheobjet).Chart.Activate

---

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

Bonjour,

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

Bonjour,

Je n'arrive pas a joindre les fichiers.

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

Merci.

Jean-Philippe

Bonjour,

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

Pièce jointe 216744

Je suppose qu'il faut commencer par le bouton "Renommer" ?

Oui en cliquant sur ce bouton, il doit lancer la macro changer lien.

C'est elle qui devrait changer l'adresse des graphes avec le nom mis dans la zone de saisie "onglet" au-dessus du bouton.

Je suis scotché dès la seconde ligne du code :

Code:

---

Destination = "=Excel.SheetMacroEnabled.12|'\\sfs.corp\organization\CUSTOMERSERVICE\SLR\SLRR\15. SLRRP\60. DataBase\20. KPIs\10. Top Spare\Compilation files\KPI''s\KPI''s.xlsm'!'!Supplier Name![KPI''s.xlsm]"

---

Qu'est-ce que je peux faire ?

En fait j'ai essaye plein de truc et cette zone devait me servir a parametrer l'onglet.
A ce niveau de test, je fait plus qu'avec l'onglet xxxx.

En fait : plus bas j'ai mis en dur le changement de la zone pour voir ce qui ne fonctionnait pas : (a noter qu'il y a une petite erreur sur la version que je t'ai envoyer donc c'est cette instruction que j'essaye)
Sheets(onglet).Shapes("Graphique 21").DrawingObject.Formula = "=Excel.SheetMacroEnabled.12|'\\sfs.corp\organization\CUSTOMERSERVICE\SLR\SLRR\15. SLRRP\60. DataBase\20. KPIs\10. Top Spare\Compilation files\KPI''s\KPI''s.xlsm'!'!xxxx![KPI''s.xlsm]xxxx Graphique 21'"

Mais même en dur, çà ne fonctionne pas. :(

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub changelien() ' ' changeliengraph Macro '   onglet = Worksheets("Parametres").Cells(27, "E").Value   Worksheets(onglet).Activate   'Graphique 21 grapheobjet = "Graphique 21"   ActiveSheet.Shapes.Range(Array("Graphique 21")).Select   Sheets(onglet).Shapes("Graphique 21").DrawingObject.Formula = "=Excel.SheetMacroEnabled.12|'\\sfs.corp\organization\CUSTOMERSERVICE\SLR\SLRR\15. SLRRP\60. DataBase\20. KPIs\10. Top Spare\Compilation files\KPI''s\KPI''s.xlsm'!'!xxxx![KPI''s.xlsm]xxxx Graphique 21'"

---

Donc voila le code a tester.

Oui, mais je suis incapable d'évaluer :

Code:

---

"=Excel.SheetMacroEnabled.12|'\\sfs.corp\organization\CUSTOMERSERVICE\SLR\SLRR\15. SLRRP\60. DataBase\20. KPIs\10. Top Spare\Compilation files\KPI''s\KPI''s.xlsm'!'!xxxx![KPI''s.xlsm]xxxx Graphique 21'"

---

Merci en tout cas de ton aide.

Quand je clique sur l'image du graphe dans TOT2.xlm, onglet xxxx., j'obtiens une chaine de caractère/formule. Ce que je voudrais arriver a faire, par quelque manière que se soit, c'est modifier cette valeur :

Pièce jointe 218681


J'ai donc essayer avec le VBA :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub changelien() ' ' changeliengraph Macro '   onglet = Worksheets("Parametres").Cells(27, "E").Value   Worksheets(onglet).Activate   'Graphique 21 grapheobjet = "Graphique 21"   ActiveSheet.Shapes.Range(Array("Graphique 21")).Select   Sheets(onglet).Shapes("Graphique 21").DrawingObject.Formula = "=Excel.SheetMacroEnabled.12|'\\sfs.corp\organization\CUSTOMERSERVICE\SLR\SLRR\15. SLRRP\60. DataBase\20. KPIs\10. Top Spare\Compilation files\KPI''s\KPI''s.xlsm'!'!xxxx![KPI''s.xlsm]xxxx Graphique 21'"

---

Mais j'ai toujours un message d'erreur à l'execution de Sheets(onglet).Shapes("Graphique 21").DrawingObject.Formula

Peut-être que ce n'est pas la bonne instruction que j'utilise.

Pour l'instant je suis vraiment bloqué, car j'ai beau chercher, je ne trouve pas de solution.

Pourtant, il doit bien y avoir un moyen par VBA, quand on le fait manuellement ca marche. Si je clique sur mon graphe et que je vais a la main modifier la formule, il en tiens compte et me mets à jour mon graphe.

Encore merci et tant pis si tu n'a pas de solution.

Je ne comprends rien à ta ligne de code; Sauf erreur, DrawingObject n'a pas de propriété "formula".