Private Function sPDF() As String
'Créer le fichier PDF avec le numéro de devis en titre
Dim Chemin As Variant
With Sheets("Devis")
Chemin = Application.GetSaveAsFilename("Devis " & .Range("C13").Text & ".pdf", "Fichiers Adobe PDF (*.pdf), *.pdf", , "Sauvegarder sous format PDF...")
If Chemin <> False Then
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
sPDF = Chemin
End If
End With
End Function