Macro Excel - Filtre Antérieur à la date du jour
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
Bonjour,
Peux-tu joindre ton fichier ou du moins un fichier avec des données représentatives?
A te relire.
Cdlt
Bonjour,
Solution trouvée :
Convertir date en Long :
ActiveSheet.Range("$A$1:$Z$1143").AutoFilter Field:=26, Criteria1:= _
"<" & Clng(Date), Operator:=xlAndBon week end