Discussion :

[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!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

Bonjour,

Regarde si ça convient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[jfontaine]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Roman76]

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

[jfontaine]

Quelle méthode as tu utilisé?

Affiche ton code

[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..

[jfontaine]

Pour avoir la date d'hier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Roman76]

mon code est le suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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