Bonjour
Je suis sur Excel 2007
j'ai une macro (ci-dessous) pour sauvegarder mon fichier excel "GestionClub" à la fermeture de celui ci via un bouton :
Cela fonctionne bien - le fichier crée se nomme : 26-4-2023 Gestion club.xlsm
Sub Fichiersauvegarde()
'Déclaration des variables
Dim NomDossier As String
Dim NomFichier As String
'Affectation des variables
NomDossier = "C:\Users\DSI\Desktop\Club Vegas\"
'Désactiver les messages d'alertes
Application.DisplayAlerts = False
'On créé le nom du fichier de sauvegarde (Date + Nom)
NomFichier = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & "GestionClub.xlsm"
'On sauvegarde le fichier de backup
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier
'On affiche un message de confirmation
MsgBox "Votre fichier de sauvegarde intitulé : " & NomFichier & vbNewLine & _
"dans le dossier suivant : " & NomDossier, vbOKOnly + vbInformation, "CONFIRMATION"
'On quitte Excel
Application.Quit
ActiveWorkbook.Save
End Sub
----------------
Mais je souhaiterais avoir un nom de fichier comportant aussi l'heure et les minutes de la sauvegarde du style : 26-04-2023 17h30 GestionClub.xlsm
j'ai esssayé de remplacer la ligne
NomFichier = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & "GestionClub.xlsm"
par celle ci
NomFichier = Format(Now(), ‘’dd - mm - yy - hhmmss’´) & "_" & "GestionClub.xlsm"
mais cela me renvoie un nom de fichier : 45043 GestionClub .xlsm ????
La date n'est pas retournée ou bien convertie , je ne sais pas .
Comment corriger cela ?
Si un membre du forum pouvait me dépatouiller de ce problème, ce serait sympa.
Merci d'avance pour votre aide
Cordialement
Beauserge