Pb filtre TCD / Pb définition propriété Visible de la classe PivotItem

Bonjour,

J'ai crée un TCD via une macro, et j'ai ensuite voulu appliquer un filtre à celui ci.

Le problème est que l'erreur suivante apparait : "Impossible de définir la propriété Visible de la classe PivotItem"

Lorsque j'ajoute un "On Error Resume Next", la macro s’exécute sans l'erreur mais le filtre "Date_de_sortie_administra" ne coche pas les informations demandées. Seule la valeur "vide" est cochée.

Voici ma macro :

Sub Filtre_TCD()

Dim i As Variant

Sheets("Nb_sorties_adm").PivotTables("Sorties_adm").PivotFields("Date_de_sortie_administra").EnableMultiplePageItems = True

With Sheets("Nb_sorties_adm").PivotTables("Sorties_adm").PivotFields("Date_de_sortie_administra")

 'On Error Resume Next

    For i = 1 To .PivotItems.Count
        If .PivotItems(i) = "29/02/2019" Then

        .PivotItems(i).Visible = True

    Else
        .PivotItems(i).Visible = False

        End If

    Next i

End With

End Sub

Savez vous comment remédier à cela? Je cherche désespéramment depuis plusieurs heures, sans succès.

Bonjour

As-tu vérifié le format de items (utilise les espions)

Souvent les dates n'ont pas la forme que l'on imagine.

Bonjour,

Il faut peut-être commencer par chercher une date valide.

29 février 2019 ?

Cdlt.

Bonjour,

En effet, je me suis trompée, je voulais mettre "29/02/2020". J'ai changé la date, et j'ai vérifié via la fenêtre exécution le format des dates de mon fichier source, et les dates ressortent bien en jj/mm/aaaa.

Une idée de comment remédier à mon problème?

J'ai trouvé ! Merci pour votre aide, et bonne journée

Bonjour,

Peux-tu nous dire comment tu as remédié à ton souci ?

Ta solution peut-être utile à d'autres...

Cdlt.

Oui, bien sur!

J'ai juste ajouté la fonction CDate avant ma date : If .PivotItems(i) = CDate("29/02/2020") Then