Filtrer feuille selon critère

Bonjour,

Je suis débutant en VBA. Je cherche à savoir si je peux modifier mon code afin de sélectionner ma feuille au complète.

Sub Macro2()

'

' Macro2 Macro

'

Workbooks.Open Filename:= _

"G:\VPVSC\DP Expérience client\DPV\Dossier Benoit Faucher\Demandes Adhoc\2016\ASAS Gaston\Macro_ASAS\ASAS.xlsx"

Selection.AutoFilter

ActiveSheet.Range("$A$1:$J$110435").AutoFilter Field:=8, Criteria1:= _

">2015/01/01", Operator:=xlAnd

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Windows("Test rapport Gaston#2.xlsm").Activate

Sheets("ASAS_traités_20160801").Select

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteValues

Windows("ASAS.xlsx").Activate

ActiveWindow.Close

End Sub

Est-ce que je peux changer la partie en orange de façon à sélectionner ma feuille au complet ?

Merci

Bonjour,

A essayer :

identifier la dernière ligne :

iDerLig = Range("A" & Rows.Count).End(xlUp).Row

remplacer

ActiveSheet.Range("$A$1:$J$110435")

par

ActiveSheet.Range("$A$1:$J$" & iDerLig )

A tester ; sans PJ, difficile à vérifier ...

Bouben

Merci Bouben,

J'ai repris ton idée d'aller chercher la dernière ligne!

Sub Importation_ASAS()

Workbooks.Open Filename:= _

"G:\VPVSC\DP Expérience client\DPV\Dossier Benoit Faucher\Demandes Adhoc\2016\ASAS Gaston\Macro_ASAS\ASAS.xlsx"

Dim DernLigne As Long

DernLigne = Range("A" & Rows.Count).End(xlUp).Row

Selection.AutoFilter

ActiveSheet.Range("$A$1:$J$" & DernLigne).AutoFilter Field:=8, Criteria1:= _

">2015/01/01", Operator:=xlAnd

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Windows("Test rapport Gaston#2.xlsm").Activate

Sheets("ASAS_traités_20160801").Select

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteValues

Windows("ASAS.xlsx").Activate

ActiveWindow.Close

End Sub

Merci de ton aide, cela semble fonctionner très bien !