Bonjour à tous
Voilà mon problème, je dois creer des graphiques par macro.
J ai utilisé l enregistreur de macro dans un nouveau classeur pour generer un graphique.Tout fonctionne tres bien!Mais dès que je ramene cette macro dans un autre classeur elle ne fonctionne pas :-(
Voilà le code
i = 9
ActiveWindow.Visible = False
Windows("creation graph par macro.xls").Activate
Sheets("Feuil1").Select
Sheets.Add.Name = Sheets("feuil1").Range("A" & i)
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R6C2:R6C121"
ActiveChart.SeriesCollection(1).Values = "=Feuil1!R9C2:R9C121"
ActiveChart.SeriesCollection(1).Name = "=Feuil1!R9C1"
ActiveChart.SeriesCollection(2).Values = "=Feuil1!R10C2:R10C121"
ActiveChart.SeriesCollection(2).Name = "=Feuil1!R10C1"
ActiveChart.Location Where:=xlLocationAsObject, Name:=Sheets("feuil1").Range("A" & i)
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
J ai bien entendu changer les appels avec le nouveau nom de fichier et le nom de la feuille avec les données
L erreur est 1004, : impossible de definir la propriete Xvalues de la classe series.
Je ne comprends pas pourquoi ca fonctionne dans un classeur et pas dans un autre!!
Aidez moi svp
Sébastien