Changer nom de fichier

Version imprimable

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!
Code:

1 2 3 4 5 6 7 8 9 Sub Bouton23_Clic() 'Macro dan le 28/11/2010 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 End Sub
Pouvez vous me dire comment faire car je ne trouve pas du tout.

Merci d'avance

Bonjour,

Regarde si ça convient :

Code:

1
2
3
4
5
6
7
 
If fichier <> False Then
 
    fichier = Left(fichier, InStr(fichier, ".") - 1) & " " & Replace(Date, "/", "-") & Right(fichier, Len(fichier) - InStr(fichier, ".") + 1)
    ThisWorkbook.SaveAs fichier
 
End If

Hervé.

Bonjour,

Si tu veux laisser uniquement le choix du répertoire à l'utilisateur et maitriser le nom du fichier

Code:

1
2
3
4
5
6
7
8
 
Dim file As FileDialog
 
Set file = Application.FileDialog(msoFileDialogFolderPicker)
 
If file.Show = True Then
    ThisWorkbook.SaveAs (file.SelectedItems(1) & "/" & "suivi Madc_" & Format(Now, "YYYYMMDD"))
End If

28/05/2013, 08h54
Roman76

1 pièce(s) jointe(s)

Merci beaucoup pour cette reponse!! cela fonctionne!

le seul soucis est que le fichier me demande avec quel programme l'ouvrir et un message apparait voir fichier word
28/05/2013, 09h06
jfontaine

Quelle méthode as tu utilisé?

Affiche ton code
28/05/2013, 09h18
Roman76

Ce n'est pas grave en somme, mais je voudrais que cette date ne soit pas la date du jour mais le jour d'avant..
28/05/2013, 09h21
jfontaine

Pour avoir la date d'hier

Code:

Format(DateAdd("d", -1, Now), "YYYYMMDD")

mon code est le suivant

Code:

1
2
3
4
5
6
Sub Bouton23_Clic()
Dim fichier As String
On Error Resume Next
ChDir "D:\documents and Settings\SESA35996\My Documents\suivi Madc"
If fichier <> False Then ThisWorkbook.SaveAs fichier & Format(Now, "yyyymmdd_hhnn")
End Sub

Merci a tous, merci Jfontaine c'est exactement ce que je voulais :P