Creer une feuille graph par macro

[sébastien]

Salut à tous

Je n arrive pas à créer de feuille graphique et à spécifier les sources de données par macro.

Voici le code utilisé ( fait avec l enregistreur de macro)

Sub Macro6()
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("feuil1").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("feuil1").Range("AB9")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "='Capacité actuelle'!R10C2:R10C121"
ActiveChart.SeriesCollection(1).Name = "='Capacité actuelle'!R10C122"
ActiveChart.Location Where:=xlLocationAsNewSheet
Charts.Add
End Sub


Ca plante à "ActiveChart.SeriesCollection(1).Values = "='Capacité actuelle'!R10C2:R10C121""
avec le message erreur 1004[...]impossible de fdefinir la propriete values de la classe Series

J ai besoin de réaliser cette macro, car le document doit permettre l affichage de 100graphs...le poids du fichier étant déjà important, je dois pouvoir créer les feuilles graphiques à la demande et les supprimées après utilisation.

Merci d avance

 

[fodjio]

Je suis pas sûr mais la plage "='Capacité actuelle'!R10C2:R10C121"
doit peut-être contenue dans Sheets("feuil1").Range("AB9")

comme apperement c'est pas le cas : ça coince

Bonne chance