[VBA EXCEL] Problème d'éxécution avec graphiques
Bonjours a tous,
J'ai un problème que j'arrive pas a solver, j'ai passé déjà plusieurs heures dessus sans comprendre d'ou venait le problème.
j'ai plusieurs feuilles excel avec des TCD et j'ai fait une fonction pour créer des graphiques à partir de ces TCD. La fonction est la suivante :
Code:
1
2
3
4
5
6
7
8
9
| Sub Generation_graphes(sheetName, lign, graphName)
Charts.Add
ActiveChart.SetSourceData Source:=Sheets(sheetName).Range("D" & lign)
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveSheet.Name = graphName
End Sub |
Quand j'appel la fonction, je lui passe en paramètre le nom de ma feuille la ligne a partir de laquelle le graphique doit être effectué et le nom du graphique.
Cette fonction marche parfaitement avec 5 TCD "classiques" sans problèmes.
Mais le dernier TCD, j'ai mis en plus un petit attibut PageFields en plus :
Code:
1
2
3
| ActiveSheet.PivotTables("Tableau croisé dynamique11").AddFields RowFields:= _
Array("ENTITY_NAME", "Code", "Name"), ColumnFields:= _
"Delegation status", PageFields:="Shared services center" |
Lors de l'éxécution de la macro, elle retourne une erreure de type 1004 :
Citation:
Les données sources d'un rapport de graphique croisé dynamique ne peuvent pas être modifiées...
Je n'arrive pas a résoudre cette erreur, bien que j'ai essayé différente méthode.
Merci d'avance.
