Sub Enregistrer_PDF_onglet_Devis()
Dim fileSaveName As String
Dim numero As String
Dim nom As String
Dim chemin As String
numero = [C22]
nom = [H14]
chemin = "C:\Users\Veronique\Documents\MAISON COL\Fichier clients\"
If Len(Dir(chemin, vbDirectory)) > 0 Then
fileSaveName = Application.GetSaveAsFilename(chemin & "\" & numero & " " & nom, "Fichier PDF (*.pdf), *.pdf")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
fileSaveName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _True
End If
MsgBox "Enregistrer en PDF", vbInformation, "Enregistrement en PDF"
End Sub