Sub ExportDevisPDF()
Dim Chemin As String
Dim NFichier As String
Chemin = ActiveWorkbook.Path & "\PDF\Devis\"
NFichier = UCase(Left([ClientNom], 8)) & " - " & Format(Date, "yyyy-mm-dd") & ".pdf"
If NFichier = "" Then Exit Sub
If Dir(Chemin & NFichier) <> "" Then
'le fichier existe déjà et suivant réponse de l'utilisateur
If MsgBox("Le fichier existe déjà, voulez-vous le remplacer ?", vbYesNo + vbExclamation, "Confirmation") = vbYes Then
'Création du fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & NFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True
MsgBox "Le fichier a été enregitré." & vbCrLf & vbCrLf & "Ici ==> " & Chemin & vbCrLf & vbCrLf & _
"Sous le nom : " & NFichier, 48, "Enregistrement fichier en PDF ..."
Else
MsgBox "Le PDF n'a pas été crée", vbCritical, "Le fichier existe déjà"
Exit Sub
End If
Else
'créer le pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & NFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True
MsgBox "Le fichier a été enregitré." & vbCrLf & vbCrLf & "Ici ==> " & Chemin & vbCrLf & vbCrLf & _
"Sous le nom : " & NFichier, 48, "Enregistrement fichier en PDF ..."
End If
End Sub