fichier excel à envoyer par mail

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub CreationMailEtLienHypertexte()
    Dim OlApp As Outlook.Application
    Dim OlItem As Outlook.MailItem
    'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
 
    Set OlApp = New Outlook.Application
    Set OlItem = OlApp.CreateItem(olMailItem)
 
    With OlItem
        .To = "NomPrenom@mail.fr"
        .Subject = "Le titre du message"
        .Body = "Découvrez Microsoft Office sur le site Developpez" & _
            vbLf & "http://www.developpez.com" & vbLf & vbLf & _
            "Cordialement" & vbLf & "mailto:emetteur@mail.fr"
        .Display
        .Save
        .Send
    End With
 
    Set OlItem = Nothing
    Set OlApp = Nothing
End Sub

Trouvé sur:
http://excel.developpez.com/faq/?pag...nkCorpsMessage

Pour le fichier joint, tu peux faire un print en pdf:

Code:

1
2
3
4
5
 
ThisWorkbook.Worksheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
            Dossier & "\" & NomFichier & ".pdf", Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            From:=1, To:=1, OpenAfterPublish:=False

Puis tu fais un :

Code:

1
2
 
OlItem .Attachments.Add Dossier & "\" & NomFichier & ".pdf"