Imp de lire la propriété PivotTables de la classe worksheet

KK - 26 août 2022 à 16:06
vb95 Messages postés 3472 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 13 avril 2024 - 27 août 2022 à 00:08

Bonjour à tous, 

Je cherche via VBA à déconnecter et reconnecter des segments à plusieurs TCD.

Pour obtenir le code, je me suis enregistrée faire la manipulation. 

Cependant, je lance VBA pour "tester" ce code, j'obtiens le bug suivant : 

"Impossible de lire la propriété PivotTables de la classe worksheet".

Est-ce que quelqu'un aurait une solution ? 

Ci-dessous le code : 


    ActiveSheet.Shapes.Range(Array("Domestique/Inter")).Select
    ActiveWorkbook.SlicerCaches("Segment_Domestique_Inter").PivotTables. _
        RemovePivotTable (ActiveSheet.PivotTables("Tableau croisé dynamique1"))
    ActiveWorkbook.SlicerCaches("Segment_Domestique_Inter").PivotTables. _
        RemovePivotTable (ActiveSheet.PivotTables("Tableau croisé dynamique2"))
    ActiveWorkbook.SlicerCaches("Segment_Domestique_Inter").PivotTables. _
        RemovePivotTable (ActiveSheet.PivotTables("Tableau croisé dynamique4"))
    ActiveWorkbook.SlicerCaches("Segment_Domestique_Inter").PivotTables. _
        RemovePivotTable (ActiveSheet.PivotTables("Tableau croisé dynamique5"))
    ActiveWorkbook.SlicerCaches("Segment_Domestique_Inter").PivotTables. _
        RemovePivotTable (ActiveSheet.PivotTables("Tableau croisé dynamique7"))
    ActiveWorkbook.SlicerCaches("Segment_Domestique_Inter").PivotTables. _
        RemovePivotTable (ActiveSheet.PivotTables("Tableau croisé dynamique9"))
 

1 réponse

vb95 Messages postés 3472 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 13 avril 2024 169
Modifié le 27 août 2022 à 00:09

Bonjour

Pour présenter un code prière de suivre ce tuto : https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code .

Sans plus de détails difficile de te répondre .


0
Rejoignez-nous