macro excel-PJ en PDF

Question

Bonjour à tous,
j'aurai besoin de votre aide SVP pour finaliser mon petit programme,

Sub test()

Dim LaDate$, Nom$, Rep$  'Déclaration des variables

LaDate = Format(Now, "yyyy_mm_dd_") 
Nom = "…….."  'Nom de l'onglet à entregistrer
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Rep & Nom & "_" & LaDate & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False  '


End Sub


j'arrive a l'enregistrer mais pas a l'envoyer en pdf ...


j'ai un tableau excel lequel je renseigne chaque jour, mon but avec la macro c'est d’enregistrer une copie en pdf (avec la date du jour) de ce tableau et diffuser  par email a plusieurs personnes 

merci beaucoup

Configuration: Windows / Chrome 69.0.3497.100

cs_Le Pivert · Answer

Bonjour,

comme ceci:


Dim LaDate$, Nom$, Rep$ 'Déclaration des variables 
LaDate = Format(Now, "yyyy_mm_dd_") 
Nom = "…….." 'Nom de l'onglet à entregistrer 
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Rep & Nom & "_" & LaDate & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
      From:=1, To:=1, OpenAfterPublish:=False 
    Application.Dialogs(xlDialogSendMail).Show

laclass91 · Answer

la macro en totalité;
Sub test()
Dim LaDate$, Nom$, Rep$  'Déclaration des variables
LaDate = Format(Now, "yyyy_mm_dd_") & Format(Time, "hh_mm_") 'formatage de la date et heure
Nom = "test"  'Nom de l'onglet à entregistrer
Rep = "C:\Users\moi\Desktop\excel\"   ' Chemin du répertoire à adapter depuis votre PC
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Rep & Nom & "_" & LaDate & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
      From:=1, To:=1, OpenAfterPublish:=False
    Application.Dialogs(xlDialogSendMail).Show
    Email = Array("***@***")
Sujet = "Envoi automatique: bilan"
AccuseReception = True

ActiveWorkbook.SendMail Email(), Sujet, AccuseReception
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
MsgBox "L'email a bien été transmis aux destinataires suivants: ***@***"
End Sub

cs_Le Pivert · Answer

Fonctionne très bien comme ceci:

Sub test()
Dim LaDate$, Nom$, Rep$ 'Déclaration des variables
LaDate = Format(Now, "yyyy_mm_dd_") & Format(Time, "hh_mm_") 'formatage de la date et heure
Nom = "test" 'Nom de l'onglet à entregistrer
Rep = ThisWorkbook.Path & "\" ' Chemin du répertoire à adapter depuis votre PC
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Rep & Nom & "_" & LaDate & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
MsgBox "L'email a bien été transmis aux destinataires suivants: ***@***"
End Sub
 


là tu remplis ton mail manuellement pour les destinataires etc.

sinon il faut passer par cela:

https://excel-malin.com/codes-sources-vba/envoyer-un-email-avec-excel/

voir aussi ceci pour plusieurs destinataires:

https://www.developpez.net/forums/d528767/logiciels/microsoft-office/excel/macros-vba-excel/envoyer-email-plusieurs-destinataires-vba/#post3158361

laclass91 · Answer

bonsoir,
merci pour vos réponse et votre aide,
malheureusement quand j'exécute la macro j'ai toujours en PJ un fichier excel au lieu du fichier PDF 

merci encore
Cdlt

Macro excel-PJ en PDF

4 réponses

Discussions similaires

Newsletters