Discussion :

[RedBurn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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.

[RedBurn]

Personne ne sait??

[SfJ5Rpw8]

et sur qu'elle ligne intervient l'erreur.... ?

si tu effectue "à la main" le traitement que tu ve effectuer par la macro .. as tu un message d'erreur ?

[RedBurn]

l'erreur apparait sur la deuxième ligne de la fonction.
Si je fais à la main, c'est à dire si je clique sur le bouton graphique automatique, alors il n'y a pas de problèmes.

[AlainTech]

Dans ce cas, tu peux le faire "à la main" en enregistrant la macro.