Macro enregistrer en PDF

Résolu/Fermé
tooney05
Messages postés
38
Date d'inscription
lundi 15 octobre 2012
Statut
Membre
Dernière intervention
29 décembre 2016
- 3 nov. 2014 à 10:26
 Laloue - 18 oct. 2016 à 22:17
Bonjour

J'ai un modèle de document que j'utilise comme bon de commande.

J'aimerais ajouter a ce modèle un bouton qui m'enregistre ce document sous le format PDF dans un dossier spécifique avec un nom de fichier spécifique (correspondant a une cellule excel).

si vous avez une solution...

merci

12 réponses

f894009
Messages postés
16494
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
23 mai 2022
1 633
3 nov. 2014 à 16:02
Re,

Sub Export_PDF()
Dim fichier As String

Date_F = Format(Date, "ddmmmm_")
'adaptez le nom de la feuille
With Worksheets("Feuil1")
fichier = "\" & Date_F & .Range("B7") & ".pdf"
Dossier = "C:\Users\Vincent\Documents\Commande DNA"
Chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub


reste a savoir quelle feuille vous voulez enregistrer en pdf
9