Bjr,
J'ai une macro que je souhaiterai qu'elle se relance jusqu'à la fin du fichier excel :
Sub ordre()
openfichier
EXTRAIREC
End Sub
Sub openfichier()
'
' openfichier Macro
' Macro enregistrée le par VG
ChDir "G:\Direction Région Paris Ile France\RECLAMATIONS\- REPORTING"
Workbooks.Open Filename:= _
"G:\Direction Région Paris Ile France\RECLAMATIONS\- REPORTING\- REPORTING RECL PARIS IDF.xls"
End Sub
Sub EXTRAIREC()
Selection.AutoFilter Field:=1, Criteria1:="EC"
Selection.AutoFilter Field:=7, Criteria1:="M 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\M\RECL MAJ" & Format(Date, "ddmmyy")
'& " " & ActiveSheet.Name
'Envoi Mail
Dim dest As String
dest = "veronique.g@l.net"
ActiveWorkbook.SendMail Recipients:=dest, Subject:="Reporting des réclamations en cours", ReturnReceipt:=True
ActiveWorkbook.Close SaveChanges:=True
Selection.AutoFilter Field:=7
' PUIS REPARTIR SUR UN AUTRE NOM
Selection.AutoFilter Field:=1, Criteria1:="EC"
Selection.AutoFilter Field:=7, Criteria1:="DA SILVA ALVES"
' 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\A\RECL MAJ" & Format(Date, "ddmmyy")
'& " " & ActiveSheet.Name
'Envoi Mail
Dim dest As String
dest = "veronique.g@l.net"
ActiveWorkbook.SendMail Recipients:=dest, Subject:="Reporting des réclamations en cours", ReturnReceipt:=True
ActiveWorkbook.Close SaveChanges:=True
Selection.AutoFilter Field:=7
End Sub
etc... Je voudrai que la macro dès qu'elle a fini se relance avec un nouveau nom :
ou j'inscris tous les noms dans la macro ou elle me demande à chaque fois qu'elle a fini, un nouveau nom et si terminé j'inscris fin et la macro se termine.
La macro marche bien mais une seule fois, j'aimerai qu'elle se lance plusieurs fois.
Un grand merci pour votre aide !
verolyde
J'ai une macro que je souhaiterai qu'elle se relance jusqu'à la fin du fichier excel :
Sub ordre()
openfichier
EXTRAIREC
End Sub
Sub openfichier()
'
' openfichier Macro
' Macro enregistrée le par VG
ChDir "G:\Direction Région Paris Ile France\RECLAMATIONS\- REPORTING"
Workbooks.Open Filename:= _
"G:\Direction Région Paris Ile France\RECLAMATIONS\- REPORTING\- REPORTING RECL PARIS IDF.xls"
End Sub
Sub EXTRAIREC()
Selection.AutoFilter Field:=1, Criteria1:="EC"
Selection.AutoFilter Field:=7, Criteria1:="M 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\M\RECL MAJ" & Format(Date, "ddmmyy")
'& " " & ActiveSheet.Name
'Envoi Mail
Dim dest As String
dest = "veronique.g@l.net"
ActiveWorkbook.SendMail Recipients:=dest, Subject:="Reporting des réclamations en cours", ReturnReceipt:=True
ActiveWorkbook.Close SaveChanges:=True
Selection.AutoFilter Field:=7
' PUIS REPARTIR SUR UN AUTRE NOM
Selection.AutoFilter Field:=1, Criteria1:="EC"
Selection.AutoFilter Field:=7, Criteria1:="DA SILVA ALVES"
' 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\A\RECL MAJ" & Format(Date, "ddmmyy")
'& " " & ActiveSheet.Name
'Envoi Mail
Dim dest As String
dest = "veronique.g@l.net"
ActiveWorkbook.SendMail Recipients:=dest, Subject:="Reporting des réclamations en cours", ReturnReceipt:=True
ActiveWorkbook.Close SaveChanges:=True
Selection.AutoFilter Field:=7
End Sub
etc... Je voudrai que la macro dès qu'elle a fini se relance avec un nouveau nom :
ou j'inscris tous les noms dans la macro ou elle me demande à chaque fois qu'elle a fini, un nouveau nom et si terminé j'inscris fin et la macro se termine.
La macro marche bien mais une seule fois, j'aimerai qu'elle se lance plusieurs fois.
Un grand merci pour votre aide !
verolyde