Filtres avec date du jour

Bonjour le Forum !

Alors voila, je voudrais créer une macro qui filtre deux colonnes de mon fichier.

Pour l'instant j'ai le code :

ActiveSheet.Range("$B$2:$J$1869").AutoFilter Field:=8, Criteria1:="Soldé"
ActiveSheet.Range("$B$2:$J$1869").AutoFilter Field:=9, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "7/16/2018")

La colonne I et J sont à filtrées. L'ordre de filtration n'a pas d'importance. Dans la colonne I on a un état, soit "soldé" ( qui est le critère pour ce filtre), soit "en cours". Dans la colonne J, on a une date. C'est sur cette colonne que j'ai un problème.

Le code ci-dessus fonctionne très bien, sauf que je voudrais que la date soit celle du jour et donc quelle change tous les jours.

J'ai essayé avec Date à la place de la date d'aujourd'hui mais cela ne fonctionne pas ... Avec Now () non plus ...

Auriez-vous une idée de comment résoudre mon problème s'il vous plait ?

Merci d'avance

Bonjour,

Essaie ainsi :

With ActiveSheet.Range("$B$2:$J$1869")
        .AutoFilter Field:=8, _
                    Criteria1:="Sold?"
        .AutoFilter Field:=9, _
                    Criteria1:=xlFilterToday, _
                    Operator:=xlFilterDynamic
End With

Super c'est parfait merci beaucoup

Bonjour,

Tu as bien utilisé cette fonction?

DateTime.Date

Parce qu'elle renvoie bien une date sous le format suivant jj/mm/yyyy

Essaye cette ligne de code on ne sait jamais :

ActiveSheet.Range("$B$2:$J$1869").AutoFilter Field:=8, Criteria1:="Soldé"

ActiveSheet.Range("$B$2:$J$1869").AutoFilter Field:=9, Operator:= _

xlFilterValues, Criteria2:=DateTime.Date

Si ça ne marche pas c'est que ça doit fonctionner avec les valeurs (42000,42001 etc...)

essaye avec CLng(DateTime.Date) dans ce cas, ça convertira ta date en nombre