Sub Pdfbasedevis()
Dim Chemin As String
With Worksheets("BASE DEVIS")
Chemin = .Range("D1").Value
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub