Microsoft 365 Problème avec VBA ( Résolu)

[firecarl]

Bonjour la communauté,

J'aurais besoin d'un petit coup de pouce :
voici mon problème:
j'aimerais ajouter à ma macro la possibilité de vérifier avant d'enregistrer que le fichier n'existe pas déjà dans le dossier cible et afficher un message d'avertissement "attention" ce fichier existe déjà voulez vous vraiment l'enregistrer"

voici ma macro: en résumé cette macro crée un enregistrement pdf d'une facture en la nomant via le num de facture écrit dans la cellule F12 de la feuille excel,


Sub EnregistrerEnPDF()
Dim chemin As String
Dim nomFichier As String
Dim cheminDossier As String

' Définir le dossier où le fichier sera enregistré
cheminDossier = "C:\Users\ihoucine\Desktop\MICCI\Factures\"

' Vérifier que la cellule F12 contient une valeur
If Range("F12").Value = "" Then
MsgBox "La cellule F12 est vide. Veuillez entrer un nom de fichier."
Exit Sub
End If

' Obtenir le nom de fichier à partir de la cellule F12
nomFichier = Range("F12").Value & ".pdf"

' Construire le chemin complet du fichier
chemin = cheminDossier & nomFichier

' Enregistrer la feuille active en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard

' Message de confirmation
MsgBox "La feuille a été enregistrée en PDF sous le nom " & nomFichier
End Sub


Merci d'avance pour votre aide.
Bien cordialement

 

[mapomme]

Bonsoir @firecarl 🙂,
Insérer la ligne suivante avant la ligne de l'export :

If Dir(chemin) <> "" Then MsgBox "le fichier : " & chemin & vbLf & "existe déjà -> échec de la sauvegarde", vbCritical: Exit Sub

 

[firecarl]

Bonsoir @firecarl 🙂,
Insérer la ligne suivante avant la ligne de l'export :

If Dir(chemin) <> "" Then MsgBox "le fichier : " & chemin & vbLf & "existe déjà -> échec de la sauvegarde", vbCritical: Exit Sub

Merci fonctionne parfaitement