EXCEL-Macro envoie d'un mail incluant le contenu d'une feuille. (adresse provien

Résolu/Fermé
Signaler
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019
-
Messages postés
18258
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 janvier 2022
-
Bonjour,
Je débute en VBA et j'utilise la formulation ici-bas. Malheureusement lorsque je transmets le 2ième courriel j'obtiens une erreur d'exécution avec le message la méthode 'Mailenvelope' de l'objet'_worksheet' a échoué (voir ==>)

Pouvez-vous m'indiquer comment corriger le code.


Sub courriel()

'déclaration des variables
Dim mafeuille As Worksheet

'affectation des variables
Set mafeuille = ThisWorkbook.Sheets("hor-agent")
'désactivation du rafrachissement de l'écran

Application.ScreenUpdating = False
mafeuille.Range("d3:Ai39").Select

'avec l'objet mail enveloppe on envoie dans le corps du mail
=====> With Selection.Parent.MailEnvelope.Item
.to = mafeuille.Range("AL2").Value 'destinataire
.Subject = mafeuille.Range("AL4").Value
.send 'envoie

'display on affiche

End With

MsgBox "Horaire transmise par courriel.", vbInformation + vbOKOnly, "CONFIRMATION COURRIEL ENVOYÉ"

Application.ScreenUpdating = True
Set mafeuille = Nothing

End Sub

3 réponses

Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 734
Bonjour,

Quand tu mets du code sur le Forum il faut le baliser,
c'est très simple :

Exemple :
Sub UtiliserLesBalises()
  MsgBox "Merci d'utiliser les balises de code"
End Sub
0
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

merci de l'info
0
Messages postés
16191
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 janvier 2022
1 579
Bonjour,

Malheureusement lorsque je transmets le 2ième courriel
Ca veut dire que le premier est bien envoye!!!!!
0
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

exactement
0
Messages postés
18258
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 janvier 2022
997
bonjour, quel est la différence entre le premier et le second courriel?
au lieu de:
mafeuille.Range("d3:Ai39").Select 
With Selection.Parent.MailEnvelope.Item 

je suggère:
With mafeuille.MailEnvelope.Item 
0
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

J'ai inscrit ta suggestion et malheureusement j'obtiens la même erreur d'exécution lors de la seconde tentative
0
Messages postés
18258
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 janvier 2022
997 >
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

quelle est la différence entre le premier et le second courriel?
0
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

La seule différence est le destinataire
0
Messages postés
18258
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 janvier 2022
997 >
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

peux-tu partager ton fichier?
0
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

voici une version qui permet d'entrer des adresses pour des test
0