Variable de filtre pour TCD - fonctionne pas

Bonjour,

voici une petite macro, qui ne fonctionne pas, pourriez vous me dire ce qui cloche :

Option Explicit

Sub Macro9()
'
' Macro9 Macro
'
Dim current_date As Date
current_date = DateAdd("D", -7, Date)

    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date"). _
        PivotFilters.Add Type:=xlAfter, Value1:=current_date
End Sub

L'erreur m'indique la date tapée n'est pas valide.

Merci beaucoup,

Franck.

Bonjour,

Il se pourrait que l'erreur provienne du format de date, qui souvent en VBA doit être mm/dd/yyyy, à l'anglaise, et qui nécessite donc une conversion.

J'ai eu ce problème pour un filtrage et en voici la solution :

'Date cherchée en A1

'Titre de colonne "Date" en A2

'Liste de dates à filtrer en dessous

Dim DateX as Date

Dim StrDateX as String

DateX = Range("A1").Value

strDateX = Day(DateX) & "/" & Month(DateX) & "/" & Year(DateX)

'Filtrage sur la date

Range("A2").Select

Selection.AutoFilter Field:=1, Criteria1:=CDate(Format(strDateX, "mm/dd/yyyy"))

Bonne chance.

Bonjour,

Si tu as une erreur, il se peut que ton champ ne contient pas la date reprise dans Current_date.

Sans voir ton fichier, c'est difficile de répondre

Amicalement