Code suite impression puis mail outlook
Bonjour,
J'ai ce code dans un module qui fonctionne très bien pour l’enregistrement en PDF dans un dossier d'une fiche puis l'impression.
Je souhaiterai à la suite que le fichier enrgistrer soit mis en PJ dans un nouveau mail outlook
J'ai essayé avec different code trouver ici et là mais cela ne fonctionne pas.
Merci de votre aide.
Sub enregistrerPdfCLientHFR()
'
' enregistrerPdf Macro
'
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\LOCAL\Client\ " & Range("G14") & "_" & Range("C24") & "_" & Format(Date, "dd_mm_yyyy") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
'
' imprimer Macro
'
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub