Enregistrer onglet en PDF puis création d'un email

Bonjour à tous,

Premièrement très bonne année à vous tous.

Je suis à la recherche d'une macro qui enregistre un onglet d'un fichier excel puis créer un email.

J'ai déjà une macro qui enregistre tous mes onglets en PDF mais je ne trouve pas comment creer un email.

Je ne veux pas que le mail s'envoie automatiquement car j'aimerais pouvoir modifier certaines fois..

Le top du top serait de pouvoir avoir un onglet "clé" dans lequel je peux indiquer le nom du pdf/ l'objet /les destinataires ainsi que le message pour chaque "nom d'onglet".

Ca m'aiderait vraiment beaucoup.

SI quelqu'un peut m'aider ca serait vraiment top top top

MErci

Bonjour Tomish,

Voici un exemple,

Sub Test_Mail_Outlook()
'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

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

    Set OutMail = Nothing
    Set OutApp = Nothing

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

End Sub

Salut un grand merci pour ta réponse !!!

J'ai un peu de mal à comprendre cette macro..

Je ne vois pas comment la macro désigne les destinataires l'objet et le corps du mail en fonction du nom de l'onglet Excel.

Ma demande n'était surement pas très claire..

Est il possible que chaque onglet Excel s'exportent en PDF et se retrouve avec un destinataire désigné par une cellule excel ?

re,

Est il possible que chaque onglet Excel s'exportent en PDF et se retrouve avec un destinataire désigné par une cellule excel ?

oui il faut adapter ces lignes

chemin = "C:\Users\isabelle\Documents\" 'à adapter

fichier = "Monfichier.pdf"  'à adapter

Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select 'à adapter

pour le destinataire

tu peux remplacer la ligne

        .To = "lui@ici.com"

par

        .To = Sheets("Feuil1").Range("A1").Value