Graphique excel avec macro
Résolu
puss145
-
puss145 -
puss145 -
Bonjour,
Je voudrais créer un simple graphique camembert avec Excel 2007 automatiquement à l'aide d'une macro.
Je lance donc l'enregistrement de la macro. Je fais mon graphique, le mets en forme et stop l'enregistrement de la macro.
Mon problème est que lorsque je relance la macro, il ne veut pas me créer le graphique. Je vous met le code avec en Gras la ligne qui soit disant pose problème d'après le débogage:
Sub graphique_salaire()
'
' graphique_salaire Macro
'
'
Windows("reporting_20100701.xls").Activate
Range("G3:L4").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Feuil1'!$G$3:$L$4")
ActiveChart.ChartType = xl3DPie
ActiveChart.SeriesCollection(1).Select
ActiveSheet.ChartObjects("Graphique 3").Activate
ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.ShowPercentage = True
Selection.ShowValue = False
Selection.Position = xlLabelPositionOutsideEnd
Range("A1").Select
ActiveWorkbook.Save
End Sub
Voilà, si quelqu'un peut m'indiquer des pistes de solution, ça serait vraiment sympa.
Je voudrais créer un simple graphique camembert avec Excel 2007 automatiquement à l'aide d'une macro.
Je lance donc l'enregistrement de la macro. Je fais mon graphique, le mets en forme et stop l'enregistrement de la macro.
Mon problème est que lorsque je relance la macro, il ne veut pas me créer le graphique. Je vous met le code avec en Gras la ligne qui soit disant pose problème d'après le débogage:
Sub graphique_salaire()
'
' graphique_salaire Macro
'
'
Windows("reporting_20100701.xls").Activate
Range("G3:L4").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Feuil1'!$G$3:$L$4")
ActiveChart.ChartType = xl3DPie
ActiveChart.SeriesCollection(1).Select
ActiveSheet.ChartObjects("Graphique 3").Activate
ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.ShowPercentage = True
Selection.ShowValue = False
Selection.Position = xlLabelPositionOutsideEnd
Range("A1").Select
ActiveWorkbook.Save
End Sub
Voilà, si quelqu'un peut m'indiquer des pistes de solution, ça serait vraiment sympa.
A voir également:
- Graphique excel avec macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Graphique camembert excel - Guide
- Changer carte graphique - Guide
- Word et excel gratuit - Guide