[EXCEL] Salvare file con data al posto del nome

[carlodag]

Salve vorrei creare una macro che mi salva il file con nome ma inserendo nel nome la data che la va a prendere in una cella di un foglio, è possibile???


Grazie mille

[Anthony47]

Prova con questa macro:

Codice: Seleziona tutto

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\USER_NAME\Desktop\DA_PC-FACILE\PIPPO_" & _
        Format(Range("A1").Value, "yyyy_mm_dd") & ".xls", _
        FileFormat:=xlNormal
Application.EnableEvents = True
Cancel = True
End Sub


Va inserita sul modulo ThisWorkbook, che trovi nel frame Progetto-VbaProject.
Si innesca col comando File /Salva o /Salva_con_nome, e salva con un nome file composto da quanto scrivi nella stringa + aaaa_mm_gg di quanto scritto in cella A1.
Ovviamente dovrai inserire anche qualche controllo che in A1 ci sia una data; come pure tieni presente che diventa un po' trigoso salvare il file con un altro nome.

Ciao.

[carlodag]

ottima soluzione grazie mille credo che vada bene per il mio lavoro