Autres fonction heure et minute dans macro VBA

[beauserge]

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

 

[Hasco]

Bonjour,

Je crois que vos guillemets '' (2 fois touche avec le 4) ne sont pas les bons.
Avec " (touche avec le 3) cela fonction même si ce n'est pas très judicieux de laisser des espaces inutiles dans les noms de fichier (le tiret est suffisant) :

Format(Now(), "dd - mm - yy - hhmmss")

"yy-mm-dd" vous permettrait de les trier sur l'année mois jour.
cordialement

 

[Jacky67]

Bonjour

Je suis sur Excel 2007
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

Bonjour à tous
Comme ceci peut être

NomFichier = Format(Now, "dd-mm-yyyy hh\hmm") & " GestionClub.xlsm"

 

[beauserge]

Bonjour Hasco et merci pour avoir eu l'oeil au sujet des guillemets !
C'est tout à fait exact. Je me suis planté de touche

Je viens de corriger et ça fonctionne parfaitement avec les bons guillemets !

Merci encore et également pour la rapidité ta réponse .
Bonne soirée
Cordialement

 

[beauserge]

Bonjour à tous
Comme ceci peut être

NomFichier = Format(Now, "dd-mm-yyyy hh\hmm") & " GestionClub.xlsm"

Bonjour et Merci Jacky67 pour ce code.
C'est encore mieux au niveau de l'heure (plus clair et lisible)
Je retiens cette solution !
Bonne soirée
Cordialement

 

[Hasco]

M..., c'est vrai que j'avais oublié qu'il fallait mâcher le travail, penser et choisir pour les demandeurs pour enfin répondre aux questions qu'ils n'ont pas posées.

 

[Staple1600]

Bonjour le fil

Juste histoire de me faire plaisir dans mon VBE

Sub terfuge_pour_les_esperluetophobes()
Nomfichier = Format(Now, "dd-mm-yyyy hh\hmm"" GestionClub.xlsm""")
MsgBox Nomfichier
End Sub