probleme de filtre dans une macro

Re : probleme de filtre dans une macro

Bonjour,

pour que l'on te viennes en aide, envoie un bout de fichier (<48,8ko) qui illustre ce que tu dis.

Re : probleme de filtre dans une macro

Ok, je joint un condensé du classeur avec sa macro

Re : probleme de filtre dans une macro

je voudrai pouvoir faire un filtre élaboré pour ne garder que les information avant une date qui change chaque jours

voici où j'en suis arrivé et là je bloque car cela ne fonctionne toujours pas :

' EXTRACTION JUSQU'A DATE + 7 (N2)


Dim nFiltre As String
nFiltre = Worksheets("feuil1").Range("N2").Value
Range("I2:I3000").Select
Selection.AutoFilter Field:=1, Criteria1:="<=" & nFiltre
Range("A1").Select
Range("A1:L3001").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("2009").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Feuil1").Select
Columns("I:I").Select
Range("A1").Select
Selection.NumberFormat = "m/d/yyyy"

Range("N2:N22").Select
Selection.Copy
Range("I2:I3000").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFilter
Range("I1").Select
Selection.AutoFilter
Range("A2:O3000").Sort Key1:=Range("I1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.AutoFilter
Columns("I:I").Select
Selection.NumberFormat = "m/d/yyyy"
Application.CutCopyMode = False

Selection.AutoFilter Field:=9, Criteria1:="<09/04/2009", Operator:=xlAnd


Sheets("Feuil1").Select
Range("A3001").Select
Selection.AutoFilter
Range("A1").Select
Sheets("Feuil2").Select
Cells.Select
Selection.AutoFilter
Range("A1:L1").Sort Key1:=Range("I1"), Order1:=xlAscending, Header:=xlYes _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select

quelqu'un pourrait il m'aider ???