Bonjour,
J'ai voulu automatiser une extraction de données d'un tableur vers un nouveau en ayant définis un filtre.
Grace à un bouton, je fais apparaitre un Userfrom, dans lequel se trouve une combobox pour choisir l'information à filtrer et un bouton pour lancer la macro.
Voici le code lié à la macro.
J'utilise déja ce code pour un autre tableur mais je n'arrive pas à l'utiliser pour celui ci.
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 Private Sub CommandButton1_Click() Dim Client As String, DernièreLigne As Long, NomFichier As String, objShell As Object Client = ComboBox1.Text 'Valeur choisie dans la liste DernièreLigne = Cells(Rows.Count, 5).End(xlUp).Row 'Détermine la dernière ligne en colonne E NomFichier = "Fichier_" & Client & "_" & Date Range("A6:T7").AutoFilter Field:=2, Criteria1:=Client 'On trie le tableau en fonction du nom du client. Range("A6:T" & DernièreLigne).Copy ActiveSheet.AutoFilterMode = False Unload Me Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False
Pourriez vous jeter un oeil, merci d'avance.
Je reste à votre disposition pour toute questions !
New Liste Reserve.xls
Partager