Macro excel-PJ en PDF

laclass91 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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

A voir également:

4 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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


0
laclass91
 
bonsoir ,
merci de votre réponse rapide, malheureusement ça fonctionne pas une fois assembler, erreur d’exécution "5"
argument ou appel de procédure incorrect sur cette partie ""ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Rep & Nom & "_" & LaDate & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False"""
0