Code VBA avec fonction date time [Résolu]

Signaler
Messages postés
19
Date d'inscription
lundi 19 novembre 2018
Statut
Membre
Dernière intervention
25 mars 2020
-
Messages postés
19
Date d'inscription
lundi 19 novembre 2018
Statut
Membre
Dernière intervention
25 mars 2020
-
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

7 réponses

Messages postés
16173
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 juillet 2020
2 990
Bonjour

NomFichier = Now & "_" & "Formation Budget Maison 2020.xlsm"
Messages postés
19
Date d'inscription
lundi 19 novembre 2018
Statut
Membre
Dernière intervention
25 mars 2020

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
Messages postés
16173
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 juillet 2020
2 990
bonjour,

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

Je regarde dans la journée
Messages postés
16173
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 juillet 2020
2 990
Regarde cette petite maquette utilisant une fonction à adapter ( nom du dossier) à ton contexte
https://mon-partage.fr/f/Vigh2eRn/


Messages postés
19
Date d'inscription
lundi 19 novembre 2018
Statut
Membre
Dernière intervention
25 mars 2020

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
Messages postés
16173
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 juillet 2020
2 990
Bonjour,

je regarde dans la journée confidemment oblige
Messages postés
15239
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2020
1 308
Bonjour a vous deux

Avec format marche bien aussi

 NomFichier = Format(Now, "dd-mm-yyyy hh\hmm\mss\s") & "_" & "Formation Budjet Maison 2020.xlsm"
Messages postés
19
Date d'inscription
lundi 19 novembre 2018
Statut
Membre
Dernière intervention
25 mars 2020

toujours a vous

merci c'est top tous fonctionne

super