Macro Salvataggio con data antecedente

[Making]

Ciao,
vorrei sapere se mi potete aiutare a creare una macro che salva il file pippo.xlsx in 2018-04-22 - pippo.xlsx dove la data è sempre riferita ad un giorno prima.

Grazie

[Anthony47]

Ma tu vuoi rinominare il file o crearne una copia con altro nome?

[Making]

va bene la copia con altro nome

[Anthony47]

Allora, ad esempio:

Codice: Seleziona tutto

Sub CopiaNome()
Dim cFile As String
'
cFile = "pippo.xlsx"                        '<<< Il file da rinominare
Application.EnableEvents = False
    Workbooks.Open "C:\PROVA\" & cFile, 0
    Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs "C:\PROVA\" & Format(Now - 1, "yyyy-mm-dd") & " - " & cFile
    Application.DisplayAlerts = True
    ActiveWorkbook.Close False
Application.EnableEvents = True
End Sub

Ciao

[Making]

Grazie!!!