copier le résultat d'un filtre et coller dans une autre feuille Fermé

Question

Bonjour, 

je vous expose mon problème

j'ai une macro qui doit ouvrir un  fichier excel. faire un filtre sur la feuil nommé "RESULt_1505".

copier toutes les lignes du résultat du filtre en suite coller ces lignes une feuille nommé "source".

voici mon code et c'est la dernière ligne qui ne marche pas.

merci pour votre aide.

Sub Ouvre()
Dim wb As Workbook

Workbooks.Open ("C:\Users	abello\Desktop\extraction\COMPARISON_1505.xlsx")

Worksheets("RESULT_1505").Range("A1:V6565").AutoFilter Field:=4, Criteria1:="TOTAL"

Range("A2:w6565" & Range("A6565").End(xlUp).Row).Select

Selection.Copy Destination:=Sheets("source").Range("A2:w6565")


End Sub



Configuration: Windows / Chrome 62.0.3202.94

thev · Answer

Bonsoir,

Essayer ceci
    Workbooks.Open ("C:\Users	abello\Desktop\extraction\COMPARISON_1505.xlsx")    Worksheets("RESULT_1505").Range("A1:V6565").AutoFilter Field:=4, Criteria1:="TOTAL"    Sheets("RESULT_1505").Range("A1:V6565").SpecialCells(xlCellTypeVisible).Copy Sheets("source").Range("A2")

thev · Answer

Effectivement. Si le classeur n'est pas spécifié devant la feuille, le classeur actif est pris par défaut ( C:\Users	abello\Desktop\extraction\COMPARISON_1505.xlsx)

Sheets("source").Range("A2")    équivaut à
ActiveWorkBook.Sheets("source").Range("A2") 
Pour spécifier le classeur auquel appartient le code :
ThisWorkBook.Sheets("source").Range("A2")

Copier le résultat d'un filtre et coller dans une autre feuille

2 réponses

Discussions similaires