Discussion :

[Dark Christou]

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 :

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

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.

[stagiaire0aurelien]

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???

[Dark Christou]

Bonjour Aurélien,

Voici le code plus en détail :

Code :

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

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 :

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

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 :

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

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 ?

[Dark Christou]

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.