Contourner bug par msg d'erreur

Bonjour

Lorsque j'exporte mes données le bouton fonctionne parfaitement, lorsque j'exporte de nouveau au lieu d’écraser le fichier déjà existant , le code bug .

je voudrais avoir l'une des deux solutions suivantes :

• ou bien il écrase automatiquement le premier fichier
• Ou bien au lieu de buger il m'envoie un message comme quoi je dois supprimer le prmier ficher et réessayer de nouveau

Sub LIAS1()
Dim NOM As String
NOM = Range("M2").Value

    ActiveWorkbook.XmlMaps("F6001_Mappage").Export URL:= _
        ThisWorkbook.Path & "\" & (NOM) & ".xml"

End Sub

Salut,

Imho le mieux est de tester l’existence du fichier :

If Dir(ThisWorkbook.Path & "\" & (NOM) & ".xml") <> "" Then
    msgbox("Le fichier " & NOM & "existe.")
End if

-> si on trouve ce fichier, alors on lance une messagebox disant qu'il existe.

Sinon tu peux le Kill et poursuivre ton export.

merci le probléme est à 80 % résolu

si le fichier existe le message " ce fichier existe" s'affiche , c'est ce que je cherche ..mais en cliquant sur ok le bug s'affiche '' erreur d’exécution

Rajoute un :

Goto finmacro

avant End if et

finmacro:

juste avant la fin de la macro.

ça marhe merci beaucoup