Bonjour à tous
Premier message posté sur ce forum, ce n'est pourtant pas la première fois que je le consulte. Je remercie d'abord toutes et tous pour cela !
Je vous sollicite pour un problème qui me tire les cheveux !
J'ai deux bases. La première est une extraction comptable et la deuxième une base de gestion.
Je souhaiterai filtrer des données de la première, plus précisément des données date entre la valeur d'une cellule située sur le deuxième fichier et "aujourd'hui".
Est-ce possible ? Je ne trouve aucun moyen de le faire sauf à copier la valeur dans le filtre avancé.
Par ailleurs, j'aimerai automatiser la copie des lignes de la première base à la suite de celle de la seconde. J'ai utilisé la fonction LngLastRow mais elle ne semble pas fonctionner.
Voici mon code :
Windows("EDI_EXTRACT_CDG_DIVERSIFICATION.xls").Activate
ActiveWindow.SmallScroll Down:=-21
Selection.AutoFilter
Windows("Base Call & IP 2016-macro.xlsm").Activate
Range("A11").Select
Selection.Copy
Windows("EDI_EXTRACT_CDG_DIVERSIFICATION.xls").Activate
ActiveSheet.Range("$A$1:$AB$2764").AutoFilter Field:=22, Criteria1:= _
">=15/09/2016", Operator:=xlAnd, Criteria2:="<=19/09/2016"
ActiveSheet.Range("$A$1:$AB$2764").AutoFilter Field:=14, Criteria1:= _
"=PJECST6", Operator:=xlOr, Criteria2:="=PJEINTP"
Sheets("EDI-EXTRACT-CDG-DIVERSIFICATION").Range("$A$2:$AB$2704").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
Mille merci à celles et ceux qui prendront le temps de m'aider.
arochab
Premier message posté sur ce forum, ce n'est pourtant pas la première fois que je le consulte. Je remercie d'abord toutes et tous pour cela !
Je vous sollicite pour un problème qui me tire les cheveux !
J'ai deux bases. La première est une extraction comptable et la deuxième une base de gestion.
Je souhaiterai filtrer des données de la première, plus précisément des données date entre la valeur d'une cellule située sur le deuxième fichier et "aujourd'hui".
Est-ce possible ? Je ne trouve aucun moyen de le faire sauf à copier la valeur dans le filtre avancé.
Par ailleurs, j'aimerai automatiser la copie des lignes de la première base à la suite de celle de la seconde. J'ai utilisé la fonction LngLastRow mais elle ne semble pas fonctionner.
Voici mon code :
Windows("EDI_EXTRACT_CDG_DIVERSIFICATION.xls").Activate
ActiveWindow.SmallScroll Down:=-21
Selection.AutoFilter
Windows("Base Call & IP 2016-macro.xlsm").Activate
Range("A11").Select
Selection.Copy
Windows("EDI_EXTRACT_CDG_DIVERSIFICATION.xls").Activate
ActiveSheet.Range("$A$1:$AB$2764").AutoFilter Field:=22, Criteria1:= _
">=15/09/2016", Operator:=xlAnd, Criteria2:="<=19/09/2016"
ActiveSheet.Range("$A$1:$AB$2764").AutoFilter Field:=14, Criteria1:= _
"=PJECST6", Operator:=xlOr, Criteria2:="=PJEINTP"
Sheets("EDI-EXTRACT-CDG-DIVERSIFICATION").Range("$A$2:$AB$2704").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
Mille merci à celles et ceux qui prendront le temps de m'aider.
arochab