Discussion :

[arochab]

Bonjour à tous,

Je me permets de vous solliciter car je suis bloqué avec un code VBA ce qui me cause beaucoup d'arrachements de cheveux !

Je souhaite copier des lignes d'une base de données vers une autre.
La première base est filtrée en fonction de codes comptables, et j'aimerai créer un autre filtre permettant de sélectionner les lignes apparues entre une date (affichée dans une cellule sur le document devant recevoir ces nouvelles lignes) et aujourd'hui.

Est-ce possible ?

Par ailleurs, je ne parviens pas à faire de sorte que les lignes soit copiées automatiquement sur la première ligne vide de la base (à la suite de toutes les autres). Si quelqu'un a des idées je suis preneur !

Voici le code que j'ai créé pour le moment :

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
Sub copierversbase()
 
    Windows("EDI_EXTRACT_CDG_DIVERSIFICATION.xls").Activate
    ActiveSheet.Range("$A$1:$AB$2704").AutoFilter Field:=22, Criteria1:= _
        xlFilterYesterday, Operator:=xlFilterDynamic
    ActiveSheet.Range("$A$1:$AB$2704").AutoFilter Field:=14, Criteria1:= _
        "=PJECST6", Operator:=xlOr, Criteria2:="=PJEINTP"
    Sheets("EDI-EXTRACT-CDG-DIVERSIFICATION").Range("$A$2:$AB$2704").SpecialCells(xlVisible).Copy
    Windows("Base 2-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
 
End Sub

Mille mercis d'avance pour votre aide,

arochab

[Marc-L]

Bonjour,

il suffit juste d'ajuster le filtre en y ajoutant les critères de dates …

Pour la première ligne vide, voir par exemple la propriété Range.End (entre autres, voir la FAQ).

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[arochab]

Bonjour,

Oui mais comment opérer un filtre qui se basera sur les infos d'une cellule ?

Merci d'avance ainsi que pour le lien que je vais regarder de ce pas.

arochab

[halaster08]

Bonjour,

Oui mais comment opérer un filtre qui se basera sur les infos d'une cellule ?

A voir: http://philippetulliez.developpez.co...dvancedfilter/

[arochab]

Bonjour halaster,

Merci pour le lien, mais il ne m'apporte pas la solution sur la création d'un critère lié à une date située dans une cellule d'un autre workbook excel... :s

arochab