Rinominare Nome File in Excel

[pascod]

Ciao, ho provato a cercare ma non sono riuscito a trovare la risposta a questa semplicissima domanda:
come Rinomino un File excel usando un Msg box da compilare a cura dell'utilizzatore?

Questa è la macro che copia un foglio( e lo rinomina) in un nuovo workbook.
Voglio far rinominare il workbook a scelta dell'utente con un msg box in maniera tale che lo salvi sul suo desktop col nome imputato nel MSg Box.. è possibile?
Thanks guys

Sub Macro2()
'
' Macro2 Macro
'
Sheets("CLIENTE").Select
Sheets("CLIENTE").Copy
ActiveSheet.Name = Range("C2")
ActiveSheet.Select

End Sub

[Flash30005]

Si può fare
l'unico consiglio è non salvare sul desktop
se proprio vuoi così invia il percorso del suo desktop

ciao

[pascod]

no no.. non ti preoccupare possiamo salvare in una cartella standard di windows 7!!!
Grazie.. Attendo

[Flash30005]

cambia solo il percorso

Codice: Seleziona tutto

Sub salvaF2()
ThisFile = InputBox("Salva Con Nome") & ".xls"
If ThisFile = ".xls" Then
MsgBox "Nome file non valido"
Exit Sub
End If
Sheets("CLIENTE").Select
Sheets("CLIENTE").Copy
 ActiveSheet.Name = Range("C2")
Directory = "C:\Appoggio\"
ActiveWorkbook.SaveAs Filename:=Directory & ThisFile
'ActiveWorkbook.Close  '<<<< togli il commento se vuoi chiudere il file appena salvato
MsgBox _
" Il Tuo File è stato salvato correttamente " & vbCrLf & _
" " & vbCrLf & _
(ThisFile), vbInformation

End Sub


Ciao

[pascod]

Mitico!

[pascod]

Giusto per completezza..
ho appena "scaricato" un ebook che mi faccia conoscere a fondo il mondo del vba!

[Flash30005]

Ottimo!
così presto potrai dare anche tu qualche consiglio nel Forum

ciao