joindre le fichier excel en cours à un mail outlook

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
abderre
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 28 mai 2018
Version d'Excel : 2016

Message par abderre » 28 mai 2018, 11:48

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
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'102
Appréciations reçues : 267
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 28 mai 2018, 17:07

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
Merci! de faire un clic sur le bouton résolu pour nous aider à t'aider.
Si vous avez un doute :
annonces/explications-et-regles-a-respecter-t13.html

isabelle
a
abderre
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 28 mai 2018
Version d'Excel : 2016

Message par abderre » 28 mai 2018, 17:27

bonjour

:good:

merci bcp
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message