MailEnvelope marche une seule fois

Résolu/Fermé
romanza Messages postés 250 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 - 6 mars 2021 à 16:25
romanza Messages postés 250 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 - 6 mars 2021 à 18:08
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

yg_be Messages postés 22486 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 février 2024 1 446
6 mars 2021 à 17:22
bonjour,
cela semble mieux fonctionner si on sauve le fichier avant envoi:
ThisWorkbook.Save
0
romanza Messages postés 250 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 2
6 mars 2021 à 18:08
Bonjour yg_be,

IMPEC!!

Merci beaucoup.

Pascal
0