[Toutes versions] Problème de compatibilité entre Excel 2000 et 2007

[fallemand]

Bonjour,

J'ai une feuille Excel qui a été créée sous 2000 avec un graphique qui se remplit au chargement de la feuille par macro.

Qand on l'ouvre sous 2000, pas de problème.

Or sous 2007, la légende empiète sur le graph.

Une des solutions que j'ai trouvée pour corriger le problème sous 2007 est de faire :

Code :

1
2
3
4
5
If CInt(Left(Application.Version, InStr(1, Application.Version, ".") - 1)) = 12 Then
            ActiveSheet.ChartObjects(1).Activate
            ActiveChart.ApplyLayout (4)
            ActiveChart.Legend.Position = xlLegendPositionRight
End If

Du coup ca marche sous 2007.

Mais sous 2000, la méthode "ApplyLayout" n'existe pas et il me fait une erreur dans mon code VBA.

Auriez vous une solution pour le forcer ou pour contourner ce problème ?

Merci d'avance