Pbl de filtre sur date

[sonskriverez]

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]

Bonsoir Sonskriverez, bonsoir le forum,

Essaie avec x = DateValue(Date).

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

 

[pat1545.]

Salut,


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

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

Pat

 

[sons]

Merci beaucoup à tous les deux pour votre aide.

J'ai opté pour la solution de Robert