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