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
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