Problème envoi d'un mail via Excel et Outlook

Bonjour tous,

Grosse galère sur une Macro (c'est ma première).

La macro est relié à un bouton et son action est d'enregistrer le fichier à un emplacement autres avec la date du jour.

Jusqu'ici tout va bien, ça fonctionne. La deuxième action demandé est d'envoyer un e-mail avec en PJ le fichier à la date du jour.

Lorsque j'éxécute la macro, j'ai Outlook qui s'ouvre avec mon fichier en PJ et en objet le nom du fichier à la date du jour ce qui me conviens.

Il faut que je rajoute le destinataire qui sera une liste de distribution. Le but du jeux c'est en cliquant sur le bouton qui active la macro que le mail soit envoyé directement sans autre action de notre par que le clic sur le bouton.

Voici la macro.

Sub Enreg()

Dim Path As String, valeur As String

Path = ActiveWorkbook.Path & "\Archive Check Quotidien\"

valeur = "Check Quotidien" & Format(Date, "yyyy-mm-dd") & ".xls"

ThisWorkbook.SaveAs Path & valeur

Application.Dialogs(xlDialogSendMail).Show

End Sub

Merci pour votre aide.

Syyx

Bonsoir,

Ci-joint une proposition à tester.

La liste des destinataires est dans l'onglet "Destinataires", avec une plage nommée.

Bonne soirée

Bouben