[VB Excel] - créer un filename avec dat [Résolu/Fermé]

Signaler
Messages postés
8
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
26 août 2007
-
Messages postés
45
Date d'inscription
jeudi 27 novembre 2008
Statut
Membre
Dernière intervention
30 janvier 2013
-
Bonjour,
Je souhaiterais créer un petit programme en VB (dans une macro Excel) qui permettrait de nommer un fichier (par "enregistrer sous...") dont le nom serait suffixé par la date du jour.
Par exemple : fic1_07032007
Ceci dans le seul but de créer des sauvegardes ponctuelles de mon fichier de données.
D'avance merci de votre aide !
Laz

3 réponses

Messages postés
13
Date d'inscription
mercredi 28 février 2007
Statut
Membre
Dernière intervention
20 décembre 2007
35
Bonjour,

Essaye le code suivant, et remplace Mes documents par le nom complet de l'emplacement où doit être enregistré ton document.

Private Sub CommandButton1_Click()

Dim LaDate As String
Dim NomClasseur As String

LaDate = Format(Date, "ddmmyyyy")
NomClasseur = LaDate & ".xls"

ActiveWorkbook.SaveAs Filename:= _
"C:\Mes documents\fic1_" & NomClasseur _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

End Sub
Messages postés
8
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
26 août 2007

Ca marche nickel-chrome !!

Merci bcp didier09 ;)


Laz
Messages postés
45
Date d'inscription
jeudi 27 novembre 2008
Statut
Membre
Dernière intervention
30 janvier 2013
1
Excellent !

Mais pour aller plus loin, est-il possible d'avoir également l'heure après la date ?

Je sais que je suis exigeant sur ce coup là mais qui ne tente rien n'a rien lol

Merci pour votre aide.