Enregistrement nom existe deja

Bien le bonjour tout le monde,

Me voici avec un nouveau problème :

Lors de l'enregistrement de mon fichier excel rempli, mon code me permet d'enregistrer dans un classeur excel que j'ouvre, et enregistre sous un nom avec une date.

Or j'ai un soucis, si j'en fais plusieurs dans le mois le fichier s'écrase pour écrire les nouvelles données, sans me le demander.

Est il possible de repérer que le fichier existe et si c'est le cas le renommé ( comme exemple avec bis a la fin ou avec un chiffre incrémenté )

Voici mon code présent dans un module :

Sub AddNewWorkbook()

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim nom As String

'enregistrement dans un nouveau classeur avec un nom de fichier et dans un chemin précis

'en une seule feuille

Application.ScreenUpdating = False

nom = "C:\Users\mickael.deflorenne\Desktop\PROJETS\Projet modification doc\"

Worksheets("Résultats").Copy

With ActiveWorkbook

.SaveAs Filename:=nom & "vérif " & Format(Date, "mm-yyyy")

.Close

End With

Application.CutCopyMode = False

End Sub

Dans l'attente de votre réponse je vous remercie d'avance.

Bien cordialement.

Bonjour,

Est-ce envisageable d'ajouter la date du jour dans le nom du fichier ?

ainsi ...

... .SaveAs Filename:=nom & "vérif " & Format(Date, "dd-mm-yyyy")

Gelinotte

Bonjour,

Tout d'abord merci de ta réponse, mais je ne souhaiterai pas mettre le jour.

Et puis je l'ai déjà tester avec le jour et si j'en fais deux dans la même journée il efface les données déjà enregistrées.

Mika

Bonjour,

Regarde ceci : https://forum.excel-pratique.com/excel/vba-enregistrer-avec-date-et-heure-t32153.html

Gelinotte

Re,

Effectivement j'ai bien pensé a avoir l'heure en plus, mais du coup le nom du fichier est assez illisible est pas facilement retrouvable.

Mais merci sa serai ma solution de rechange.

Bonjour,

Si le nom est sous la forme "verif aaaa-mm-jj hhmmss" ils se retrouvent triés par ancienneté et plus de difficulté pour s'y retrouver.

eric

Merci j'ai utilisé cette méthode.

Merci a vous deux.

Mika