bonjour
Je chercher à filtrer la colonne n°24 sur plus de 30 jours mais j'arrive pas !
Pensez-vous que je dois changer dans mes DIM ( remplacer string par autre chose ? )
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Sub Macro16()
'
' Macro16 du 21 05 2014 14h10 *** TESTS ***
 
Dim Wb As Workbook
Dim Lastline As Integer
Dim DateJourUS As String
Dim DateKPI09 As String
DateJourUS = Format(Now, "m/d/yyyy")
DateKPI09 = DateJourUS - 30
   '
   ' Ouvrir la feuille "Essai.xlsx"
   '
   Set Wb = ActiveWorkbook
   Workbooks.Open Filename:= _
   Wb.Path & "\Essai.xlsx"
   Sheets("Feuil1").Select
   Range("B2").Select
   Lastline = Range("B2").End(xlDown).Row
   Selection.AutoFilter
   ' Field = 24 = LAST SCAN DATE
    ActiveSheet.Range("$A$1:$AK$" & Lastline).AutoFilter Field:=24, Criteria1:= _
    "<=" & DateJourKPI09, Operator:=xlAnd, Criteria2:="<>"
 
    End Sub
Merci et bonne journée !