Salva con nomi diversi

Salvataggio di un file di Enzo

Volevo chiedervi una cosa,
in una userform alla fine salvo il file con un nome prestabilito e successivamente richiamando la userform alla fine risalva lo stesso file chiedendomi se lo voglio salvare.
la mia domanda e' questa: c'e' la possibilita partendo dall'inizio e richiamando la userform di salvare un file con un nome e succesivamente tutte le volte che richiamo la userform il file venga salvato con nomi diversi senza che io li debba impostare?
esempio banale - richiamo la userform chiudo e il file che utilizzo si salva con il nome "1"
poi tutte le volte che lo richiamo si salvi con "2" o con "3"
etc.

di Mauro

Certo ! parto dall'esempio che ha fatto luca in una delle ultime discussioni.
il metodo saveas non è altro che "salva con nome"
il parametro filename non è altro che una stringa che tu puoi manipolare a tuo piacimento aggiungendo in fondo un contatore che puoi incrementare ogni volta...

ActiveWorkbook.SaveAs Filename:= _
        "d:\Documents and setting \Desktop\nome del tuo file.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

di Roberto

Prova in questa maniera, ogni volta che salverai, verrà aggiunta al nome l'ora di salvataggio.

mandi roberto

Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 28/03/2006 da Roberto
'
' Scelta rapida da tastiera: CTRL+r
'
percorso = "F:\T.E" 'il percorso di dove dovresti salvare il file
nome = "foglio" 'nome del foglio
extra = Time & ".xls" 'Nome extra, in questo caso l'ora di salvataggio
nomef = "\" & nome & "_" & extra 'Nome definitivo cioè foglio_ora di salvataggio
ThisWorkbook.SaveAs (percorso & nomef)
End Sub