Sub ImprimePDF()
Dim numfacture As Integer
'Enregistre le fichier excel
ActiveWorkbook.Save
'Imprime en PDF et rajoute le numéro de facture
Dim fichier As String
fichier = "D:\Factures\Facture-" & "-" & [F2].Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub