Ciao Lara e benvenuta
Di metodi possono essercene diversi ma prendo lo spunto da ciò che ti ha linkato Anthony
- Codice: Seleziona tutto
Perc="\\192.168.0.3\ShareName\Subdir\" '<<< Drive e path
NomeF=Perc & "Pinco" & Format(Now(), "yyyy-mm-dd")
ActiveWorkbook.SaveAs Filename:=NomeF
Perc = al percorso di salvataggio del file
quindi se vuoi fare una prova potrai creare una cartella su C:\ chiamandola "Prova"
avrai quindi C:\Prova
Ora "Pinco" è un nome a caso del file che puoi anche omettere ma serve anche come oggetto per ricordare di cosa si tratta perché solo la data non è mnemonico come concetto, noi useremo "Lara"
Adesso vai nel foglio1 e premi contemporaneamente i tasti ALT + F11, ti ritroverai nello script del VBA
Nel menu in alto seleziona "Inserisci" > scegli "Modulo"
e incolla quanto riportato in questo codice
- Codice: Seleziona tutto
Sub RinomSalva()
ChDrive "C"
Perc = "C:\Prova\"
NomeF = Perc & "Lara_" & Format(Now(), "yyyy-mm-dd") & ".xls"
ActiveWorkbook.SaveAs Filename:=NomeF
End Sub
Ora esegui la macro premendo F8 ti troverai il file salvato nella cartella C:\Prova\Lara_2010-02-23.xls
Ok?
Ciao