Création de plusieurs slicers TCD - Excel VBA

Bonjour,

Je souhaite ajouter un slicer à un TCD. J'ai donc créé une macro qui créée mon TCD et mon slicer sur une nouvelle feuille Excel.
Jusque là tout va bien, puisque mon TCD est bien généré et le slicer aussi.

Cependant, quand je relance la macro pour recréer un nouveau TCD et un nouveau slicer sur une nouvelle feuille, j'ai une erreur "Invalid procedure call or argument". Cette erreur survient à la dernière ligne du code ci dessous lorsque je lance ma macro pour la deuxième fois. Il n'y a pas de soucis la première fois.

Voici mon code pour la création de slicer :

Code:

---

1 2 3 4 5 6 7 8 9

Dim r As SlicerCaches Dim s As Slicers Dim t As Slicer     Set r = ActiveWorkbook.SlicerCaches Set s = r.Add(ActiveSheet.PivotTables("PivotTable1"), "Country").Slicers Set t = s.Add(ActiveSheet, , "Country 2", "Country Name", 13, 13, 200, 210)

---

Comment ne pas avoir cette erreur lorsque je lance ma macro une deuxième fois ?

Merci par avance pour votre aide,

Cordialement

Salut.

Es-tu certain de ton activesheet au moment de relancer la macro?

Bonjour

Le slicer est indépendant de la feuille : tu ne peux avoir plusieurs slicers de même nom dans un même classeur

Merci pour vos réponses.

Oui j'en suis sur puisque la macro fonctionne au premier lancement.

J'ai essayé de changer le nom du slicer quand je relance la macro pour la deuxième fois. Cela veut-il dire qu'on ne peut créer qu'un slicer par champ dans un classeur ? Si un slicer est affecté à un TCD, il devrait être possible de créer plusieurs slicer identique si ils sont chacun affecté à des TCDs différents, non ?

Merci par avance,

Re

Non car au contraire un slicer unique peut être connecté à tous les TCD basés sur une même source afin de les synchroniser d'un clic.

Mais tu peux créer plusieurs slicers pour un même champ, il faut juste que chaque slicer porte un nom différent : Vendeur, Vendeur 1, Vendeur 2... etc