vba: nom de graphique introuvable

[bernaroff]

Bonjour à tous et bonne fête nationale
j'espère que malgrè tout quelques uns seront connectés pour répondre à ma petite question

dans ma macro, j'essaie de suprimer le graphe créer sur une feuille avec
ActiveSheet.DrawingObjects.Delete
pour le mettre à jour (recréer le même) seulement celui qui est recréer ne porte jamais le même nom (Graphique 1, puis 2 ...) et dans ma procédure j'utilise cette manipulation
ActiveSheet.ChartObjects("Graphique 1").Activate
Seulement il ne reconnaît pas le graphe lors de la mise à jour

peut être est-il possible de forcer le nom du graphique (lui donner un nom directement à sa création) ou de faire appel au graphe dernièrement créer mais je ne connais pas le code correspondant (je suis nouveau sur vba, j'ai l'habitude de coder avec maple, matlab,c++ et pascal)
merci pour votre aide et profitez de votre jour de congé, moi j'ai le privilège de travailler aujourd'hui

 

[bernaroff]

Re : vba: nom de graphique introuvable

c'est bon j'ai trouvé
NomGraphe = ActiveChart.Name
Ligne = InStr(1, NomGraphe, "Graph")
NomGraphe = Mid(NomGraphe, Ligne, 50)
ActiveSheet.Shapes(NomGraphe).Name = "Données"