Macro : enregistrer sous .pdf, envoyer, effacer
Résolu/Fermé
ecoffeys
Messages postés
11
Date d'inscription
dimanche 17 avril 2011
Statut
Membre
Dernière intervention
18 juillet 2018
-
18 juil. 2018 à 10:54
ecoffeys - 18 juil. 2018 à 12:38
ecoffeys - 18 juil. 2018 à 12:38
A voir également:
- Macro enregistrer sous
- Audacity enregistrer son pc - Guide
- Enregistrer son ecran - Guide
- Enregistrer video youtube - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
1 réponse
meuhlol
Messages postés
1896
Date d'inscription
mardi 24 juillet 2007
Statut
Membre
Dernière intervention
30 novembre 2021
672
18 juil. 2018 à 11:35
18 juil. 2018 à 11:35
Bonjour,
Pour la sauvegarde du PDF :
Pour la sauvegarde du PDF :
Sub savepdf() Dim File As String DateF = Format(Date, "_ddmmmmyyyy") 'modifier le nom de feuille ci necessaire With Worksheets("Feuil1") File = "\" & .Range("B2") & DateF & ".pdf" 'répertoire où le pdf va être sauvegardé Folder = "C:\" Path = Folder & File .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With End Sub
18 juil. 2018 à 12:38