Sub ExportPdf()
Dim H$, D$, NF$, NFT$, C$
C = Workbooks(ActiveWorkbook.Name).Path & Application.PathSeparator & "Factures pdf" & Application.PathSeparator
H = Format(Time, "H""H""M") ' Heure
D = Format(Date, "dd" & "." & "mm" & "." & "yyyy") ' Date
NF = [F6] & " - Facture " & [F7] & " - " & D & " - " & H & ".pdf" ' Nom du fichier
NFT = C & NF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NFT, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
MsgBox "Fichier pdf enregistré." & vbCrLf & vbCrLf & "Chemin : " & C & vbCrLf & vbCrLf & "Nom : " & NF
End Sub