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
4 octobre 2021
- 6 mars 2021 à 16:25
romanza
Messages postés
250
Date d'inscription
samedi 27 janvier 2007
Statut
Membre
Dernière intervention
4 octobre 2021
- 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
20050
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 août 2022
1 196
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
4 octobre 2021
2
6 mars 2021 à 18:08
Bonjour yg_be,

IMPEC!!

Merci beaucoup.

Pascal
0