Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Pbl de filtre sur date

sonskriverez

XLDnaute Occasionnel
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…