selection de dates

Version imprimable

18/05/2011, 18h39
arctica

selection de dates

Bonjour à tous,

J'ai un fichier de données que je dois envoyer à un destinataire automatiquement tous les jours. la difficulté que je rencontre est que je dois n'envoyer que les données de hier et d'aujourdhui, dates qui se trouvent dans la colonne B. la colonne B contient deux mois en date) Pour ce faire j'utilise le code

Code:

ActiveSheet.Range("$A$5:$AQ$11131").AutoFilter Field:=2, Criteria1:= Date

qui ne me donne que les dates d'aujourdhui, normal . J'ai dond essayé d'y ajouter yesterday, ou date-1 mais la cela ne marche plus Pourriez vous m'aider?
merci

Code:

1
2
3
4
5
6
7
Dim LastLig As Long
 
With Sheets("Feuil1")                                                ' à adapter
    .AutoFilterMode = False
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    .Range("B5:B" & LastLig).AutoFilter Field:=1, Criteria1:="<=" & CLng(Date), Criteria2:=">=" & CLng(Date - 1), Operator:=xlAnd
End With

Bonsoir,
Un exemple pour un filtre sur la plage A1:A31 dont les critères sont aujourd'hui et hier

Code:

1
2
3
4
5
6
Sub Filtre()
 Dim sht As Worksheet, Cell As Range
 Set sht = ActiveSheet
 Set Cell = sht.Range("$A$1:$A31")
 Cell.AutoFilter Field:=1, Criteria1:=Date, Operator:=xlOr, Criteria2:=Date - 1
End Sub