Exporter au format PDF

Bonjour chers amis du Forum

J'ai une idée qui m'est passé par la tete et je voudrais la concrétiser avec VBA

J'aimerais sauvegarder au format PDF mes factures une fois validées dans un dossier "Factures" au même emplacement que le fichier source .

Ex. Facture n°51 du 5/10/18

Facture n°60 du 20/10/18

Merci de m'aider

Bonjour,

à tester

chemin = ThisWorkbook.Path
strFilename = "Facture 51 du 5-10-18"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   chemin & "\" & strFilename & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False

ps/ attention au caractères nom permis pour le nom des fichiers

Excusez moi j'avais oublié de joindre mon Fichier, Le voici