MailEnvelope marche une seule fois [Résolu]

Signaler
Messages postés
248
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
18 mars 2021
-
Messages postés
248
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
18 mars 2021
-
Bonjour,

J'ai recopié un code macro (je ne maîtrise pas) pour envoyer, via ,outlook, le contenu d'une feuille Excel qui contient un tableau croisé dynamique.
Mon problème c'est que cela fonctionne une seule fois seulement après ouverture du fichier. La seconde fois j'ai le message :

" 'La méthode Mailenvelope de l'objet worksheet' a échoué"

Voilà ma macro :

Sub EnvoiMail()

Dim MaFeuille As Worksheet
Dim NbLigne As Integer
Set MaFeuille = ThisWorkbook.Sheets("Feuil1")
Application.ScreenUpdating = False
NbLigne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
MaFeuille.Range("A5:J" & NbLigne).Select
With Selection.Parent.MailEnvelope.Item
.To = MaFeuille.Range("N4").Value
.Subject = MaFeuille.Range("A1").Value
.Send

End With
MsgBox "Votre mail a été envoyé.", vbInformation + vbOKOnly, "CONFIRMATION ENVOI MAIL"
Application.ScreenUpdating = True
Range("A1").Select
End Sub

Merci beaucoup pour votre aide

Pascal













Configuration: Windows / Chrome 88.0.4324.190

2 réponses

Messages postés
15994
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
12 juin 2021
867
bonjour,
cela semble mieux fonctionner si on sauve le fichier avant envoi:
ThisWorkbook.Save
Messages postés
248
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
18 mars 2021
2
Bonjour yg_be,

IMPEC!!

Merci beaucoup.

Pascal