Segment (ou slicer) ne détecte pas les autres TCDs

Bonjour à tous, :D

J’espère que vous pourrez m’aider ou m’aiguiller sur mon problème. J’ai créé une macro qui récupère des données, les traitent, les trient et suppriment le superflu. Dans un second temps la macro créé plusieurs TCDs sur plusieurs feuilles (ratio : 1 feuille = 1 TCD). Jusque-là tous se passe à merveille (évidemment c’est le résultat de nombreuse heures de travail puisque j’ai débuté sur VBA il y a un mois). Bref, pour expérimenter, « à la main », j’ai créé un segment (ou slicer) sur mon premier TCD. Et lorsque j’ai cherché à connecter mon segment aux autres TCDs, la fenêtre qui liste les TCD m’a présenté que mon premier TCD, alors que j’ai 13 autres TCDs (voir illustration ci-dessous, potentiellement plus explicite).

Pièce jointe 239912

J’ai posté cette discussion sur « macros et VBA Excel », car je souhaite créer le segment par l’intermédiaire de ma macro. J’ai essayé de le faire, mais ce problème survient à chaque fois, le segment ne détecte pas mes autres TCDs.

NB : Tous mes TCDs ont une seule et même base de données et ils ont tous l’élément de filtre qui est présent dans le segment

Bonjour,

Peut-on voir le code qui crée les TCDs ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

On Error GoTo ErrTCDs1 Workbooks("Resultat_25.01.2017.xlsx").Worksheets("1. Nb.......acceptés").Activate ActiveSheet.Range("A1").Activate With ActiveWorkbook.PivotCaches.Create(xlDatabase, "BaseDonnée", xlPivotTableVersion15) .CreatePivotTable TableDestination:=ActiveCell, TableName:="1.Nombre......................acceptés" End With With ActiveSheet.PivotTables("1.Nombre......................acceptés").PivotFields("PEX") .Orientation = xlPageField .Position = 1 End With With ActiveSheet.PivotTables("1.Nombre......................acceptés").PivotFields("TER") .Orientation = xlRowField .Position = 1 End With ActiveSheet.PivotTables("1.Nombre................ acceptés").AddDataField ActiveSheet.PivotTables("1.Nombre......................acceptés"). _ PivotFields("Identifiant Affaire"), "Nombre d'id Affaire", xlCount GoTo Suivante1 ErrTCDs1: MsgBox "Une erreur est survenue lors de l'éxécution du TCD: " & "1. Nb......accepté", vbOKOnly, "Erreur sur la création de TCD" Exit Sub Suivante1:

---

J'ai fait une boucle pour faire les 14 TCDs, l'exemple ci-dessous est simpliste mais il représente un TCDs lambda que je crée

En fait c'est le code avec la boucle qui m'interesse, puisque deux TCD avec la même sources peuvent être liés au même slicers, si tu n'y arrive pas c'est probablement là qu'est le problème.

Dans ton exemple la source est:

Citation:

---

TableName:="1.Nombre......................acceptés"

---

Tu es bien sur que c'est la même pour tous?

Merci au faite de prendre de ton temps pour t'intéresser à mon problème

Question bête mais "TableName", ce n'est pas seulement le nom du TCD ?
Car je n'ai pas le même nom pour chacun, ils ont tous un nom de tableau différent.
Pour la boucle c'est un peu lourd à presenter, mais l'idée c'est que j'utilise une :

Code:

---

Workbooks(Nom_Fichier_Procedure).VBProject.VBComponents("Module3").CodeModule.InsertLines N, TousCode

---

Avec TousCode qui est un string qui représente le code que j'ai présenté dans le post précédent

Citation:

---

Question bête mais "TableName", ce n'est pas seulement le nom du TCD ?

---

Au temps pour moi j'ai confondu, j'ai cru que c'était "BaseDonnée" le nom.
Alors je reprend le "BaseDonnée" de

Code:

---

ActiveWorkbook.PivotCaches.Create(xlDatabase, "BaseDonnée", xlPivotTableVersion15)

---

c'est bien le même pour tous?

