Sub PDF()
'-----definir les variables
Dim chemin As String
Dim fichier As String
Dim xx As String
'-----definir le chemin
chemin = ThisWorkbook.Path
'-----definir le nom du fichier
fichier = Sheets("FACTURE").Range("K15").Value & ".pdf"
'-----construction de la recherche
xx = Dir(chemin & "\" & fichier)
'--- Dir retourne le nom du fichier si trouvé
'--- sinon une chaine vide
If xx <> "" Then
'MsgBox pour voir si le fichier existe déjà avec réponse oui ou non, si oui écrase, si non rien
If MsgBox("le fichier" & fichier & " existe déjà dans " & chemin & " Faut-il l'écraser ? ", vbYesNo + vbQuestion, "Création d'un fichier PDF - Document existant") = vbYes Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & "\" & fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
Else
'Procédure réalisée si le fichier n'existe pas encore
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & "\" & fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
End Sub