Problème erreur 1004 dans macro

Bonjour,

Je débute en macro et j'aimerais accélérer certaines tâches à l'aide de ces dernières.

J'ai fabriqué cette petite base pour exemple. Quantités vendues jour par jour sur 2 références 1 et 2.

Le tableau croisé dynamique me donne ça :

L'objectif de la macro et de décaler d'un jour donc, pour démarrer sur une tâche simple, de supprimer la date du 15 fév par exemple.
J'enregistre une macro pour ce faire :

Sub Macro_test3()

With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("date") .PivotItems("15-Feb").Visible = False

End With

End Sub

Sub Macro_test3()
Dim Date_jour As Date
Date_jour = InputBox("Veuillez saisir la date du jour")

With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("date") .PivotItems("Date_jour").Visible = False

End With
End Sub

Le message d'erreur :

Problème de format ?
Quelqu'un pourrait-il m'aider ?Merci d'avance !
Etienne

Edit modo : Lorsque vous postez un code pensez à utiliser les balises de code en cliquant sur l'icone </> dans la barre de menu.

Bonjour,

Une possibilité.

Sub Macro_test3()
    Dim Date_jour As Date
    Date_jour = InputBox("Veuillez saisir la date du jour")

    With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("date")
        ' Convertir la date en texte avec le même format que dans le champ Pivot
        Dim dateText As String
        dateText = Format(Date_jour, "dd-mmm")

        ' Utiliser la variable dans la visibilité de l'élément Pivot
        .PivotItems(dateText).Visible = False
    End With
End Sub

Possible problème de date, la convertir en texte.

Oiseau bleu