Bjr,

J'ai créé cette macro. Elle marche trés bien, mais je souhaiterai créer une combox pour qu'il me demande le nom du critère, qui permet de faire l'extraction :

Par exemple : jacques allaire, la macro se lance jusqu'au bout puis ensuite me redemande si j'ai un autre nom a rentrer, jusqu'à ce qu'à la fin je dis non et la macro s'arrêt.

Je vous mets la macro ci-dessous, mais je ne sais pas comment on met les diese sur le côté. Merci de me l'expliquer

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
Sub EXTRAIREC()
 
   Selection.AutoFilter Field:=1, Criteria1:="EC"
   Selection.AutoFilter Field:=7, Criteria1:="ALLAIRE JACQUES"
 
' Copie de la feuille active
 
    ActiveSheet.Copy
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 
'Sauvegarde la copie
 
    ActiveSheet.SaveAs Filename:="G:\Direction Région Paris Ile France\RECLAMATIONS\- REPORTING\ENVOI RECL TOUS LES 15 J\ALLAIRE\RECL MAJ" & Format(Date, "ddmmyy")
    '& " " & ActiveSheet.Name
 
'Envoi Mail
 
    Dim dest As String
    dest = "veronique.guyon@lamy.net"
    ActiveWorkbook.SendMail Recipients:=dest, Subject:="Reporting des réclamations en cours", ReturnReceipt:=True
    ActiveWorkbook.Close SaveChanges:=True
 
    Selection.AutoFilter Field:=7
End Sub
puis de nouveau relancer avec un autre nom :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Selection.AutoFilter Field:=7, Criteria1:="DAVID MARTIN"
la macro repart jusqu'à ce que je n'ai plus de nom dans la liste et que je mette non.

Merci de votre aide !

Vérolyde