Discussion :

[lilmonie]

Bonjour!

en espérant avoir un retour! je veux copier mon tableau6, après avoir fait un tri, vers une feuille "Recap" du classeur "Delta". J'ai utilisé ce code mais j'ai l'erreur suivante:

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
17
18
19
20
21
 
'Filtre tableau et copie vers feuille "PF"
wsSource.ListObjects("Tableau6").Range.AutoFilter Field:=38, Criteria1:="PI"
wsSource.ListObjects("Tableau6").Range.AutoFilter Field:=31, Criteria1 _
        :="=P", Operator:=xlOr, Criteria2:="=N"
wsSource.Range("Tableau6[#data]").Columns("A:AL").Copy PF.Range("A2")
PF.Range("A2:AL1048576").WrapText = False
 
'Copie vers Delta
Dim shtExport As Worksheet
Set wkDestination = Application.Workbooks.Open("C:\User\E457657\Documents\Important\Delta.xlsm")
Set shtExport = wkDestination.Worksheets("Recap")
 
    With wsSource.Range("Tableau6[#data]").Columns("A:AL")
         shtExport.Rows(2).Resize(.Rows.Count).Insert
        .Copy shtExport.Range("A2")
    End With
 
    Set shtExport = Nothing
wkDestination.Close True 'Ferme en sauvant.
If wsSource.FilterMode Then wsSource.ShowAllData

Voici l'erreur