Email d'une seule feuille avec destinataire multiple

Bonjour à tous,

Je suis à la recherche d'une VBA pour envoyer une feuille active (FEUIL2)à plusieurs destinataires(FEUIL1) en appuyant sur un bouton.

J'ai trouvé cela, cependant je n'arrive pas à transformer le code pour que ce dernier récupère les emails dans des cellules FEUIL1 ?

Si au passage, je peux transformer la feuille en PDF, je serais au Top !

Merci d'avance pour l'aide apporté !!

Sub EnvoiPage()

Dim Destinataires(3) As String, Sujet As String

Dim AccuseReception As Boolean

Destinataires(1) = 'Destinataire1@domaine.fr'

Destinataires(2) = 'Destinataire2@domaine.fr'

Destinataires(3) = 'Destinataire3@domaine.fr'

Sujet = 'Objet éventuel de l'envoi'

AccuseReception = True

ThisWorkbook.Sheets('taPage').Copy

ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception

ActiveWorkbook.close false

End Sub

Bonjour,

Si au passage, je peux transformer la feuille en PDF, je serais au Top !

est ce que je peux utiliser l'objet Outlook au lieu de ActiveWorkbook.SendMail ?

Bonsoir,

Oui Outlook sera privilégié !

Donc pas de soucis

Oui Outlook sera privilégié !

Donc pas de soucis

ok je regarde ça et revient @+

Sympa Merci !!

re,

à tester,

Sub Mail_Outlook_fichier_PDF()
'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    chemin = "C:\Users\isabelle\Documents\" 'à adapter
    fichier = "Monfichier.pdf"  'à adapter

    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select 'à adapter
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & fichier, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    plgTO = Sheets("Feuil4").Range("A1:A2").Value        'à adapter, plage des adresse destinataire
    For i = LBound(plgTO) To UBound(plgTO)
    destinataire = destinataire & plgTO(i, 1) & ";"
    Next i

    With OutMail
        .To = destinataire
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = "Hello World!"
        .Attachments.Add (chemin & fichier)
        .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

End Sub

Wahoo !!!

C'est juste magnifique

ça fonctionne au top !!

Je l'ai adapté sans difficulté , il y a en plus l'option d'enregistrement automatique sur mon pc en cadeau...

Merci Beaucoup !

Merci pour ce retour, au plaisir!

ps/ pour clôture le fil, fait un clic sur le bouton (indiquer par la flèche verte)

Merci!

Justement je cherchai depuis un moment...

Très bonne soirée !

ne t'en fait pas, plusieurs contributeurs cherchent encore ce bouton

tu me fais plaisir, c'est un bon commentaire pour Sébastien