Hello tout le monde,

Je viens à vous car je suis clairement bloqué sur une macro que j'aimerai développer ! :s

J'ai une extraction comptable dont j'aimerai copier des lignes filtrées vers une base de gestion.

Mais j'ai beaucoup de mal avec un filtre : je souhaiterai filtrer la plage en se basant sur une date située dans une cellule (cette date est amenée à évoluer automatiquement) et la date d'aujourd'hui. Est-ce possible ?

Par ailleurs, j'aimerai copier ces lignes à la suite d'autres lignes et ce de manière automatique (donc dans le code sans Range défini). M'étant basé sur des réponses apportés sur développez.net, je ne trouve pas de réponse à mon pro

Voici mon code jusqu'à présent :

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
    Windows("EDI_EXTRACT_CDG_DIVERSIFICATION.xls").Activate
    Application.CutCopyMode = False
    Selection.AutoFilter
    Windows("Base Call & IP 2016-macro.xlsm").Activate
    Sheets("Check").Range (A11)
    Selection.Copy
    Windows("EDI_EXTRACT_CDG_DIVERSIFICATION.xls").Activate
    ActiveSheet.Range("$A$1:$AB$5000").AutoFilter Field:=22, Criteria1:= _
        ">=15/09/2016", Operator:=xlAnd, Criteria2:="<=19/09/2016"
    ActiveSheet.Range("$A$1:$AB$5000").AutoFilter Field:=14, Criteria1:= _
        "=PJECST6", Operator:=xlOr, Criteria2:="=PJEINTP"
    Sheets("EDI-EXTRACT-CDG-DIVERSIFICATION").Range("$A$2:$AB$5000").SpecialCells(xlVisible).Copy
    Windows("Base Call & IP 2016-macro.xlsm").Activate
    Sheets("Base").Select
    Dim LngLastRow As Long
    LngLastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Milles merci à celles et ceux qui prendront le temps de m'aider.

arochab