Filtrage via VBA avec parametre Variable (Date du jour en cours) RESOLU

[Sghaier Chafaa]

Je cherche de faire le trie automatisé de la date avec un Macro VBA, le critère est que la date à choisir doit être la date en cour du système
donc c'est un paramètre de date variable.

mon code actuel pour une date fixe (10/31/2017) est comme suit:

Sub filtedate1()
ActiveSheet.Range("$C$6:$AI$1283").AutoFilter Field:=4, Criteria1:=Array("="), Operator:=xlFilterValues, Criteria2:=Array(2, "10/31/2017")
End Sub

J'ai chercher de changer la date "10/31/2017" par les paramètres suivants :
Date
Aujourd'hui
AUJOURDHUI()
LDate
"Date"
"Aujourd'hui()"
"LDate"

Aussi j'ai essayé d'attribuer la resultat de la fonction AUJOURDHUI() à une cellule E1 que j'ai nommé (datedaujourdhui) puis je l'ai mis parmis les variable de syntexe : Criteria2:=Array(2,datedaujourdhui)

Mais toujours erreur de Debogage, y a -t-il une solution s'il vous plait ?

 

[Sghaier Chafaa]

Merci à Monsieur JEAN-ERIC


CODE : TOUT SÉLECTIONNER

Sub filtedate1()
ActiveSheet.Range("$C$6:$AI$1283").AutoFilter _
Field:=4, _
Criteria1:=xlFilterToday, _
Operator:=xlFilterDynamic
End Sub