XL 2010 Macro pour envoyer un mail à plusieurs destinataires

anbar

XLDnaute Junior
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.
 

Fichiers joints

harry226h

XLDnaute Junior
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

XLDnaute Junior
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas