Bonjour,

Je suis débutante en VBA, je vous expose mon problème:
En gros je dois filtrer des données d'un tableau sur un classeur excel et copier que certaines colonnes dans un autre classeur Excel.
J'ai essayé un Code, mais il y a une erreur au niveau de : Range("A3:A400" & "B3:B400").Value.SpecialCells(xlCellTypeVisible).Copy

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
22
23
24
25
Sub Macro4()
'
' Macro4 Macro
'
 
'
   Set classeurSource = Application.Workbooks.Open("C:\Users\julie\Desktop\Cinaps\SF.xlsx", , True)
 
   Rows("2:2").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$AI$400").AutoFilter Field:=11, Criteria1:="DG"
    ActiveSheet.Range("$A$2:$AI$400").AutoFilter Field:=1, Criteria1:="P"
 
    Range("A3:A400" & "B3:B400").Value.SpecialCells(xlCellTypeVisible).Copy
 
 
 
   Set classeurDestination = ThisWorkbook
    Range("C2").Select
    ActiveSheet.Paste
 
    classeurSource.Close False
 
 
End Sub
Merci pour votre aide