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 :
Comment ne pas avoir cette erreur lorsque je lance ma macro une deuxième fois ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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)
Merci par avance pour votre aide,
Cordialement
Partager