Probleme extraction entre 2 dates

Bonjour,

J'ai trouvé ce code sur ce forum, mais après modification l'extraction entre 2 dates ne fonctionne plus avez vous une idée du souci

  Sub Extraction()

    ' Extraction entre deux dates
    ' Critères de dates     - Feuil1
    ' Base de données       - Feuil2
    ' Extraction            - Feuil3

    Sheets("Feuil3").Range("A1").CurrentRegion.Clear

      With Sheets("Feuil2")
        Application.CutCopyMode = False

       .Range("k2") = "=AND(a2>=Feuil1!A3,a2<=Feuil1!B3)"              'critères
        .Range("A1:g" & .Cells(Rows.Count, 7).End(xlUp).Row) _
        .AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        .Range("E1:E7"), CopyToRange:=Sheets("Feuil3").Range("a2:g2"), Unique:=False
        .Range("k2") = ""
        '.Rows(1).Delete
      End With
    End Sub

Salut le Forum

Sans fichier difficile de trouver l'erreur

Mytå

Bonsoir

Au 1er coup d’œil, ta formule étant en K2, le CriteriaRange ne devrait-il pas être K1:K2 ?

Amicalement

Nad