Discussion :

[Invité]

J'ai une macro qui marche trés bien sous Excel 2003. A partir des valeurs de ma feuille je crée un graphique que j'affiche dans un userform.

Cependant j'ai voulu tester ma macro sous 2007 et là ... c'est le drame ... Bon j'éxagére un peu. Mais j'ai une erreur d'éxécution, qui je pense, provient du nom du graphique, qui a peut-être changé d'une version à l'autre d'excel.

Voici la ligne sur laquelle porte le problème :

Code :

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

1
2
    ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
        "Courbe - Histo. 2 axes"

Sous 2003 cela me permet de créer un graphique à 3 Axes (2Y, 1X), mais je ne connais pas son nom sous 2007...

Est-il possible de faire en sorte que la version 2007 reconnaisse se graphique? ou existe-t-il un nom commun aux deux versions? ou le problème est-il différent?

Est-ce que je vais être obligé de créer deux classeurs 1 sous 2003 et 1 sous 2007 à cause de ce graphique??

Merci d'avance pour vos réponses, aides et autres précieux conseils =)

[Ozer45]

en realité c'est normale que tu n'arrive pas à créer ton graphe car la version d'excel 2003 ne reconnais pas les shape par exemple.
ci dessous une partie d'un code que j'ai utilisé pour generé mon graphe suivant la version d'excel que j'utilise

Code :

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

1
2
3
4
5
6
7
 
 
'code excel 2007
Sub CreateChart2007(Tlignes, Tsites)
    Dim Mon_Graphique As Shape
    Dim Ma_Feuille As Worksheet
    Set Mon_Graphique = GraphWs.Shapes.AddChart

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
'code excel 2003
Sub CreateChart2003(Tlignes, Tsites)
    Dim Mon_Graphique As ChartObject
    Dim Graphe As Chart
    Dim Ma_Feuille As Worksheet
 
    'Creation de la trame graphique à une position aléatoire avec affectation des objetcts
    Set Mon_Graphique = GraphWs.ChartObjects.Add(100, 100, 350, 100)

[Ozer45]

pour trouver la version surlaquelle tu travaille (2003 ou 2007), a mettre dans le code precedent (et à adapter suivant tes besoins)

Code :

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

1
2
3
4
5
6
7
8
9
 
 'Création du graphe suivant la version utilisé
    If Application.Version = "11.0" Then
        Call CreateChart2003(Tlignes, Tsites)
    ElseIf Application.Version = "12.0" Then
        Call CreateChart2007(Tlignes, Tsites)
    ElseIf Application.Version = "14.0" Then
        Call CreateChart2007(Tlignes, Tsites)
    End If

[Invité]

Merci pour ta réponse, il faut donc que je refasse tout le code de la création de graphique en 2003 et 2007 ... Dans ce cas je pense faire deux fichiers, un 2003 et un 2007, enfin je vais voir.

Encore merci