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

Question

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

Patrice33740 · Answer

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

f894009 · Answer

Bonjour,

 Malheureusement lorsque je transmets le 2ième courriel 
Ca veut dire que le premier est bien envoye!!!!!

yg_be · Answer

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

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

3 réponses

Discussions similaires