Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres fonction heure et minute dans macro VBA

beauserge

XLDnaute Nouveau
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

XLDnaute Barbatruc
Repose en paix
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
 

beauserge

XLDnaute Nouveau
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
 

Hasco

XLDnaute Barbatruc
Repose en paix
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.
 
Dernière édition:

Discussions similaires

Réponses
3
Affichages
184
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…