Nommer un fichier avec la date du jour en plus

Bonsoir Bochacl, bonsoir le forum,

Je te propose ce code ci-dessous :

Sub Macro1()
Dim D As String 'déclare la variable D (Date système au format jjmmaa)
Dim N As String 'déclare la varaible N (nom complet du fichier sans l'extension)

'définit la variable D (format à adapter mais certains caractères sont interdits)
D = Format(Date, 'ddmmyy')

'définit la variable N (Left permet de retirer '.xls')
N = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 4)

'enregistre le classeur sous
ThisWorkbook.SaveAs (N & D)

'si le classeur s'appelait 'Test.xls' un copie de celui-ci s'appelera 'Test170705.xls
End Sub

Cliquez pour agrandir...

Robert merci pour ta réponse.
J'ai testé c'est ce que je voulais mais un petit souci car à la deuxième sauvegarde le nom du fichier se voit avec une deuxième date.
Comment peut-on éviter se cumul de date?

Encore merci Robert

Bonjour

En reprenant la macro de robert essaies de la modifier ainsi

Sub Macro1()
Dim D As String 'déclare la variable D (Date système au format jjmmaa)
Dim N As String 'déclare la varaible N (nom complet du fichier sans l'extension)
Dim A As Long, toto As Boolean

'définit la variable D (format à adapter mais certains caractères sont interdits)
D = Format(Date, 'ddmmyy')

'définit la variable N (Left permet de retirer '.xls')
N = IIf(IsNumeric(Mid(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 9, 6)), Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 10), Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 4))

'enregistre le classeur sous
ThisWorkbook.SaveAs (N & D)

'si le classeur s'appelait 'Test.xls' un copie de celui-ci s'appelera 'Test170705.xls
End Sub

Bon courage

Bonjour Pascal76,

J'ai essayé ta macro, super ! ça marche !

encore merçi Pascal76 et au forum Excel