Envoi fichier Excel via outlook

Bonjour,

Si quelqu'un peut m'aider, je dois envoyer un fichier excel par mail tous les jours.

Je souhaiterais automatiser cette action.

J'ai une VBA, j'arrive à executer la macro pour envoyer un test mais pas le fichier complet.

Si quelqu'un peut me renseigner svp ?

Merci d'avance.

Julien

Bonjour,

voici un exemple pour envoyer la feuille active,

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 = Environ(10) & "\Documents" 'à adapter
    fichier = "Rapport Sem " & Range("A2") & ".pdf"  'à adapter

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & fichier, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    With OutMail
        .To = "destinataire@blabla.com"  'à adapter
        .CC = ""
        .BCC = ""
        .Subject = "Le sujet"
        .Body = "Hello!"
        .Attachments.Add (chemin & fichier)
'        .Display
        .send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
    Kill chemin & fichier
End Sub

Merci SabV,

Par contre ca ne fonctionne pas.

Ci dessous le print screen, j'ai un message d'erreur quand je lance la macro.

Merci d'avance.

Julien

34doc1.docx (41.10 Ko)

remplacer

chemin = Environ(10) & "\Documents" 

par

chemin = "C:\Users\schutzej\Desktop
Rechercher des sujets similaires à "envoi fichier via outlook"