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

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 ?

Bonsoir,

Un peu confuse la demande.

A tester.

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

Merci Énormément Monsieur Jean-Eric

ça fonctionne Parfaitement !! ^_^

Rechercher des sujets similaires à "filtrage via vba parametre variable date jour cours"