Selectionner des filtres dans TCD

Bonjour,

Je souhaite alimenter un fichier en allant prendre des données dans un TCD d'un autre fichier.

J'ai fait la macro avec l'enregistrement en selectionnant certains items dans le filtre.

Cela fonctionne si j'ai tous les items présents mais si il en manque un à un moment, j'ai une erreur.

Voici le code que j'ai :

Windows("Fichier suivi projet.xlsx").Activate
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"[Plage 4].[etat].[etat]").VisibleItemsList = Array("[Plage 4].[etat].&", _
"[Plage 4].[etat].&[Attente retour prestataire]", _
"[Plage 4].[etat].&[Attente interne]", "[Plage 4].[etat].&[Attente client]")

Sur ce cas, cela m'a pris 3Attente retour prestataire", "Attente interne" et "Attente client". Mais j'ai parfois d'autres états.

Ce que je voudrais c'est sélectionner tous les items présents dans le filtre sauf "Annulé", "Clôture réalisation" et "Clôture sans réalisation".

Pouvez vous m'aider car je ne m'en sors pas ?

Je vous remercie

bonjour Franckydu01,

veuillez mettre votre code entre balises avec ce symbol dans le ruban

ceci est une suggestion car sans fichier ...

Windows("Fichier suivi projet.xlsx").Activate
With Sheets("Nom de la feuille").PivotTables("Tableau croisé dynamique3").PivotFields("[Plage 4].[etat].[etat]")
     .ClearAllFilters                        'montrer tout
     On Error Resume Next
     For Each it In Array("Annulé", "Clôture réalisation", "Clôture sans réalisation")     'ignorer ces 3
          .PivotItems(it).Visible = False
     Next
     On Error GoTo 0
End With

et si cela ne fonctionne pas

.PivotItems(cstr(it)).Visible = False

Bonjour Bart,

merci pour ta réponse.

Je pense que c'est Ok pour les filtres mais par contre, ça ne colle pas mes données.

je te mets les 2 fichiers si tu peux m'aider.

Je te remercie bien car je galère. Je ne m'y connais pas en macro...

Cordialement

Franck