Sub imprim()
Dim nom$
With ActiveSheet
' Pour vérifier quelle feuille est en conversion PDF
MsgBox "Feuille en cours : " & ActiveSheet.Name
nom = .Cells(1, 2) & "\" & .Cells(3, 2) & " " & Format(.Cells(2, 2), "dd-mm-yyyy") & ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
MsgBox "Factura a fost salvata sub " & nom, , "PRINT TERMINAT"
End Sub