Code VBA avec fonction date time

Résolu
chris0669 Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   -  
chris0669 Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour

je voudrais modifier la macro ci dessous qui me permet une sauvegarde de mon fichier excel quand je quitte.

a la place d’intégrer dans le nom de fichier la date je souhaite avoir la date, l’heure et minutes qui compose le nom de fichier sauvegarder.

merci d'avance 

Private Sub Workbook_BeforeClose(Cancel As Boolean)


    'Déclaration des variables
    Dim NomDossier As String
    Dim NomFichier As String
    
    'Affectation des variables
    NomDossier = "F:\"
    '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) & "_" & "Formation Budjet Maison 2020.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
A voir également:

7 réponses

Réponse 1 / 7
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

NomFichier = Now & "_" & "Formation Budget Maison 2020.xlsm"
0
Réponse 2 / 7
chris0669 Messages postés 52 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour et merci de m'aider

j'ai fait la modif et j'ai le massage d'erreur 1004 il me dit de vérifier le nom du classeur il est peut-être inexistant

avec ta modif il se présente de la façon suivante 23/03/2020 17:22:00_Formation Budget maison 2020.

je voudrait que la sauvegarde se fasse de la façon suivante: Formation Budget maison plus ( la date jj/mm/aaaa , et l'heure)

merci d'avance
0
Réponse 3 / 7
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour,

oups :-/
effectivement, excel refuse les ":" et les "/" dans le nom d'un fichier

Je regarde dans la journée
0
Réponse 4 / 7
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Regarde cette petite maquette utilisant une fonction à adapter ( nom du dossier) à ton contexte
https://mon-partage.fr/f/Vigh2eRn/


0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
chris0669 Messages postés 52 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour,

merci pour ton retour.
comme tu l'a compris je ne suis pas tres doué en macro j'ai essayé de faire se que tu m'as dit sens succès.

tu trouveras ci dessous ma macro sa te parlera certainement mieux
si tu peut me la modifier c'est encore mieux merci d'avance pour ton aide


Sub Sauvegarde()
'
' Sauvegarde Macro
'

'
ActiveWorkbook.Save
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)


'Déclaration des variables
Dim NomDossier As String
Dim NomFichier As String

'Affectation des variables
NomDossier = "f:\"
'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) & "_" & "Budjet Maison 2020.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
0
Réponse 6 / 7
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour,

je regarde dans la journée confidemment oblige
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour a vous deux

Avec format marche bien aussi 

 NomFichier = Format(Now, "dd-mm-yyyy hh\hmm\mss\s") & "_" & "Formation Budjet Maison 2020.xlsm"
0
Réponse 7 / 7
chris0669 Messages postés 52 Date d'inscription   Statut Membre Dernière intervention  
 
toujours a vous

merci c'est top tous fonctionne

super
0