macro per salvare file excel

[martin]

salve ragazzi
un aiuto se possibile
mi servirebbe una macro per salvare file excel con nome della data odierna di lavoro di lavoro es. 14aprile2010.xlsm
il giorno successivo quando riapro il file vergine ad esempio con la macro azionata da pulsante lo salvo 15aprile2010 e cosi via in modo che ogni giorno mi ritrovo il file pulito e quando lo inizio lo risalvo con nome data.
grazie martin

[martin]

salve ragazzi
un aiuto se possibile
mi servirebbe una macro per salvare file excel con nome della data odierna di lavoro di lavoro es. 14aprile2010.xlsm
il giorno successivo quando riapro il file vergine ad esempio con la macro azionata da pulsante lo salvo 15aprile2010 e cosi via in modo che ogni giorno mi ritrovo il file pulito e quando lo inizio lo risalvo con nome data.
grazie martin

trovato !!!!!
basta cercare sul ns forum!! si trova tutto
la pubblico come l'ho modificata

Sub Salva_con_nome()
nome = "C:\Users\Desktop\archivio " & Format([B16], "-yyyy-mm-dd") & ".xlsm"
ActiveWorkbook.SaveAs nome
ActiveWorkbook.Close
End Sub

ciao a tutti
martin

[socrat3]

Ecco il codice pronto con l'utilizzo della funzione =oggi in A1

Sub Salva_con_nome()
Range("a1").FormulaR1C1 = "=today()"
nome = "C:\Documents and Settings\soc\Documenti\archivio" & Format([A1], "-yyyy-mm-dd") & ".xlsm"
MsgBox (nome)
ActiveWorkbook.SaveAs Filename:=nome, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close
End Sub

[Anthony47]

trovato !!!!!
basta cercare sul ns forum!! si trova tutto

Bravo; per aver dimostrato che la necessita' aguzza l' ingegno, per aver mostrato come il forum sia ricco di problemi e soluzioni, e infine perche' l' uso della definizione "ns forum" implica che ti senti parte del forum (come e' giusto) e non solo spettatore.

Per socrat3: ovviamente la tua macro presuppone che la cella A1 sia non occupata da dati utente, cosa che in genere non e' garantibile. Puoi pero' togliere l' istruzione Range("a1").FormulaR1C1 = "=today()" e usare direttamente nome = "C:\Documents and Settings\soc\Documenti\archivio" & Format(Now(), "-yyyy-mm-dd") & ".xlsm"

Ciao.

[socrat3]

Per socrat3: ovviamente la tua macro presuppone che la cella A1 sia non occupata da dati utente, cosa che in genere non e' garantibile. Puoi pero' togliere l' istruzione Range("a1").FormulaR1C1 = "=today()" e usare direttamente nome = "C:\Documents and Settings\soc\Documenti\archivio" & Format(Now(), "-yyyy-mm-dd") & ".xlsm"
Ciao.

Come mi piace questo forum... che voi manco immaginate! Grazie

[valle1975]

Salve, aggiungo una difficoltà.
Non riesco a far salvare solo il foglio "PIPPO" (di 4 fogli esistenti), e per questo le sole celle incluse nel RANGE A1:E63, che includono 2 loghi, visto che fuori da questo Range ho dei pulsanti con Macro che non devono apparire nel nuovo file creato con il nome impostato.
Come si puo' risolvere??
Saluti.

[Anthony47]

Ma questa e' una operazione che farai una tantum o in continuazione?
Comunque registra una mail mentre:
-copi il foglio in un nuovo file (Menu /Modifica /Sposta o copia foglio; scegli come destinazione "(nuova cartella")", spunta "Crea una copia"; ok)
-seleziona le colonne con dati/immagini che non ti servono e Menu /Modifica /Elimina
-idem peer le righe oltre la 63
-salvi il file
-chiudi il file
Interrompi la registrazione.

Potrai usare la macro prodotta per ripetere l' operazione quando vorrai; eventualmente assegnala a un pulsante per comodita'. Se devi cambiare il nome file allora andra' fatto qualche aggiustamento: pubblica il codice ottenuto e spiega come vuoi gestire il nome di salvataggio.

Ciao

[valle1975]

Ciao. ho fatto come mi hai detto e ho integrato all'attuale.
Questa è la macro attuale che uso:

Codice: Seleziona tutto

Sub salvacondata_nomeCLIENTE_aggiornata_ogg_con_pulizia()
ChDrive "C"
Perc = "C:\TEMP\"
NomeF = Perc & "Contestazione n° " & [D2] & " del " & Format([D4], "dd-mm-yyyy") & " Cliente " & [C5] & "_rev. del " & Format(Now(), "yyyy-mm-dd") & " Ore " & Format([M23], "hh_mm") & ".xls"
ActiveWorkbook.SaveAs Filename:=NomeF
    ActiveSheet.Unprotect
    Columns("F:L").Select
    Selection.ClearContents
    Selection.ClearContents
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.SmallScroll Down:=-15
    Range("K9").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("I13").Select
    ActiveWindow.SmallScroll Down:=42
    Rows("51:64").Select
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=-15
    ActiveSheet.Shapes("Picture 28").Select
    Selection.Delete
    Range("H50").Select
    ActiveWindow.SmallScroll Down:=-60
    Range("K4").Select
    Sheets("MODULO CONTESTAZIONE (2) orig").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("GRAFICA").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Dati").Select
    ActiveWindow.SelectedSheets.Delete
    Range("D2").Select
    ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=True
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub


Ho i seguenti difetti che non so risolvere :
1) Quando elimino i fogli, mi chiede sempre il messaggio di conferma, non vorrei che mi apparisse.

2) Ritornare o file originale,come era prima di usare questa Macro.

Grazie, saluti.

[Anthony47]

Hummm... non vedo cosa c' entra la macro che hai postato con il problema che avevi riportato precedentemente ("Non riesco a far salvare solo il foglio "PIPPO" (di 4 fogli esistenti), e per questo etc etc") e a cui era riferita la mia risposta.
A meno che non hai "interpretato" la mia risposta, e invece di lavorare sulla copia del foglio in un nuovo file (riga 1 delle mie istruzioni) lavori sul file originale cancellando quel che non ti interessa; ma questa e' una travisazione del mio suggerimento.

Ciao

[valle1975]

Scusami, ma ho integrato parte della tua informazione nella macro di salvataggio che avevo già impostato e che salvava tutto il file.
Ho sistemato come da tuo consiglio, copiando solo il foglio e ora è tutto a posto..
Scusa ancora e Grazie mille.