Macro Excel - Filtre Antérieur à la date du jour

[Boboheme]

Bonjour à Tous,

Je possède une base de données avec toute une série d'articles à livrer avant certaines dates.
Je souhaiterais isoler les dates antérieurs à aujourd'hui.

Cette tâche étant récurrente, je souhaiterais créer une simple macro réalisant cette étape.
Le soucis, c'est que le filtre se crée bien MAIS la date est en Format US.

Si je fais tourner la macro aujourd'hui, le filtre va se créer sur 03/08/2014 (et non 08/03/2014).
Le résultat de mon filtre est Faux par Conséquent.

J'ai tenté de convertir le Format des Dates de la Feuille EXCEL en Format US (MM/DD/YYYY) mais le résultat n'est pas probant :cry:

Voici mon "code" :

Sheets("PO_EC_ST_MAT").Select
Columns("H:H").Select
Selection.Copy

Range("Z1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.NumberFormat = "mm/dd/yyyy"

Range("Z1").Select
Selection.AutoFilter

ActiveSheet.Range("$A$1:$Z$1143").AutoFilter Field:=26, Criteria1:= _
"<" & Date, Operator:=xlAnd

Columns("A:V").Select
Range("V1").Activate



Qqn peut-il m'aider sur ce point bloquant ?



D'avance merci.
Bon week-end

Bobo

 

[Staple1600]

Re : Macro Excel - Filtre Antérieur à la date du jour

Bonjour à tous

Bobo (bienvenue sur le forum)
Convertis ta date en Long, cela évitera le problème.

ActiveSheet.Range("$A$1:$Z$1143").AutoFilter Field:=26, Criteria1:= _
"<" & Clng(Date), Operator:=xlAnd

 

[Boboheme]

Re : Macro Excel - Filtre Antérieur à la date du jour

Bonjour à Nouveau,

Merci pour ta précieuse aide Staple, le filtre marche parfaitement

Bon Week-end!
Bobo

 

[Staple1600]

Re : Macro Excel - Filtre Antérieur à la date du jour

Re

Bobo
Oui le filtre marche parfaitement
Mais ta courtoisie beaucoup moins ...
Macro Excel - Filtre Antérieur à la date du jour : Excel - VBA

PS: Je t'épargne mon couplet sur le crossposting et la netiquette.