Discussion :

[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

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

[Boboheme]

Bonjour,

Solution trouvée :

Convertir date en Long :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bon week end