'À mettre dans un module
Public Function PdfExiste(Pdf As String)
If Len(Dir(Pdf)) > 0 Then
PdfExiste = True
Else
PdfExiste = False
End If
End Function
Private Sub BTN_SUPPRIMER_FICHIERS_Click()
Dim Chemin As String, Rep As String, Pdf As String, Reponse
Static cel
Chemin = [C2].Value
Reponse = MsgBox("Voulez-vous vraiment supprimer ce fichier ?", vbYesNo, "CONFIRMATION SUPPRESSION")
cel = ActiveCell.Value
Pdf = Chemin & cel
If Reponse = vbYes Then
If PdfExiste(Pdf) = False Then
MsgBox "Le fichier n'existe pas...", , "ERREUR": Application.DisplayAlerts = False: Exit Sub
Else
Kill Chemin & cel
End If
End If
If Reponse = vbNo Then Exit Sub
End Sub