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

A voir également:

Code VBA avec fonction date time
Fonction si et - Guide
Time machine - Guide
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide

7 réponses

Réponse 1 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 mars 2020 à 15:10

Bonjour

NomFichier = Now & "_" & "Formation Budget Maison 2020.xlsm"

Réponse 2 / 7

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

Réponse 3 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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

Réponse 4 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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/

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

Posez votre question

Réponse 5 / 7

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

Réponse 6 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
25 mars 2020 à 08:38

Bonjour,

je regarde dans la journée confidemment oblige

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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"

Réponse 7 / 7

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

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel

Prélèvement JM Jacquie et Michel date.

Problème Whatsapp - "La date est incorrecte"

Code de renvoi d'appel : Ooredo, Mobilis...

fonction si avec date en condition

Discussions similaires

Newsletters