Bonjour à tous,

Je débute en VBA excl ,je veux faire un filtrer d'une base, copier le filtrage vers un autre classeur et mettre cette copie à la suite, pour l’instant j'arrive juste à récupérer les donner d'un fichier excel et les mettre dans un classeur,


Merci pour l'aide

Code:
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
26
27
28
29
30
31
Sub Bouton1_Clic()
Reponse = MsgBox("Voulez vous charger l'Export RESPIRE pour l'année " & Range("B" & Range("D100")) & "?", vbQuestion + vbYesNo)
 
If Reponse = vbYes Then
    Fichier = Application.GetOpenFilename("Fichier Excel, *.csv; *.xlsm;*.xls;*.xla")
 
 
    'Range("A1:Z300000").Value = Null
  If Fichier <> False Then
    Annee = Range("C100")
 
    Sheets(Annee).Activate
    Var_chemin = Fichier
    Fichier1 = ActiveWorkbook.Name
    Workbooks.Open Var_chemin, local:=True
    Fichier2 = ActiveWorkbook.Name
 
    Workbooks(Fichier2).Sheets(1).Range("A1:Z300000").Copy Workbooks(Fichier1).Sheets(Annee).Range("A1:Z300000")
 
 
    Windows(Fichier2).Activate
    ActiveWorkbook.Close savechanges:=False
    Windows(Fichier1).Activate
    Sheets("feuil1").Activate
 
  Else
    MsgBox "Vous n'avez exporté aucun fichier ReSPIRe"
  End If
 
End If
End Sub