Salvare foglio con il valore di una cella

[Gammamax]

Forse chiedo troppo per excel, ma chissà.
Vorrei salvare un file con nome ricavato da una cella che ha la funzione =Adesso(), quindi variabile.

Ovvero : mi sono fatto un modulo per il mio sistema di qualità che prevede un numero d'ordine dato dal seriale della funzione adesso().
Ho preparato un bottone con macro per la stampa della copia cartacea e tutto bene, ma il file se lo riapro il giorno dopo per ristamparlo mi varia automaticamente il numero seriale.
Vorrei quindi aggiungere il copia valore, e questo lo so fare, ed il salvataggio con nome "prendendolo dalla cella "Xy."

ActiveWorkbook.SaveAs Filename:="Y:\ORDINI\xy.xls"
in modo da salvare il foglio così come si presenta a video.

nei miei ricordi di dbase esisteva un comando di aqusizione/assegnazione variabile [ get ?] esiste qualcosa di simile ?

Grazie per ogni aiuto od idea.

[Flash30005]

Puoi usare questa macro

Codice: Seleziona tutto

Sub SalvaF()
FXLS = Range("A1").Value & ".xls"
Perc = "Y:\Ordini\"
ActiveWorkbook.SaveAs Filename:=Perc & FXLS
End Sub

Ma nella cella "A1" devi avere la formula

Codice: Seleziona tutto

=INT(ADESSO())

Altrimenti la cella in formato numero presenta una virgola che non piò essere utilizzata come nome di file
Chiaramente al posto di A1 potrai mettere qualsiasi altra cella

Però io metterei al posto del seriale della data (poco leggibile) la data stessa "trattata" per essere subito leggibile anche dal nome del file con AAAAMMGG ed eventulamente il seriale dell'ora al momento del salvataggio, se dovesse occorrere, con una macro tipo questa

Codice: Seleziona tutto

Sub SalvaF2()
FXLS = Mid(Date, 7, 4) & Mid(Date, 4, 2) & Mid(Date, 1, 2) & "_" & Format(Int(Timer), "00000")
Perc = "Y:\Ordini\"
ActiveWorkbook.SaveAs Filename:=Perc & FXLS
End Sub

Mettendo la cartella dei file in ordine alfabetico per nome avrai anche i file in ordine cronologico

Fai sapere
Ciao

[ricky53]

Ciao,

io propongo di utilizzare
la data e l'ora
in cui viene effettuato il salvataggio ad esempio:

Codice: Seleziona tutto

FXLS = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss")

Ciao da Ricky53

[ricky53]

Ciao,
oppure utilizzando una sola funzione:

Codice: Seleziona tutto

FXLS = Format(Now(), "yyyymmdd-hhmmss")

Ciao da Ricky53

[Gammamax]

Grazie Flash e graziew Ricky
ho trovato tutto molo interessante, in particolare l'utilizzo della data+ora e soprattutto il fatto che il seriale generato dalla data abbia la virgola, io non ci avevo pensato perchè l'impostazione è zero decimali, ma la virgola c'è.

Non si pensa mai a tutto !!!

vado e provo.

[Flash30005]

Ricorda solo di aggiungere l'estensione & ".xls" che è stata inserita solo nell'esempio del valore cella (il primo esempio)
poi dimenticata nei successivi
prendo uno degli esempi (poi tu userai quello che più ti aggrada)

Codice: Seleziona tutto

FXLS = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xls"  '<<<< Aggiungere l'estensione del file

Ciao