impression automatique PDF macro

[nico3869]

Bonjour à tous

Je débute tout doucement dans le monde des macros sur excel!

Je souhaiterai "automatiser" l'impression d'un tableau en PDF avec les contraintes suivantes :
- Impression PDF (à priori ok sur le fichier joint)
- Enregistrement du fichier sous "nom du fichier " + numéro du bordereau de la case D4
- Enregistrement dans un dossier spécifié

J'espère avoir été assez clair!

D'avance merci pour votre aide

 

[DoubleZero]

Re : impression automatique PDF macro

Bonjour, nico3869, le Forum,

Peut-être ainsi ?

Option Explicit
Sub PDF_nommer_selon_valeur_cellule()
    With Sheets("Feuil1")
        .PrintPreview               'aperçu
        'ActiveSheet.PrintOut  'impression
        'Adapter le chemin d'enregistrement
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\00\Downloads\" & "Bordereau " _
                                                      & .Range("d4") & ".pdf", Quality:=xlQualityStandard, _
                             IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub

A bientôt 🙂