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

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:

Code:

---

1 2 3

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 :

Citation:

---

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 ?

Merci à monsieur JEAN-ERIC



CODE : TOUT SÉLECTIONNER

Code:

---

1 2 3 4 5 6

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

---