PivotField Date Filter working

The first loop works fine but the second date filter won't update. Any ideas would be great :

    Dim Pt as PivotTable
    Dim Pf as PivotField
    Dim Pi as PivotItem    

    Set Pt = Worksheets("Sheet1").PivotTables("Pivot1")
    Set Pf = Pt.PivotFields("Sales")

        For Each Pi In Pf.PivotItems
            If Pi.Value = "0" Then
                Pi.Visible = False
            Else
                Pi.Visible = True
            End If
                On Error Resume Next
        Next Pi
            
    Today = Date
    Set Pf = Pt.PivotFields("Dates")
        Pf.PivotFilters.ClearAllFilters
        Pf.PivotFilters.Add Type:=xlBefore, Value1:=Today

Thanks !

You may use

        Pf.ClearAllFilters
        Pf.PivotFilters.Add Type:=xlBefore, Value1:=CLng(Today)

That doesn't work either. I muse have something elsewhere in my code that's not working. Do you think clearing the cache would change anything ?

Is your field really a date type? Can you manually use the date filters on it?

Yes I can manually use the date filters on it. If I use the Macro Recorder, I get the following code :

ActiveSheet.PivotTables("Pivot1").PivotFields("Dates"). _
PivotFilters.Add Type:=xlBefore, Value1:="12/17/2013"

May you provide a workbook? The solution I suggested does work with Excel 2010 when I test it.

I'd like to but can't. Thanks again for your help Izandol !