Ecrasement automatique de fichier si déjà existant

Bonjour a tous,

Dans le code ci-dessous, qui fonctionne a merveille, j'aimerais insérer une option de pouvoir écraser un fichier existant.

Actuellement, si le fichier existe, une pop-up me demande si je veux le remplacer.

Qui peux m'aider a compléter ce code SVP. ?

Merci d'avance et encore tous mes voeux pour 2023

Salutations

Sub Eval_Env_en_serie()
Dim NWBK As Workbook
Dim Donnees As Worksheet
Dim DerniereLigne&, i&, repdest As String
Dim nompdf As String
Dim dossier As String

Set Donnees = ThisWorkbook.Sheets("Base")
    DerniereLigne = Donnees.Cells(Rows.Count, 2).End(xlUp).Row
     For i = 2 To DerniereLigne
        If Donnees.Range("E" & i).Value = "XOui" Then 'filtre sur sélection de la colonne E
        Donnees.Range("A" & i).Copy
        Worksheets("Macro").Range("AB2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

         ThisWorkbook.Sheets(Array("Feuille 2", "Feuille 1", "Feuille 3")).Copy: Set NWBK = ActiveWorkbook

         With NWBK.Sheets("aspects environnementaux")
         .UsedRange.Value = .UsedRange.Value
         End With
        NWBK.SaveAs NWBK.Sheets("Feuille 1").[V26] & NWBK.Sheets("Feuille 1").[V25] & ".xlsx", FileFormat:=51: NWBK.Close False
        'enregistrerpdf_eval
        End If

    Next i

MsgBox "Action terminée"

End Sub

Bonjour,

supprime-le avant avec Kill, avec un traitement d'erreur au cas où il n'existe pas.
eric

Bonjour,

Ou peut-être avec un :

Application.DisplayAlerts = False

en tout début de code?

Bonjour a vous deux,

Avec le code:

Application.DisplayAlerts = False

Mon souci a été résolu.

Merci pour le coup de main(s)

Andreas