enregistrer sous Nom+date

[fred94000]

Bonjour a tous
je viens par ce message vous demander une nouvelle aide.
je souhaiterai rajouter lorsque je clique sur ce bouton qu'apparaîsse dans le type de fichier, le nom du classeur + la date du jour.

dans l'exemple ci-dessous n'apparait que le nom du classeur.
j'ai eu beau me casser la tête mais n'ai pas trouvé.

Private Sub CommandButton1_Click()
filesavename = Application.GetSaveAsFilename(fileFilter:="Classeur Excel 97-2003...(*.xls), *.xls")
If filesavename <> False Then
ActiveWorkbook.SaveAs Filename:=filesavename, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox "enregistrer sous " & filesavename
End If
End Sub

dans l'attente d'une réponse je vous en remercie par avance

 

[Droussel]

Re : enregistrer sous Nom+date

bonjour
je ne pense pas que ce soit possible en une seule instruction mais moi je l'ai fait pour une appli
je te donne le code ci-dessous si ça peut t'interesser
je mets la date du jour en B4 sur Feuil1
bon courage
Denis


Application.DisplayAlerts = False
Windows("classeur.xls").Activate
Sheets("Feuil1").Select
Range("B4").Select
datej = Day(ActiveCell)
If datej < 10 Then
datej = "0" & datej
End If
datem = Month(ActiveCell)
If datem < 10 Then
datem = "0" & datem
End If
datea = Year(ActiveCell)
nom1 = "classeur" & datea & datem & datej & ".xls"
Windows("classeur.xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.SaveAs nom1
nomdir = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

 

[Paritec]

Re : enregistrer sous Nom+date

Bonsoir à tous
a+
papou 🙂

 

[Paritec]

Re : enregistrer sous Nom+date

Re Bonsoir à tous,
j'avais pas vu, enfin pas lu, que tu voulais le nom du classeur actuel
alors voilà la modif
a+
papou 🙂

Sub enregistrer()
    Dim nom$
    nom = ThisWorkbook.FullName   
    ThisWorkbook.SaveAs (nom & " " &Format(Date, "yyyy-mm-dd")) & ".xls"
End Sub