Bonjour,
j'ai un TCD avec plusieurs champs que je souhaite filtrer automatiquement :
un champs année : yyyy
mois : mm
jour : dd
ci dessous le code vba. Je ne comprends pas je n'arrive pas à filtrer automatiquement sur le champs "MOIS" sur le mois en cours.
avant de faire sur les autres champs, il faut que ça fonctionne sur ce champs.
merci pour votre aide,
Sub ExactDate()
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("MOIS")
'--any existing filters need to be cleared first or will error
.ClearAllFilters
'--use international date format to avoid formatting mismatches
.PivotFilters.Add Type:=xlAfter, _
Value1:=Format(Date, "mm")
End With
End Sub
j'ai un TCD avec plusieurs champs que je souhaite filtrer automatiquement :
un champs année : yyyy
mois : mm
jour : dd
ci dessous le code vba. Je ne comprends pas je n'arrive pas à filtrer automatiquement sur le champs "MOIS" sur le mois en cours.
avant de faire sur les autres champs, il faut que ça fonctionne sur ce champs.
merci pour votre aide,
Sub ExactDate()
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("MOIS")
'--any existing filters need to be cleared first or will error
.ClearAllFilters
'--use international date format to avoid formatting mismatches
.PivotFilters.Add Type:=xlAfter, _
Value1:=Format(Date, "mm")
End With
End Sub
Dernière modification par un modérateur: