Code VBA avec fonction date time

Résolu/Fermé
chris0669
Messages postés
53
Date d'inscription
lundi 19 novembre 2018
Statut
Membre
Dernière intervention
24 mars 2022
- Modifié le 23 mars 2020 à 14:19
chris0669
Messages postés
53
Date d'inscription
lundi 19 novembre 2018
Statut
Membre
Dernière intervention
24 mars 2022
- 25 mars 2020 à 12:02
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

michel_m
Messages postés
16568
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 mai 2022
3 279
23 mars 2020 à 15:10
Bonjour

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

23 mars 2020 à 17:45
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
michel_m
Messages postés
16568
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 mai 2022
3 279
24 mars 2020 à 09:46
bonjour,

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

Je regarde dans la journée
0
michel_m
Messages postés
16568
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 mai 2022
3 279
Modifié le 24 mars 2020 à 12:36
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
chris0669
Messages postés
53
Date d'inscription
lundi 19 novembre 2018
Statut
Membre
Dernière intervention
24 mars 2022

24 mars 2020 à 17:29
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
michel_m
Messages postés
16568
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 mai 2022
3 279
25 mars 2020 à 08:38
Bonjour,

je regarde dans la journée confidemment oblige
0
f894009
Messages postés
16483
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 mai 2022
1 633
Modifié le 25 mars 2020 à 10:18
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
chris0669
Messages postés
53
Date d'inscription
lundi 19 novembre 2018
Statut
Membre
Dernière intervention
24 mars 2022

25 mars 2020 à 12:02
toujours a vous

merci c'est top tous fonctionne

super
0