VBA code changer nom de fichier

roman76 · 28 Mai 2013

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!

HTML:

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 · 28 Mai 2013

Re : VBA code changer nom de fichier

Bonjour,

modifie peut être comme suit :

Code:

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

bonne journée
@+

roman76 · 28 Mai 2013

Re : VBA code changer nom de fichier

Merci pour ta reponse ultra rapide!

J'ai donc testé de changer le code

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 · 28 Mai 2013

Re : VBA code changer nom de fichier

Re,

tu passes bien dans le "saveas" ?

VBA code changer nom de fichier

roman76

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

roman76

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Discussions similaires