Sghaier Chafaa
XLDnaute Junior
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 ?
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 ?