format date

[buromania]

Bjr Forum
Le sésultat de ce filtre est mm/dd/yyyy

Feuil10.Activate
Range('K1').Select
ActiveCell.FormulaR1C1 = '=TODAY()'
Columns('D').Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:='<' & Range('k1').Text & '', Operator:=xlAnd

Comment modifier today en aujourdhui
Ou placer formulalocal ?

bonne jounée à tous

 

[JeanMarie]

Bonjour

Essaye en remplaçant la ligne
ActiveCell.FormulaR1C1 = '=TODAY()'
par
ActiveCell.FormulaLocal = '=AUJOURDHUI()'

@+Jean-Marie

 

[buromania]

Bjr Jean Marie et le Forum
Le résultat est identique
le filtre place le mois en premier
autre astuce?
Bonne journée

 

[buromania]

Bjr Jean Marie et le Forum
Le résultat est identique
le filtre place le mois en premier
autre astuce?
Bonne journée

 

[buromania]

re bonjour à tous

Il ft rajouter selection.numberformat ='general' et le filtre fonctionne normalement