Microsoft 365 envoyé un email en macro avec pièce jointe

criauto

XLDnaute Nouveau
Bonjour j'ai fait un code pour créer un fichier une "fiche de liaison" en pdf
Je souhaite l envoyer par mail mais je n comprend pas comment choisir ce fichier
La ligne Application.Dialogs est une copie qui me sert a envoyer un fichier PLC
Je ne comprend pas ce qu'il faut modifier pour prendre le fichier Fiche de liaison

merci de votre aide

Sub PDF_FdL()
Dim Ar(1) As String
Ar(0) = "Fiche de liaison"
Ar(1) = "Macro_planning"
Application.ScreenUpdating = False
Sheets(Ar).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Fiche de liaison OT " & Cells(8, 3).Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.ScreenUpdating = True
Worksheets("Fiche de liaison").Select
End Sub

Sub envoi_mail()
Application.Dialogs(xlDialogSendMail).Show arg1:=Sheets("PLC").Cells(48, 4).Value, arg2:="fdl " & Sheets("PLC").Cells(19, 1).Value & " : PLC à valider - " & Sheets("PLC").Cells(2, 4).Value & " - " & Sheets("PLC").Cells(24, 13).Value & "€ (" & Sheets("PLC").Cells(3, 4) & ")"
End Sub
 

criauto

XLDnaute Nouveau
salut personne ne peut m aider ?
Est ce trop compliqué ou est ce moi qui est mal posé ma question ??
sinon quelqu'un sait pourquoi cette ligne de code envoie en PJ mon classeur complet en XLS ? que modifier pour envoyer que l'onglet "Classeur2" en PDF

merci

Application.Dialogs(xlDialogSendMail).Show arg1:=Sheets("PLC").Cells(48, 4).Value, arg2:="OT " & Sheets("PLC").Cells(19, 1).Value & " : PLC à valider - " & Sheets("PLC").Cells(2, 4).Value & " - " & Sheets("PLC").Cells(24, 13).Value & "€ (" & Sheets("PLC").Cells(3, 4) & ")"
End Sub
 

youky(BJ)

XLDnaute Barbatruc
Bonjour criauto,
En effet dur à comprendre.
Voici pour envoyer à une personne ou mettre des ; entre les adresses mail
Mettre les bonnes valeurs à . . . à adapter
Bruno
VB:
Sub envoi_mail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = "nom de l'envoyeur"  'à adapter
        .Cc = "noms destinataires" 'à adapter
        .Attachments.Add (ThisWorkbook.Path & "\" & "Fiche de liaison OT " & Cells(8, 3).Value  & ".PDF")
        .Subject = "Veuillez trouver le doc . . ."  'à adapter
        .Body = "Fiche de liaison"   'à adapter
        .Display
        .Send
    End With
End Sub
 

Discussions similaires

Réponses
2
Affichages
475

Statistiques des forums

Discussions
311 729
Messages
2 081 971
Membres
101 852
dernier inscrit
dthi16088