Sauvegarder un fichier avec la date du jour.

[makss39]

Bonjour,

J'annonce la couleur, je suis naze en macro excel!!!
J'aimerai juste pouvoir fair une macro qui enregistre un fichier dans C:\Monchemin (jusque là ça va), mais qui ajoute au nom du fichier la date du jour actuel.
Pour un fichier nommé TOTO, et étant le 31 octobre, je voudrai lors de l'application de la macro avoir le résultat suivant :

C:\Monchemin\TOTO31102008

Ca va vous parraitre tout bête!!!

Merci d'avance.

 

[Pierrot93]

Re : Sauvegarder un fichier avec la date du jour.

Bonjour Makss

essaye le code ci-dessous :

ActiveWorkbook.SaveAs "C:\Monchemin\TOTO" & Format(Date, "ddmmyyyy") & ".xls"

bonne soirée
@+

 

[tototiti2008]

Re : Sauvegarder un fichier avec la date du jour.

Bonjour makss39,

le fichier a déjà un nom, donc il a déjà été enregistré une première fois ou est-ce le 1er enregistrement ?

sinon de nombreux fils sur des questions analogues dans Discussions similaires en bas de la page...

 

[Guest]

Re : Sauvegarder un fichier avec la date du jour.

Bonjour Makss,


"C:\Monchemin\TOTO" & Format(Date,"DDMMYYYY") & ".xls"

Je te conseille d'ailleurs plutôt le format "YYYYMMDD" qui te permettra de trier tes fichier dans l'ordre croissant de date ou décroissant.


A+

 

[makss39]

Re : Sauvegarder un fichier avec la date du jour.

Merci tout le monde, c'est exactement ce que je cherchais, j'avais fait un truc similaire sans le ".xls" a la fin, je ne trouvais pas de fichier!

Encore merci pour votre rapidité et votre sérieux!!!

 

[jp14]

Re : Sauvegarder un fichier avec la date du jour.

Bonjour

Ci dessous une macro qui
Demande le nom du fichier
Enregistrement dans le chemin actif le classeur

Sub enregistrer()

'boite de dialogue
Dim Left1 As Variant
Dim Top1 As Variant
Dim HelpFile1 As Variant
Dim HelpContextId1 As Variant '*****************
Dim Prompt1   As String
Dim Title1 As Variant
Dim Default1 As Variant
Dim Type1 As Variant
'response est fonction du type1
Dim reponse1 As String
Dim chemin As String

Dim date1 As String
' si annuler sortie
Left1 = ""
Top1 = ""
HelpFile1 = ""
HelpContextId1 = ""

Prompt1 = "Nom du fichier" 'Message à afficher dans la boîte de dialogue
Title1 = "Enregistrer un fichier" 'Titre de la zone de saisie
Default1 = "11"

Type1 = 2 ' 0 Une formule. 1 Un nombre. 2 Texte (une chaîne). 4 Une valeur logique (True ou False).
'8 Une référence de cellule, sous la forme d'un objet Range. 16 Une valeur d'erreur, telle que #N/A. 64 Un tableau de valeurs.

reponse1 = Application.InputBox(Prompt:=Prompt1, Title:=Title1, Default:=Default1, Type:=Type1)
If reponse1 = "" Then Exit Sub
'If reponse1 = False Then Exit Sub
chemin = ThisWorkbook.Path & "\"
date1 = Format(Now, "dd/mm/yyyy")
date1 = Replace(date1, "/", "")

    ActiveWorkbook.SaveAs Filename:=chemin & reponse1 & date1 & ".xls", FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
End Sub

A tester

JP

 

[jp14]

Re : Sauvegarder un fichier avec la date du jour.

Message supprimé