Sub Bouton38_Clic()
'sauvegarde devis
Dim Fichier As String
Dim Chemin As String
Chemin = Sheets("parametre").Range("A79").Value
x = Range("D12").Value
Fichier = "devis_" & x
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & "\" & Fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub