Macro envoi de mail

Bonjour,

J'utilise la macro ci-dessous qui fonctionne bien. Sauf que si je ne ferme pas le fichier et que je le ré-ouvre je reçois le message suivant :

La méthode mailEnvelope worksheet a échoué.

Je ne vois pas d'ou vient le problème

Voici la macro:

Sub EnvoiMail()

Dim MaFeuille As Worksheet
Dim Nbligne As Integer

Set MaFeuille = ThisWorkbook.Sheets("DEMANDE CODE")
Application.ScreenUpdating = False

Nbligne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
MaFeuille.Range("A15:F" & Nbligne).Select

With Selection.Parent.MailEnvelope.Item

.To = MaFeuille.Range("M2").Value
.CC = listeMails
.Subject = MaFeuille.Range("M3").Value
.send
Sheets("DEMANDE CODE").Visible = True

End With

MsgBox "Votre mail a été envoyé.", vbInformation + vbOKOnly, "CONFIRAMTION ENVOI MAIL"
Sheets("DEMANDE CODE").Visible = False
StpEvt = True

Application.ScreenUpdating = True

End Sub

Si quelqu'un a connu ce genre de problème ou a une idée.

Merci d'avance.

Cordialement

Xavier

Bonjour,

Pour réutiliser ce mode d'envoi, il faut ajouter à la fin de l'envoi, l'instruction de sauvegarde du classeur :

ThisWorkbook.Save

Bonjour,

Merci Thev, problème réglé.

Cordialement

Xavier