Joindre le fichier Excel en cours à un mail outlook

bonjour à tous , en fait j'ai créer un module VBA pour l envoi du fichier Excel à un nombre de destinataire Outlook, sans que le choix du fichier ce fait à partir de application.Application.GetOpenFilename ,

je peux pas mettre le lien du fichier du fait que ce fichier est utlisé par plus qu'une personne (risque de renomé)

je veux une methode pour que le fichier à joindre soit le même en cours.

MS

Bonjour,

à tester,

Sub Mail_ClasseurActif_Outlook()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

     fichier = ActiveWorkbook.FullName

    With OutMail
        .To = "xxxxxxxxx@xxxxxxxxx"
        .CC = ""
        .BCC = ""
        .Subject = "Le Subjec"
        .Body = "Hello!"
        .Attachments.Add (fichier)
'        .display
        .send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

bonjour

merci bcp

Rechercher des sujets similaires à "joindre fichier cours mail outlook"