Excel - nomina foglio come cella D3

[Sasyjoe]

Salve gente,
avrei bisogno di una macro che mi fa una cosa del genere:
Rinomina il file con la data che inserisco in cella "D3" + la parola "Turni"

Esempio:
In cella D3 scrivo 16/07/2012

Il file in automatico deve rinominarsi "16/07/2012 Turni".

PS: se vi può essere utile, la cella D3 sta in un foglio nominato: "impostazioni settimana".

Confido in voi.
Grazie.

[Flash30005]

Con la macro è possibile rinominare i file come vuoi: da variabile o da valore cella ma
devi rispettare i canoni di nome file/cartella di windows che non accettano caratteri speciali come "/", inoltre è opportuno, come più volte consigliato, utilizzare il formato aaaammgg nel

Adesso occorre sapere se
il file è attivo o no
Nel primo caso qual'è il nome temporaneo assunto?
Nel secondo caso in quale cartella si trova, se nella stessa del file programma-rinomina o no
nel secondo caso, quale?

ciao

[Sasyjoe]

Per file attivo cosa intendi?
E' un file che ho sul Desktop sul quale lavorerò. e Lavorerò sempre sullo stesso per cambiando la data in cella D3 cambia il nome del File. Quindi avrò diciamo un "master" sul desktop tramite il quale lavorerò e cambiando la data in cella D3 salverò i file per ogni settimana.

Esempio:
Inizio a lavorare sul File sul desktop che ha la cella D3 Vuota (o con "x" è uguale)
Ci lavoro oggi, quando ho finito di lavorarci scrivo in Cella D3 la Data di oggi e quando lo salvo quindi è un altro file perchè il nome è diverso dal file originario che avevo sul desktop (Perchè inizialmente in D3 era vuoto o "x" mentre adesso c'è la data di oggi)
E cosi via. Quindi dopo 3 mesi avrò n. file per n. volte che ho lavorato. Ma la base è sempre il file che ho sul desktop.

Spero di essere stato chiaro.
Grazie.
Ciao

[ricky53]

Ciao,
prova questo esempio che dovrai adattare in base alle tue necessità

Codice: Seleziona tutto

Sub Salva_Copia()
    Percorso = "D:\Temp" '  <<-------- QUI va il tuo percorso sul quale salvare il file
    ActiveWorkbook.SaveCopyAs Percorso & "\" & Format(ThisWorkbook.Sheets("Foglio1").[D3], "yyyy-mm-dd") & "_Turni.xls"
End Sub

[Sasyjoe]

Ciao Ricky53,

o sbaglio qualcosa o salto qualche passaggio!

allora la macro è questa qui:

Codice: Seleziona tutto

Sub Salva_Copia()
    Percorso = "D:\Temp" 'C:\Users\Salvatore\Desktop\Turni
    ActiveWorkbook.SaveCopyAs Percorso & "\" & Format(ThisWorkbook.Sheets("Foglio1").[D3], "yyyy-mm-dd") & "_Turni.xls"
End Sub


Io entro nel foglio che ho sul desktop. Vado nel foglio "Impostazione settimana" inserisco data in cella D3 e premo salva. (Nota bene: Non faccio salva con nome, scelgo cartella e rinomino, ma premo solo sul tasto salva, quello blu piccolino)

Cosa succede:
Il file si salva nominato così' come era prima. Quindi è come se la macro non funzionasse.

Cosa vorrei io:
Che il nuovo file va in automatico nella cartella turni, nominato con la data che inserisco in cella D3 del foglio "Impostazioni Settimana"

Aspetto tue notizie.
Grazie.
Ciao.

[Flash30005]

Devi aggiungere una riga di codice in Thisworkbook_BeforeSave (non nel modulo) così:

Codice: Seleziona tutto

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Salva_Copia
End Sub


Inoltre adatta la macro di Ricky inserendo il tuo percorso e il nome del foglio dove c'è la data
credo che così debba andare bene

Codice: Seleziona tutto

Sub Salva_Copia()
    Percorso = "C:\Users\Salvatore\Desktop\Turni"
    ActiveWorkbook.SaveCopyAs Percorso & "\" & Format(ThisWorkbook.Sheets("Impostazioni Settimana").[D3], "yyyy-mm-dd") & "_Turni.xls"
End Sub


Ciao

P.s. E' consigliabile non usare il Desktop per archiviare i documenti
utilizza cartelle del disco C, es.: C:\MieiDocs o altro altrimenti utilizza la cartella di sistema Documenti nel percorso standard "C:\Documents and Settings\Nomeutente\Documenti"

[ricky53]

Ciao,
BENE, vedo che ti ha già risposto Flash e, applicando quanto lui ti ha scritto, non avrai problemi per ottenere quanto hai descritto.

Solo per chiarezza di tutti (specialmente per altri utenti che leggeranno in futuro quanto scritto):
Io ti avevo dato una base di partenza da adattare e lo avevo scritto perchè non sapevo quali passi volevi fare effettivamente.
Con quanto hai descritto la mia macro non veniva mai eseguita.
Per eseguirla dovei lanciarla tu, dopo averla adattata, tramite il tasto "F5" (esecuzione completa) o "F8" (per eseguirla passo passo).

Spero di essere stato utile.

[Sasyjoe]

Grazie. Appena possibile la provo e vi aggiorno.

Ciao

[Sasyjoe]

Scusate la domanda per voi banale:

Come faccio a inserire il code nel thisworkbook?

Non lo trovo.

Grazie.

[Flash30005]

quando ti trovi in ambiente Vba hai gli oggetti e i moduli a sinistra e a destra la finestra dove scrivi il codice.
Tra gli oggetti, quindi a sinistra oltre ai fogli c'è la voce ThisWorkbook, cliccando due volte su questa voce
a destra avrai la possibilità di inserire il codice copiato dal post.

[Sasyjoe]

PERFETTA!!


Grazie..