Conversion de la feuille active en PDF

Bonjour à tous

Je souhaiterais le code VBA pour enregistrer mes factures en pdf soit la feuille active "Factureform1".

Merci de votre aide

Bonjour

Regarde ce sujet et la solution de cousi,hub

Cordialement

Merci Amadeus, oui en effet je l'avais vu mais j ai du mal a remplacer les variables par les miennes ...

Sub Enreg_Pdf()

Dim LaDate As String, LeParcours As String, LeRep As String

LaDate = Format(Date, "yyyymmdd")

LeParcours = Range("N2").Value

LeRep = ThisWorkbook.Path & "\parcours\" ' à adapter

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

LeRep & LaDate & "_" & LeParcours & ".pdf", Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

From:=1, To:=1, OpenAfterPublish:=False

End Sub