VBA enregistrer sous + date

Un bonjour tout le monde, je désespère depuis 3 jours sur ces lignes malgré les nombreux sujet proposés que j'ai testé

impossible de trouver le code qui fonctionne pour nommer et enregistrer sous avec la date du jour. " DSCC92_01/08/2015_"

MERCI BEAUCOUP POUR L'AIDE ! BON DIMANCHE

Sub Macro10()

'

' Macro10 Macro

'

'

Workbooks.Add

ActiveSheet.Paste

Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:= _

"C:\Users\stein\Documents\TRI SUBRO\DSCC92.xlsx", FileFormat:= _

xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

Range("A1").Select

End Sub

Bonjour,

A tester

Sub Macro1()
'
' Macro1 Macro
'

'
    ChDir "C:\Stein\Documents"
    ActiveWorkbook.SaveAs Filename:="C:\Stein\Documents\Suivant.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Remplacer le mot suivant.xlsx par votre programme

Bonjour et bienvenue sur le forum

Bonjour à tous

Essaie en modifiant ton code ainsi :

Sub Macro10()

'

' Macro10 Macro

'

'

 Workbooks.Add
 ActiveSheet.Paste
 Application.CutCopyMode = False
 ActiveWorkbook.SaveAs Filename:= _
"C:\Users\stein\Documents\TRI SUBRO\DSCC92" & Format(Date,"dd-mm-yyyy") & ".xlsx", FileFormat:= _
 xlOpenXMLWorkbook, CreateBackup:=False

 ActiveWindow.Close
 Range("A1").Select
End Sub

Bye !

Merci beaucoup ! la solution GMB est parfaite, une bonne journée !