Modificare nome file excel da inviare senza rinominare

Question

Buongiorno,

avrei bisogno di un aiuto per poter velocizzare il mio lavoro, ogni giorno devo mandare dei listini e ogni volta devo rinominarli con la data odierna, si può fare qualcosa senza rinominare il file nella cartella? Perché ovviamente se prendo un file e lo modifico con la data di ieri quando faccio invia direttamente da excel mi prende la data vecchia.

Vi ringrazio!

Answer 1

Ciao Ire87,

avrei bisogno di un aiuto per poter velocizzare il mio lavoro, ogni giorno devo mandare dei listini e ogni volta devo rinominarli con la data odierna, si può fare qualcosa senza rinominare il file nella cartella? Perché ovviamente se prendo un file e lo modifico con la data di ieri quando faccio invia direttamente da excel mi prende la data vecchia.

Prova qualcosa del genere:

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

Dim sName As String 

With ThisWorkbook 

    sName = Split(.Name, ".")(0) 

    .SaveCopyAs sName & Format(Date, "dd-mm-yyyy") 

End With 

End Sub

'<<========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm
• Alt+F8 per aprire la finestra di gestione delle macro
• Seleziona Tester
• Esegui

Eseguendo questo codice il file corrente non viene rinominato ma ne viene creata una copia con la data odierna nella stessa directory. Nota che l'unico file aperto è il file non modificato esistente.

===

Regards,

Norman

Answer 2

Ciao ,

Questa volta ha funzionato alla perfezione!! Grazie mille!!!

Ultima domanda, volessi impostare una cartella precisa dove salvarlo si può inserire nella macro?

Grazie mille!!! :)))

Prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

Dim WB As Workbook 

Dim sName As String 

Dim sPath As String, sStr As String 

Const sPercorso As String = **"C:\Backups\"          '<<=== Modifica** 

sStr = Application.PathSeparator 

If Right(sPercorso, 1) <> sStr Then 

    sPath = sPercorso & sStr 

Else 

    sPath = sPercorso 

End If 

Set WB = ThisWorkbook 

With WB 

    sName = Split(.Name, ".")(0) 

    .Sheets.Copy 

End With 

With ActiveWorkbook 

    .SaveAs Filename:=sPath & sName & Format(Date, "dd-mm-yyyy"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 

    .Close 

End With 

End Sub

'<<========

===

Regards,

Norman

Answer 3

Questa volta ha funzionato alla perfezione!! Grazie mille!!!

Ultima domanda, volessi impostare una cartella precisa dove salvarlo si può inserire nella macro?

Grazie mille!!! :)))

Answer 4

Ciao Ire87,

Grazie mille,

ma ho un problema, mi si salva in un formato che non posso aprire, vorrei si salvasse in file excel senza macro. Grazie mille

Non c'è problema! Sostituisci il codice precedente con la seguente versione:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

Dim WB As Workbook 

Dim sName As String 

Set WB = ThisWorkbook 

With WB 

    sName = Split(.Name, ".")(0) 

    .Sheets.Copy 

End With 

With ActiveWorkbook 

    .SaveAs Filename:=sName & Format(Date, "dd-mm-yyyy"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 

    .Close 

End With 

End Sub

'<<========

===

Regards,

Norman

Answer 5

Grazie mille,

ma ho un problema, mi si salva in un formato che non posso aprire, vorrei si salvasse in file excel senza macro. Grazie mille