Microsoft 365 VBA et "Slicer" dans un TCD (source modèle de données)

[Amilo]

Bonjour le forum,
Je rencontre un problème dans un code VBA qui ne s'exécute pas selon que le TCD soit issu d'une plage ou d'un modèle de données
Le code VBA a pour fonction d'afficher le contenu du TCD lorsque le "Slicer" est filtré (remise à zéro du filtre)
Le code fonctionne bien avec un TCD créé à partir d'une plage mais il ne semble pas reconnaître lorsqu'il est créé à partir d'un modèle de données (Power Pivot)
Voici un morceau du code utilisé à tout hasard.
Merci d'avance pour votre aide
Cordialement

On Error Resume Next
....

For Each Col In PTCol
        With ActiveSheet.PivotTables("PivotTable1").PivotFields(Col)
        .....
        .....
        On Error GoTo 0
        .....
        .....
On Error GoTo 0

 

[wDog66]

Bonjour Amilo

A tout hasard... ou pas... 🙄

 

[Amilo]

Bonjour @wDog66 ,
Merci pour votre réponse,
J'avais déjà testé l'enregistrement de macro et la ligne de code ressemblait bcp à celle dans mon message. Le changement venait de PivotFields("Nom du slicer") au lieu de la variable PivotFields(Col)
Je vais réessayer cette manipulation et supprimer la variable.
Merci
Cordialement