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

Résolu
Reggs7 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

3 réponses

Réponse 1 / 3
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
Reggs7 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
merci de l'info
0
Réponse 2 / 3
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Malheureusement lorsque je transmets le 2ième courriel
Ca veut dire que le premier est bien envoye!!!!!
0
Reggs7 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
exactement
0
Réponse 3 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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
Reggs7 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai inscrit ta suggestion et malheureusement j'obtiens la même erreur d'exécution lors de la seconde tentative
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > Reggs7 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
quelle est la différence entre le premier et le second courriel?
0
Reggs7 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
La seule différence est le destinataire
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > Reggs7 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
peux-tu partager ton fichier?
0
Reggs7 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
voici une version qui permet d'entrer des adresses pour des test
0

Discussions similaires

Rétrodiffusion "Mail Delivery System"
baissaoui -
baissaoui -

0 réponse