S
sébastien
Guest
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
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