Condividi:        

Macro Salvataggio con data antecedente

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro Salvataggio con data antecedente

Postdi Making » 23/04/18 10:45

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
Making
Utente Junior
 
Post: 49
Iscritto il: 22/07/15 12:50

Sponsor
 

Re: Macro Salvataggio con data antecedente

Postdi Anthony47 » 23/04/18 15:05

Ma tu vuoi rinominare il file o crearne una copia con altro nome?
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro Salvataggio con data antecedente

Postdi Making » 23/04/18 15:38

va bene la copia con altro nome
Making
Utente Junior
 
Post: 49
Iscritto il: 22/07/15 12:50

Re: Macro Salvataggio con data antecedente

Postdi Anthony47 » 24/04/18 01:11

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro Salvataggio con data antecedente

Postdi Making » 02/05/18 09:50

Grazie!!!
Making
Utente Junior
 
Post: 49
Iscritto il: 22/07/15 12:50


Torna a Applicazioni Office Windows


Topic correlati a "Macro Salvataggio con data antecedente":


Chi c’è in linea

Visitano il forum: Nessuno e 62 ospiti