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 -
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
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:
- Macro excel pour les nuls pdf
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Tableau croisé dynamique pour les nuls - Guide
- Word et excel gratuit - Guide
4 réponses
Bonjour,
comme ceci:
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
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"""