Sub Enregistrer_PDF()
'
' Enregistrer_PDF Macro
'
Sheets("Feuil1").Select
Dim fichier As String
fichier = "F:\ " & [J2].Value & "_" & [C3].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
ignorePrintAreas:=False, OpenAfterPublish:=True
End Sub