R
reg
Guest
bonjour,
je cherche à automatiser la création d'un camembert (avec un bouton, par exemple) à partir de données provenant dun autre fichier excel.
Mon fichier où se trouve mon graphe s'appelle maquette1.3.xls avec comme feuille "résultats".
Mon fichier où se trouve mes données s'appelle cptgraph2.xls avec comme feuille "cptgraph2".
Voici le début de mon code que j'utilise pour l'instant, il me marque une erreur au niveau de Activechart.location Where:=xlLocationAsObject, Name:="Résultats"
--------------------------------------------------------------------------------------------
Workbooks.Open FileName:="C:\cptgraph2.xls"
Workbooks("cptgraph2.xls").Worksheets("cptgraph2").Activate
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Workbooks("cptgraph2.xls").Sheets("CPTGRAPH2").Range("A1:B3"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Résultats"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = " Titre 1"
End With
--------------------------------------------------------------------------------------------
Seriez où se trouve mon erreur,
Merci d'avance,
reg
je cherche à automatiser la création d'un camembert (avec un bouton, par exemple) à partir de données provenant dun autre fichier excel.
Mon fichier où se trouve mon graphe s'appelle maquette1.3.xls avec comme feuille "résultats".
Mon fichier où se trouve mes données s'appelle cptgraph2.xls avec comme feuille "cptgraph2".
Voici le début de mon code que j'utilise pour l'instant, il me marque une erreur au niveau de Activechart.location Where:=xlLocationAsObject, Name:="Résultats"
--------------------------------------------------------------------------------------------
Workbooks.Open FileName:="C:\cptgraph2.xls"
Workbooks("cptgraph2.xls").Worksheets("cptgraph2").Activate
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Workbooks("cptgraph2.xls").Sheets("CPTGRAPH2").Range("A1:B3"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Résultats"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = " Titre 1"
End With
--------------------------------------------------------------------------------------------
Seriez où se trouve mon erreur,
Merci d'avance,
reg