Menu

EXCEL-Macro envoie d'un mail incluant le contenu d'une feuille. (adresse provien [Résolu]

Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 2019
- - Dernière réponse : yg_be
Messages postés
7768
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 mai 2019
- 30 mars 2019 à 21:13
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
Afficher la suite 

Votre réponse

3 réponses

Messages postés
7722
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
23 avril 2019
1684
0
Merci
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
Reggs7
Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 2019
-
merci de l'info
Commenter la réponse de Patrice33740
Messages postés
14356
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mai 2019
1371
0
Merci
Bonjour,

Malheureusement lorsque je transmets le 2ième courriel
Ca veut dire que le premier est bien envoye!!!!!
Reggs7
Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 2019
-
exactement
Commenter la réponse de f894009
Messages postés
7768
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 mai 2019
464
0
Merci
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 
yg_be
Messages postés
7768
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 mai 2019
464 > Reggs7
Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 2019
-
que voici où?
Reggs7
Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 2019
-
yg_be
Messages postés
7768
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 mai 2019
464 > Reggs7
Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 2019
-
tu n'as pas expliqué comment obtenir le problème (la méthode 'Mailenvelope' de l'objet'_worksheet' a échoué).
je suggère ceci:
Sub courriel()

'déclaration des variables
    Dim mafeuille As Worksheet, tto As String

'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 mafeuille.MailEnvelope.Item
     tto = mafeuille.Range("AL2").Value
    .to = tto '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

Reggs7
Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 2019
-
merci
yg_be
Messages postés
7768
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 mai 2019
464 > Reggs7
Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 2019
-
si résolu, peux-tu marquer comme résolu, via la roue dentée à droite du titre?
Commenter la réponse de yg_be