Copier filtre vers classeur

Question

Bonjour,

J'aurai vraiment besoin d'aide sur un problème que je rencontre. 
Dans un tableau je fais 2 filtres sur 2 colonnes différentes après filtre je copie le résultat vers un autre classeur. Sauf que mes données changent chaque semaine donc je voudrais que lorsque je colle dans l'autre classeur, cela soit sur la 1ère ligne du tableau (les données les plus récentes en premier). 
Cependant avec le code que j'applique, mon collage se fait sauf qu'il y a des lignes vides qui apparaissent et j'arrive pas à les enlever^^
Voici mon code:
Dim shtExport As Worksheettitre = "C:\User\Jazz\Documents\Important\Semaine.xlsm"Set wkDestination = Workbooks.Open(titre, local:=True)Set shtExport = wkDestination.Worksheets("Recap 2014")wsSource.ListObjects("Tableau9").Range.AutoFilter Field:=35, Criteria1:="2014"wsSource.ListObjects("Tableau9").Range.AutoFilter Field:=31, Criteria1 _        :="=OP", Operator:=xlOr, Criteria2:="=V"With wsSource.Range("Tableau9#data").Columns("A:AI")shtExport.Rows(2).Resize(.Rows.Count).SpecialCells(xlCellTypeVisible).Insert.Copy shtExport.Range("A2")End With

Qu'en pensez vous? Merci pour vos retours

Patrice33740 · Answer

Bonjour, Edit DSL c'était pas la solution! Cordialement Patrice

jazzjasmine · Answer

Pas compris votre réponse^^

Patrice33740 · Answer

Bonjour,

Au lieu de :
With wsSource.Range("Tableau9#data").Columns("A:AI")
  shtExport.Rows(2).Resize(.Rows.Count).SpecialCells(xlCellTypeVisible).Insert
  .Copy shtExport.Range("A2")
End With

Essaies :
With wsSource.Range("Tableau9#data").Columns("A:AI")
    shtExport.Rows(2).Resize(.SpecialCells(xlCellTypeVisible).Count / .Columns.Count).Insert
    .Copy shtExport.Range("A2")
End With

jazzjasmine · Answer

Merci pour votre aide!
ca a bien fonctionné!  Bonne journée

Copier filtre vers classeur

4 réponses

Votre réponse

Discussions similaires