Sujet Précédent Sujet Suivant

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

KK - 26 août 2022 à 16:06
vb95 Messages postés 3416 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 31 mai 2023 - 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

Réponse 1 / 1
vb95 Messages postés 3416 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 31 mai 2023 165
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

Discussions similaires

Excel VBA - Proprièté "Visible" pour "Worksheet"
JM247L -
JM247L -

3 réponses
TCD
RichRich59 -
jordane45 -

11 réponses
"erreur d'exécution '1004': Impossible de lire la propriété Search de la classe
cubs -
cubs -

2 réponses
erreur 1004 impossible de définir la propriété weight de la classe border
kremalex -
valtrase -

2 réponses
Problème avec la propriété PivotTables
InfoGeo -
InfoGeo -

2 réponses
Rejoignez-nous