Problèmes d'enregistrement

bonjour a tous & bon dimanche

j'ai un fichier que je désire enregistrer en quittant avec ce code cela fonctionne très bien pour enregistrer une fois mais si je veux le faire deux fois c'est impossible ca le fichier existe deja donc je cherche une solution et celle qui me plairait bien est de pouvoir rajouter l'heure les minutes et les secondes mais je ne sais pas comment faire

Sub sauvegarde_fichier()
    Dim nomdossier As String
    Dim nonfichier As String
    nomdossier = "E:\Jean_Profil\Documents\x\Sauvegarde\"
    Application.DisplayAlerts = False    'desactive les messages d'alerte de windows
    nonfichier = "Gestion" & " " & "du" & " " & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & ".xlsm"     'creation du nom du fichier de sauvegarde
    ActiveWorkbook.SaveCopyAs nomdossier & nonfichier    ' sauvegarde du fichier
    MsgBox "Votre fichier a été sauvegardé"
    Application.Quit
End Sub

merci

j'ai trouvé la solution

la voici

Sub sauvegarde_fichier()
    Dim nomdossier As String
    Dim nonfichier As String
    nomdossier = "E:\Jean_Profil\Documents\x\Sauvegarde\"
    Application.DisplayAlerts = False    'desactive les messages d'alerte de windows
    nonfichier = "Gestion " & " " & "du" & " " & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & " " & "a" & " " & Format(Time, "hh\h nn\m ss\s") & " " & ".xlsm" 'creation du nom du fichier de sauvegarde
    ActiveWorkbook.SaveCopyAs nomdossier & nonfichier    ' sauvegarde du fichier
    MsgBox "Votre fichier a été sauvegardé"
    Application.Quit
End Sub

Bonjour,

Voici une ligne de code plus simple pour le nom du fichier

NomFichier = "Gestion du " & Replace(Date, "/", "-") & " à " & Replace(Time, ":", "-") & ".xlsm"

(NomFichier avec un m et une majuscule en 1er, c'est mieux)

Bonne journée