XL 2010 Macro pour envoyer un mail à plusieurs destinataires

anbar · 13 Janvier 2019

Bonjour à tous
Je vous sollicite pour m'aider à élaborer une macro me permettant d'envoyer par mail une seule feuille d'un classeur à plusieurs destinataires, en l’occurrence il s'agit de la (feuil1 à envoyer incorporée dans le mail).
Après plusieurs recherches dans les forums j'ai trouvé une solution pour un seul destinataire mais pour plus je n'arrive pas à trouver la solution.
dans cet exemple
le destinataire est la valeur de la cellule M2 l'objet est la valeur de la cellule L2.
code:
Sub envoi_mail()
Dim Plage As Range
Dim Mafeuille As Worksheet
Dim NbLigne As Integer
ActiveWorkbook.EnvelopeVisible = True
Set Mafeuille = ThisWorkbook.Sheets("Feuil1")
Application.ScreenUpdating = False
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
Mafeuille.Range("A1:J17" & NbLigne).Select
With Selection.Parent.MailEnvelope.Item
.to = Mafeuille.Range("M2").Value
.Subject = Mafeuille.Range("L2").Value
.send
End With
Range("A4:J52").Select
Selection.ClearContents
MsgBox "votre mail a été envoyé", vbInformation + vbOKOnly, "confirmation d'envoi"
ActiveWorkbook.EnvelopeVisible = True
End Sub
ci-joint le fichier ''classeur1''
Merci à vous tous et toutes.

harry226h · 13 Janvier 2019

Bonjour anbar, bonjour le forum
Une proposition. Ajouter le code ci dessous et tester en supposant que les adresses de destination soit en M2 et suivant.

Code:

For i = 2 To Worksheets("Feuil1").Range("M" & Rows.Count).End(xlUp).Row
    Destinataires = Destinataires & ";" & Worksheets("Feuil1").Range("M" & i).Value
Next i

Modifier egalement

Code:

.To = Destinataires

En esperant que ca regle ton probleme

anbar · 16 Janvier 2019

Bonjour harry226h
Tout d'abord je tiens à te remercier infiniment pour ta précieuse aide.
Sauf que le problème est que quand je lance le fichier et que je clique sur le bouton j'obtiens un beug avec le message suivant
(la méthode select de la classe Range a échoué ) j'ai du chercher sur les forums mais sans résultat, mais ca n'a rien à voir avec le code que tu as rajouté parce que je l'avant avant.
Merci

BigA · 23 Avril 2020

Bonsoir anbar,
Voici comment j'aurais procédé pour envoyer le tableau par mail à plusieurs destinateurs. Je précise, 1 mail par destinataire. Actuellement, la macro affiche le mail, ce paramètre peut être changé dans le code en supprimant l'apostrophe devant le .Send

Cordialement,
Moi

XL 2010 Macro pour envoyer un mail à plusieurs destinataires

anbar

XLDnaute Junior

Pièces jointes

harry226h

XLDnaute Junior

anbar

XLDnaute Junior

BigA

XLDnaute Nouveau

Pièces jointes

Discussions similaires