Bonjour,
Me voilà perdu avec plusieurs macro que je n'arrive pas à fusionner
Voici une première qui me permet d'enregistrer ma feuille active au format PDF :
Une seconde m'ouvre une boite de dialogue pour sélectionner l'emplacement de l'enregistrement :
-> Est il possible de fusionner ces deux macros pour enregister ma feuille active en PDF tout en sélectionnant l'emplacement?
Enfin, ce même fichier PDF doit être envoyé par mail. J'utilise actuellement ce code mais l'envoi se fait en xls... Est il possible d'en changer pour du PDF ?
Merci d'avance pour vos réponses,
Bonne journée caniculaire,
Loïc
Me voilà perdu avec plusieurs macro que je n'arrive pas à fusionner
Voici une première qui me permet d'enregistrer ma feuille active au format PDF :
Code:
Sub Enreg_Pdf()
Dim LaDate As String, LeParcours As String, LeRep As String
LaDate = Format(Date, "yyyymmdd")
LeParcours = Range("N2").Value
LeRep = ThisWorkbook.Path & "\parcours\" ' à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LeRep & LaDate & "_" & LeParcours & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub
Une seconde m'ouvre une boite de dialogue pour sélectionner l'emplacement de l'enregistrement :
Code:
ActiveSheet.SaveAs Filename:=Application.GetSaveAsFilename
-> Est il possible de fusionner ces deux macros pour enregister ma feuille active en PDF tout en sélectionnant l'emplacement?
Enfin, ce même fichier PDF doit être envoyé par mail. J'utilise actuellement ce code mais l'envoi se fait en xls... Est il possible d'en changer pour du PDF ?
Code:
Sub EnvoiPage()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = Range("B2")
Destinataires(2) = Range("B3")
Destinataires(3) = Range("B4")
Sujet = "Coffre CC"
AccuseReception = False
'Nom de la feuille (remplacer Recap par celui de la Feuille à envoyer)
ThisWorkbook.Sheets("Feuil2").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub
Merci d'avance pour vos réponses,
Bonne journée caniculaire,
Loïc
Dernière édition: