efferalgan
XLDnaute Nouveau
Bonjour,
J'essaie en vain d'automatiser la création d'un tcd en enregistrant ma création avec une macro.
Ensuite je pense modifier le code afin de rendre automatique la sélection de ma liste de données. (Range("$A$1").CurrentRegion...)
mais je n'arrive même pas jusque là car j'ai en permanence l'erreur 1004 "impossible de lire la propriété pivotTable de la classe worksheet
je mets le code si ça peut aider c'est en rose que çà bloqueActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"donnees!R1C2:R3C89").CreatePivotTable TableDestination:= _
"'[equipes.xls]tableaux calcul'!R3C1", TableName:= _
"Tableau croisé dynamique5", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("Tableau croisé dynamique5").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique5").PivotFields("T1"), "Somme de T1", _
xlSum
Si vous avez une idée, je pense que l'erreur doit être fréquente mais je n'ai pas trouvé exactement quoi sur le net.
Si vous avez une idée ou une référence de site ou je pourrais mieux comprendre et apprendre.
Merci pour votre aide.
Effergalgan
J'essaie en vain d'automatiser la création d'un tcd en enregistrant ma création avec une macro.
Ensuite je pense modifier le code afin de rendre automatique la sélection de ma liste de données. (Range("$A$1").CurrentRegion...)
mais je n'arrive même pas jusque là car j'ai en permanence l'erreur 1004 "impossible de lire la propriété pivotTable de la classe worksheet
je mets le code si ça peut aider c'est en rose que çà bloqueActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"donnees!R1C2:R3C89").CreatePivotTable TableDestination:= _
"'[equipes.xls]tableaux calcul'!R3C1", TableName:= _
"Tableau croisé dynamique5", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("Tableau croisé dynamique5").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique5").PivotFields("T1"), "Somme de T1", _
xlSum
Si vous avez une idée, je pense que l'erreur doit être fréquente mais je n'ai pas trouvé exactement quoi sur le net.
Si vous avez une idée ou une référence de site ou je pourrais mieux comprendre et apprendre.
Merci pour votre aide.
Effergalgan