[VB Excel] - créer un filename avec dat

Résolu/Fermé
Lalence Messages postés 8 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 26 août 2007 - 7 mars 2007 à 11:42
Jimmy59116 Messages postés 45 Date d'inscription jeudi 27 novembre 2008 Statut Membre Dernière intervention 30 janvier 2013 - 25 mars 2009 à 12:17
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
A voir également:

3 réponses

Réponse 1 / 3
didier09 Messages postés 13 Date d'inscription mercredi 28 février 2007 Statut Membre Dernière intervention 20 décembre 2007 36
7 mars 2007 à 13:59
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
0
Réponse 2 / 3
Lalence Messages postés 8 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 26 août 2007
7 mars 2007 à 14:04
Ca marche nickel-chrome !!

Merci bcp didier09 ;)


Laz
0
Réponse 3 / 3
Jimmy59116 Messages postés 45 Date d'inscription jeudi 27 novembre 2008 Statut Membre Dernière intervention 30 janvier 2013 1
25 mars 2009 à 12:17
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.
0