Problème de création multiple de tableaux croisés dynamiques en VBA

Bonjour,

Je cherche à créer un classeur qui contiendrait plusieurs feuilles contenant chacune un tableau croisé dynamique généré automatiquement à l'exécution de ma macro.
La plage de données à partir de laquelle le tableau est créé varie selon un critère contenu dans ma feuille source.

J'arrive parfaitement à créer mon classeur, ma première feuille et mon premier tableau, mais dès qu'on passe au deuxième ça plante. J'ai essayé de commencer depuis la fin de ma première plage et ça plante toujours lors de la seconde itération.

Voici mon code si ça peut aider :

Code:

---

1 2	Set PTCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sheets("Résultat").Range("A1:P1", "A" & ligneDebut & ":P" & ligneFin).Address) Set PT = PTCache.CreatePivotTable(TableDestination:="", TableName:="Tableau croisé dynamique")

---

L'erreur retournée est l'erreur "'1004' - Erreur définie par l'application ou par l'objet" et le débogueur me la situe au niveau du Set PT.

Quelqu'un aurait-il une solution à mon problème ?

Merci d'avance.

Bonjour Dark,

une simple question, tu parle d'iteration, mais tu ne montres aucune boucle, du coup je me demande si les 2 lignes de codes que tu montres sont celles qui font partie (telles qu'elles) de ta boucle, ou bien si tu as changé des partis???

Bonjour Aurélien,

Voici le code plus en détail :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Sub creerClasseur(nomClasseur) ' *** Copie Feuille Résultat vers Nouveau Classeur *** Sheets("Résultat").Select Sheets("Résultat").Copy   L = 0 leType = Sheets("Résultat").Range("I2").Offset(L, 0).Value ligneDebut = L + 2 While Sheets("Résultat").Range("I2").Offset(L, 0).Value <> "" If leType <> Sheets("Résultat").Range("I2").Offset(L, 0).Value Then ' *** Création Nom Feuille *** nomFeuille = Left(Sheets("Résultat").Range("I2").Offset(L - 1, 0).Value, 31)   ' *** Création Tableau Croisé Dynamique *** Call creerTableauDynamiqueCroise(nomFeuille, ligneDebut, L + 1)   ligneDebut = L + 2 leType = Sheets("Résultat").Range("I2").Offset(L, 0).Value End If L = L + 1 Wend End Sub   Sub creerTableauDynamiqueCroise(nomFeuille, ligneDebut, ligneFin) Dim PTCache As PivotCache Dim PT As PivotTable   Set PTCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sheets("Résultat").Range("A1:P1", "A" & ligneDebut & ":P" & ligneFin).Address)   Set PT = PTCache.CreatePivotTable(TableDestination:="", TableName:="Tableau croisé dynamique")   End Sub

---

Donc comme tu peux le constater j'ai une procédure qui fait l'itération et une autre qui crée les tableaux.
Dans ma procédure créerClasseur, je boucle jusqu'à la fin de la feuille "Résultat". Je stock dans une variable la valeur contenue dans la première cellule "I" de ma plage et je ne crée mes tableaux que lorsque je rencontre une cellule "I" dont la valeur est différente de celle stockée.

Merci

J'ai essayé une autre méthode qui n'a fait que changer mon problème, mais peut-être aurez-vous une solution pour celui-ci...
Au lieu de créer une nouvelle page et un nouveau tableau à chaque itération, je crée un nouveau tableau lors du premier passage dans la boucle, puis je le copie et je change la source lors des passages suivants :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub copierTableauDynamiqueCroise(ancienNomFeuille, nomFeuille, ligneDebut, ligneFin) Sheets(ancienNomFeuille).Cells.Select Selection.Copy Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Paste ActiveSheet.Name = Replace(nomFeuille, "/", "-")   ActiveSheet.Cells.Select nomTableau = Selection.PivotTable.Name   ActiveSheet.PivotTables(nomTableau).SourceData = Sheets("Résultat").Range("A1:P1", "A" & ligneDebut & ":P" & ligneFin).Address End Sub

---

Mais voilà j'ai l'erreur suivante : "Erreur d'exécution '1004' : Le nom du champ de tableau croisé dynamique n'est pas valide. Pour créer un rapport de tableau croisé dynamique, vous devez utiliser des données sous forme de liste avec des étiquettes de colonnes. Si vous changez le nom d'un champ de tableau croisé dynamique, vous devez taper un nouveau nom pour le champ."

La ligne surlignée par le debogueur est la suivante :

Code:

---

ActiveSheet.PivotTables(nomTableau).SourceData = Sheets("Résultat").Range("A1:P1", "A" & ligneDebut & ":P" & ligneFin).Address

---

Pourtant dans la procédure creerTableauDynamiqueCroise lorsque pour tester je décale ma première ligne de données (L = N au lieu de L = 0), les informations sont bien prises en comptes à partir de la ligne N et aucune erreur n'est générée...

Quelqu'un aurait-il une idée ? :cry:

Bon finalement j'ai opté pour une autre solution :
Je génère un premier tableau prenant en compte toute ma feuille source et ayant un filtre sur le critère voulu, puis je copie ce tableau autant de fois qu'il y a de valeur différente dans mon critère. Ensuite je change la valeur du filtre de chaque feuille afin d'obtenir le résultat que je voulais au début, à savoir que chaque feuille affiche une valeur différente du critère.