VBA code changer nom de fichier

[roman76]

Bonjour a tous,

Je vbiens ici pour avoir un petit peu d'aide car je seche...

J'ai donc crée un code boutonclic pour "enregistrer sous" un fichier dans un dossier spécifique..
A ce jour, le nom de fichier est le meme que le nom de fichier sur lequel je travail mais je voudrais que ce fichier soit "enregistrer sous" avec la date du jour actuel en automatique!

Sub Bouton23_Clic()
Dim fichier As String
On Error Resume Next
ChDir "D:\documents and Settings\SESA35996\My Documents\suivi Madc"
fichier = Application.GetSaveAsFilename( _
    fileFilter:="Excel Files (*.xls), *.xls")
If fichier <> False Then ThisWorkbook.SaveAs fichier
End Sub

Pouvez vous me dire comment faire car je ne trouve pas du tout.

Merci d'avance

 

[Pierrot93]

Re : VBA code changer nom de fichier

Bonjour,

modifie peut être comme suit :

If fichier <> False Then ThisWorkbook.SaveAs fichier & Format(Now, "yyyymmdd_hhnn")

bonne journée
@+

 

[roman76]

Re : VBA code changer nom de fichier

Merci pour ta reponse ultra rapide!

J'ai donc testé de changer le code

Sub Bouton23_Clic()
Dim fichier As String
On Error Resume Next
ChDir "D:\documents and Settings\SESA35996\My Documents\suivi Madc"
fichier = Application.GetSaveAsFilename( _
    fileFilter:="Excel Files (*.xlsm), *.xlsm")
If fichier <> False Then ThisWorkbook.SaveAs fichier & Format(Now, "yyyymmdd_hhnn")
End Sub

Mais en vain, le nom reste toujours le meme...

 

[Pierrot93]

Re : VBA code changer nom de fichier

Re,

tu passes bien dans le "saveas" ?