Enregistrement automatique d'un fichier / nom déjà existant

Bonjour à tous !

J'utilise aujourd'hui à la fin d'une de mes macros les arguments suivants pour enregistrer la feuille concernée sous le nom Import.txt et fermer mon classeur. :

Nomfichier = "D:\Temp\Import" & ".txt"

ActiveWorkbook.SaveAs Filename:=Nomfichier, _

FileFormat:=xlTextWindows

ActiveWorkbook.Close savechanges:=False

Mon souci est le suivant : lorsqu'un fichier Import.txt existe déjà dans mon dossier, j'ai le choix entre l'écraser (et tout va bien) ou ne pas l'écraser, et la macro plante.

Je voudrais donc, dans le cas où je ne souhaite pas écraser mon premier document, être ramené sur une fenêtre d'enregistrement classique dans mon dossier D:\Temp et pouvoir saisir le nom de mon choix, mais je ne sais pas du tout comment procéder.

Une autre possibilité consisterait à enregistrer automatiquement sous ImportN.txt si Import.txt existe déjà. J'ajouterais ensuite une petite msgbox pour informer l'utilisateur.

Auriez vous des pistes s'il vous plaît ?

J'ai noté qu'un vieux sujet avait été fait sur une question similaire mais la réponse ne correspond pas vraiment à ce que je recherche.

Merci d'avance, bonne journée

bonjour,

une proposition

Sub sauver()
    nomfichier = "D:\Temp\Import.txt"
    Do While Dir(nomfichier) <> ""
        rep = MsgBox("le fichier " & nomfichier & " existe déjà, ok pour le remplacer ", vbYesNo)
        If rep = vbYes Then Exit Do
        nomfichier = Application.GetSaveAsFilename( _
        fileFilter:="Text Files (*.txt), *.txt")
        If nomfichier = False Then
            MsgBox "annulation de la sauvegarde"
            Exit Sub
        End If
    Loop

    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=nomfichier, _
    FileFormat:=xlTextWindows
    Application.DisplayAlerts = True
    ActiveWorkbook.Close savechanges:=False
End Sub

Bonjour,

J'ai apporté quelques modifications pour que ça corresponde mais ma foi, ça marche parfaitement.

Merci pour ton aide !