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
11435
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
30 juin 2020
-
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
8128
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
24 juin 2020
1 430
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
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

merci de l'info
Messages postés
15238
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 juin 2020
1 306
Bonjour,

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

exactement
Messages postés
11435
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
30 juin 2020
654
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 
Messages postés
11435
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
30 juin 2020
654 >
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

que voici où?
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

https://www.cjoint.com/c/HLBs3HqKaom
Messages postés
11435
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
30 juin 2020
654 >
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 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

Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

merci
Messages postés
11435
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
30 juin 2020
654 >
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

si résolu, peux-tu marquer comme résolu, via la roue dentée à droite du titre?