Pbl de filtre sur date

sonskriverez · 11 Mars 2006

Bonsoir le forum,

J'ai un probleme de reconaissance de date en VBA.

Je cherche à filtrer une colonne date sur la date du jour et sa fonctionne pas.

Ci-joint mon fichier, attention il faut régler la date interne de votre PC au 10/03/06 car mon fichier date du 10.

Sub toto()
Dim rec_groupe1, rec_groupe3, rec_sht, sh_source, titi
rec_groupe1 = 'toto' ' Total IN des Imacs
rec_groupe3 = (Format(CDate(Date), 'dd/mm/yyyy')) ' format de la date
sh_source = 'Query1' ' sheet source
Sheets(sh_source).Activate
Range('A1:C1').Select
Selection.AutoFilter
Worksheets(sh_source).Range('A1').AutoFilter Field:=3, Criteria1:=rec_groupe1 ' selection le groupe
x = (Format(CDate(Date), 'dd/mm/yyyy'))
Worksheets(sh_source).Range('A1').AutoFilter Field:=1, Criteria1:=x ' selection le groupe
End Sub

Merci de votre aide

Robert · 11 Mars 2006

Bonsoir Sonskriverez, bonsoir le forum,

Essaie avec x = DateValue(Date).

Message édité par: Robert, à: 11/03/2006 19:24

pat1545. · 11 Mars 2006

Salut,

moi c'est comme ça que ça a marché:

Dat1 = Format(Dat1, 'mm/dd/yyyy')

Pat

sons · 12 Mars 2006

Merci beaucoup à tous les deux pour votre aide.

J'ai opté pour la solution de Robert

Pbl de filtre sur date

sonskriverez

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

pat1545.

XLDnaute Accro

sons

Guest

Discussions similaires