edit: j'ai réussi a reproduire le problème, et j'ai une solution.
Tu crée le premier normalement, pour les suivants il ne faut pas utiliser la table "BaseDonnée" comme source mais le premier TCD créé
via l'enregistreur j'obtient (a adapter bien sur)

Code:

---

1 2 3

ActiveWorkbook.Worksheets("Sheet4").PivotTables("PivotTable8").PivotCache. _ CreatePivotTable TableDestination:="Sheet7!R3C1", TableName:="PivotTable10" _ , DefaultVersion:=xlPivotTableVersion14

---

Où je crée le PivotTable10 de la Sheet7 sur la source du PivotTable8 de la Sheet4

Oui en effet, je nomme la plage BaseDonnée, une seule fois dans la macro et ensuite je l'utilise continuellement, sans qu'il puisse être possible de le changer. Et les TCDs correspondent tous aux niveaux des champs disponibles et des valeurs possibles. Donc c'est que la plage n'a pas pu être perturbé.

J'ai modifié mon précédent message.

J'essaye ça et je fais un retour rapidement.

Merci de ton aide dans tous les cas.

Code:

---

1 2 3 4 5 6 7 8

Workbooks("Resultat_25.01.2017.xlsx").Activate ActiveWorkbooks.Worksheets("1. Nb..... accepté").PivotTables("1.Nombre ...........acceptés").PivotCache.CreatePivotTable _ TableDestination:="2. Nb .......en att (T)!R3C1", TableName:="2.Nombre........retour (T)", DefaultVersion:=xlPivotTableVersion14 With ActiveSheet.PivotTables("2.Nombre ..........retour (T)").PivotFields("PEX") .Orientation = xlPageField .Position = 1 End With ' ... etc

---

Je ne comprend pas, 1 heur que j'essai, je n'y arrive pas. Lorsque je compile, ça fonctionne. Si j'exécute, il me demande un "objet requis" en me surlignant la ligne de création de TCD. Et mon premier TCD se crée correctement, il existe au bon nom.

Pourtant chez moi ça marche, je viens de refaire le test sur un classeur test.

Code:

---

1 2 3 4 5 6 7

For n = 4 To 6 Sheets.Add ActiveWorkbook.Worksheets("Sheet4").PivotTables("PivotTable1").PivotCache. _ CreatePivotTable TableDestination:="Sheet" & n + 3 & "!R3C1", TableName:="PivotTable" & n _ , DefaultVersion:=xlPivotTableVersion14 Sheets("Sheet" & n + 3).Select Next

---

Es tu sur que la feuille "2. Nb .......en att (T)!R3C1" existe? je ne te vois pas la créer

oui elle existe, on ne la voit pas car j'ai créé une boucle en amont qui créé mes 14 feuilles. Mais lorsque la macro s'arrête, mon fichier résultat contient bien 14 feuilles en plus de la feuille où il y a la "BaseDonnée".

Je viens de faire des tests, en effet lorsque je fait :

Code:

---

1 2 3

Workbooks("Resultat_25.01.2017.xlsx").Activate ActiveWorkbooks.Worksheets("1. Nb.....accepté").Activate ActiveSheet.PivotTables("1.Nombre ...................acceptés").Select

---

Il me demande un objet requis à la seconde ligne, il ne reconnaît pas ma première feuille de TCD, alors qu'il n' y a pas de faute de syntaxe ou autres

Tu es bien que le nom est EXACTEMENT le même, à l'espace près?
Si tu le remplace par toto par exemple ça marche?

Oui j'ai récupérer le nom sur la feuille excel, puis j'ai fait le test. Et ensuite j'ai changer le nom en supprimant tout espace et autres. Et rien, il ne le reconnaît pas.

Par contre j'ai activé l'enregistreur de macro, pour constater du nom qu'il donne à la feuille. Puis j'ai copié collé la ligne comme suit :

Code:

---

1 2 3 4 5

Sheets("1. Nb ......accepté").Select Workbooks("Resultat_25.01.2017.xlsx").Activate ActiveWorkbooks.Worksheets("1. Nb .......accepté").Activate ActiveSheet.PivotTables("1.Nombre ..........acceptés").Select

