sauvegarde fichier

Voici 2 exemples:

Sub enreg_date_jour()
nf = "enreg_date_jour" & Year(Date) & "-" & Month(Date) & "-" &
Day(Date)
ActiveWorkbook.SaveAs Filename:=nf
End Sub

Sub enreg_date_jour2()
nf = "enreg_date_jour" & Year(Date) & "-" & Format(Month(Date),
"00") & "-" & Format(Day(Date), "00")
MsgBox nf
ActiveWorkbook.SaveAs Filename:=nf
End Sub


On peut automatiser dans l'événement Private Sub
Workbook_BeforeClose(Cancel As Boolean)

Cordialement JB

bonjour,

p.e si bien sur la cellule active est une date

With ActiveWorkbook
.SaveAs .Path & "" & Format(ActiveCell, "dd-mm-yyyy") & ".xls"
End With

A+

bonsoir à tous
je voudrais utiliser le contenu variable d'une cellule au format date
"jj-mm-aaaa", l'attribuer en tant que nom au classeur pour ensuite le
sauvegarder.
ex : a1 : 31-10-05
nom à sauvegarder : "prov 31-10-05.xls"
merci

merci à tous les 2 pour votre aide
j'ai finalement réussi avec ceci :


Sub sauvegarde()
Dim dat, dat1 As Variant
dat = Sheets("fiche saisie jour").Range("d2").Value
dat1 = "prov " & Left(dat, 2) & "-" & Mid(dat, 4, 2) & "-" & Right(dat,
4)
ActiveWorkbook.SaveAs dat1
End Sub

"hervé" <hervejeanroland@wanadoo.fr> a écrit dans le message de news:
ujDchPl3FHA.636@TK2MSFTNGP10.phx.gbl...

bonsoir à tous
je voudrais utiliser le contenu variable d'une cellule au format date
"jj-mm-aaaa", l'attribuer en tant que nom au classeur pour ensuite le
sauvegarder.
ex : a1 : 31-10-05
nom à sauvegarder : "prov 31-10-05.xls"
merci