Nom de fichier + date

[Vévé]

Bonjour le Forum

Le souhaiterais ajouter lors de l'enregistrement de mon fichier la date qui se trouve dans les cellules la 'D6:E6'.
Avant l'enregistrement le fichier était essai et après l'enregistrement essai.01/09/2005
Et quand la date change il enregistre sous la nouvelle date.

Il y à t'il un moyen via une macro de réaliser cette opération ?

Salutations et grand merci à vous

Vévé [file name=Essai_20050901113802.zip size=1586]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essai_20050901113802.zip[/file]

 

[Staple1600]

Bonjour

Un exemple qui semble fonctionner

Sub Macro1()
x = Format(Range('regdate'), 'dd.mm.yy')
'regdate = plage nommée (voir Insertion/Noms)
'ou à remplacer par
'x = Format(Range('D7'), 'dd.mm.yy')
'remplacer D7 par la cellule adéquate
With ActiveWorkbook
.SaveAs Filename:='Essai.' & x & '.xls', FileFormat:=xlNormal, _
Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
.Close True
End With
End Sub

Message édité par: staple1600, à: 01/09/2005 14:17

 

[Creepy]

Bonjour le Forum, Vévé, Staple1600,

En faites tu ne peux pas sauvegarder une date sous la formr jj/mm/aaaa, Excel n'aime pas les '/' !



Il faut que tu fasse un format de date personnalisé genre jj_mm_aaaa et ca passe sans souci !

Tu peux aussi prendre l'exemple de Vévé qui remplace dans sa macro les / par des .

Sinon voici mon code

Private Sub CommandButton1_Click()
Dim Fichier As String

Fichier = ActiveWorkbook.Path & '\\' & Replace(ActiveWorkbook.Name, '.xls', '') & '_' & Feuil1.Range('D7').Value & '.xls'

ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False
End Sub

++

Creepy

 

[C'est super]

Bonjour

Merci à vous deux

VéVé