Code VBA avec fonction date time
Résolu/Fermé
chris0669
chris0669
- Messages postés
- 53
- Date d'inscription
- lundi 19 novembre 2018
- Statut
- Membre
- Dernière intervention
- 24 mars 2022
chris0669
- Messages postés
- 53
- Date d'inscription
- lundi 19 novembre 2018
- Statut
- Membre
- Dernière intervention
- 24 mars 2022
A voir également:
- Code VBA avec fonction date time
- Code VBA avec fonction date time ✓ - Forum - Excel
- Code vba RechercheMultiple (Fonction InStr) ✓ - Forum - Bureautique
- Fonctionnement général d'un code VBA... ✓ - Forum - VB / VBA
- VBA Excel fonction keydown et timer ✓ - Forum - VB / VBA
- Utiliser une fonction excel dans le Code VBA ✓ - Forum - Excel
7 réponses
michel_m
23 mars 2020 à 15:10
- Messages postés
- 16568
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 14 mai 2022
23 mars 2020 à 15:10
Bonjour
NomFichier = Now & "_" & "Formation Budget Maison 2020.xlsm"
NomFichier = Now & "_" & "Formation Budget Maison 2020.xlsm"
chris0669
23 mars 2020 à 17:45
- 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
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
michel_m
24 mars 2020 à 09:46
- Messages postés
- 16568
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 14 mai 2022
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
oups :-/
effectivement, excel refuse les ":" et les "/" dans le nom d'un fichier
Je regarde dans la journée
michel_m
Modifié le 24 mars 2020 à 12:36
- Messages postés
- 16568
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 14 mai 2022
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/
https://mon-partage.fr/f/Vigh2eRn/
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
chris0669
24 mars 2020 à 17:29
- 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
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
michel_m
25 mars 2020 à 08:38
- Messages postés
- 16568
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 14 mai 2022
25 mars 2020 à 08:38
Bonjour,
je regarde dans la journée confidemment oblige
je regarde dans la journée confidemment oblige
f894009
Modifié le 25 mars 2020 à 10:18
- Messages postés
- 16483
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 14 mai 2022
Modifié le 25 mars 2020 à 10:18
Bonjour a vous deux
Avec format marche bien aussi
Avec format marche bien aussi
NomFichier = Format(Now, "dd-mm-yyyy hh\hmm\mss\s") & "_" & "Formation Budjet Maison 2020.xlsm"
chris0669
25 mars 2020 à 12:02
- 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
merci c'est top tous fonctionne
super