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.