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