Discussion :

[Ozer45]

Bonjour tout le monde,

Voici ma question:

J'ai une macro developpée sous Excel 2007 et je dois la faire marcher sous Excel 2003. Cependant la partie graphique ne fonctionne pas et me met un message d'erreur à chaque fois que je l'execute.

voici une partie de la macro :

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
Dim Mon_Graphique As Shape
    Dim Ma_Feuille As Worksheet
    Dim myrange
 
    Set Mon_Graphique = GraphWs.Shapes.AddChart
 
    'Recuperation du tableau des données (contigu à la cellule d1)
    GraphWs.Range("d1").Select
    Selection.CurrentRegion.Select
    myrange = Selection.Address
 
    'Creation du graphe
    Mon_Graphique.Name = "CapacitaireMoteurs"
    Mon_Graphique.Chart.SetSourceData GraphWs.Range(myrange)
    Mon_Graphique.Chart.PlotBy = xlRows
    Mon_Graphique.Chart.ChartType = xlColumnStacked
 
 
J'ai un message d'erreur sur mon "Set Mon_Graphique = GrapheWS.Shapes.Addchart"

J'ai cherché sur votre forum et apparemment shape.addchart n'existe pas sous 2003. Avez vous des reponses pour remplacer ce programme et faire marcher ma macro sous 2003.

Je reste à disposition pour plus de details.

Merci d'avance.

[Didier Gonard]

Bonjour,

Tu peux utiliser l'aide VBA qui apporte souvent beaucoup de choses et encore plus souvent les pistes pour les recherches : cf image



voir ce fil sinon :

http://www.developpez.net/forums/d10...ments-version/

Il y a eu d'énormes changements entre ces 2 versions, donc soit tu fais 2 versions que ton code appliquent selon un filtre, soit tu développe sous 2003 sans utiliser les plus de 2007 et en t"assurant que la syntaxe est restée valide...

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Ozer45]

Merci pour ta reponse Ormonth,

Je suis entrain de refaire tout mon code en 2003 cependant je bloque au niveau des graphes car je sais pas comment remplacer " Set Mon_Graphique = GraphWs.Shapes.AddChart" par un autre code qui marcherais bien avec Excel 2003.

As tu des idées? Je pensais declarer mon graphique en tant que chartobject à la place du shape mais cela ne fonctionne pas.

[Didier Gonard]

Bonjour,

Bonjour,

Tu peux utiliser l'aide VBA qui apporte souvent beaucoup de choses et encore plus souvent les pistes pour les recherches .../...

C'est vrai que les efforts sont difficiles à faire parfois... comme dit dans mon précédent post, si tu emploies l'enregistreur de macros sous 2003 pour incorporer un graphique, il y a des chances qu'il te donne les mots clefs qui te permettront d'adapter ta syntaxe...

cordialement,

Didier

[Ozer45]

merci pour ton aide,

J'ai pu resoudre mon probleme en creeant une macro pour la version 2003 (CreateChart2003(Tlignes, Tsites))

et une autre pour la version 2007 (Sub CreateChart2007(Tlignes, Tsites))

avec certes quelques difficultés à coder en 2003 car j'utilise 2007 le plus souvent.


Un grand merci pour ton aide.

[Didier Gonard]

Bravo

l’avantage est que maintenant tu pourras maintenir la chose sans souci (si besoin) et surtout répliquer ce que tu as su faire, ce qui n'est pas le cas d'un copier coller tout fait

bonne continuation,

Didier