---

Et il s'est arrêté sur la troisième ligne .....
donc il a reconnu ma feuille sur la première ligne......

Je viens de voir que j'écrivais "Workbooks" au lieu de "Workbook"....

La différence que je voit c'est le classeur actif, es tu sur que les feuille sont dans le bon classeur? ou reformulé autrement que le classeur actif est bien celui que tu crois.
Si c'est le classeur contenant la macro, tu peux essayer thisworkbook.

Edit: Effectivement le "s" qui change tout
Pourtant tu as des majuscule ActiveWorkbooks, c'est toi qui les as mise? si oui c'est une mauvaise idée, écris tout en miniscule il te les mettra si il reconnait le mot.

Code:

---

1 2 3 4

Workbooks("Resultat_25.01.2017.xlsx").Worksheets("1. Nb .......accepté").Activate ActiveSheet.PivotTables("1.Nombre ......acceptés").PivotCache.CreatePivotTable _ TableDestination:="2. Nb ......en att (T)!R3C1", TableName:="2.Nombre ....... retour (T)", DefaultVersion:=xlPivotTableVersion14

---

Une fois que c'est corriger l'erreur du "s" en trop, j'ai cette erreur "Argument ou appel de procédure incorrect". En surlignant la seconde et troisième ligne.

Citation:

---

DefaultVersion:=xlPivotTableVersion14

---

Tu n'as pas précisé (je crois) ta version d'excel, moi je suis en 2010 et mes TCD sont en version 14, dans le premier code que tu as posté les tiens étaient en version15. Essaye de changer ça déjà.
Verifie que la feuille du tcd existe aussi avec un select comme pour le premier.

Changement effectué comme suit :

Code:

---

1 2 3 4

Workbooks("Resultat_25.01.2017.xlsx").Worksheets("2. Nb ....... att (T)").Activate Workbooks("Resultat_25.01.2017.xlsx").Worksheets("1. Nb .......accepté").Activate ActiveSheet.PivotTables("TCD1").PivotCache.CreatePivotTable TableDestination:="TCD2!R3C1", TableName:="2.Nombre .................retour (T)", DefaultVersion:=xlPivotTableVersion15

---

mais toujours le même message d'erreur: "Argument ou appel de procédure incorrect" , avec la dernière ligne de surligner

Et dans le titre j'ai ajouté [XL-2013]

Citation:

---

Envoyé par kenail

Changement effectué comme suit :

Code:

---

1 2 3 4

Workbooks("Resultat_25.01.2017.xlsx").Worksheets("2. Nb ....... att (T)").Activate ActiveSheet.PivotTables("TCD1").PivotCache.CreatePivotTable TableDestination:="TCD2!R3C1", TableName:="2.Nombre .................retour (T)", DefaultVersion:=xlPivotTableVersion15

---

---

La feuille s'appelle Nb ... ou Nombre ... ?

J'ai trouvé la solution ! :yaisse1:
Il suffit de créer un PivotCache. Et il n'y a pas besoin de "xlPivotTableVersion15" une seconde fois (puisqu'on l'a déjà mis dans le PivotCache)

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim PvtCaches As PivotCache Set PvtCaches = ActiveWorkbook.PivotCaches.Create(xlDatabase, "BaseDonnée", xlPivotTableVersion15) ' initialisation du pivotCache PvtCaches.CreatePivotTable TableDestination:=ActiveCell, TableName:="TCD1" ' Création du premier TCD 'blabla avec toute les particularités du premier TCD Workbooks("Resultat_25.01.2017.xlsx").Worksheets("Feuille 2").Activate ActiveSheet.Range("A1").Select ' pour m'assurer que le second tableau sera sur ma seconde feuille PvtCaches.CreatePivotTable TableDestination:=ActiveCell, TableName:="TCD2" ' Création du second tableau 'blabla avec toute les particularités du second TCD ' et ainsi de suite

---

Sinon merci beaucoup à halaster 08 pour ton aide !!!! Vraiment merci :merci: