Discussion :

[arctica]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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