MACRO PER OFFICE 2003

[PACIOSISSI]

Buongiorno a tutti
mi sono appena iscritto in quanto ho bisogno di aiuto per una macro che ho già scritto e che vi sottopongo. In pratica la macro copia il foglio di lavoro e lo incolla in una cartella con il nome: la mia necessità è di avere anche la data!!! E qui sto impazzendo. Grazie a chi vorrà darmi aiuto!!!

Range("A11:G35").Select
Selection.Sort Key1:=Range("F11"), Order1:=xlAscending, Key2:=Range("G11" _
), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Sheets("TOTALE PUNTI").Copy
Range("A8:G36").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ChDir "O:\AREA \SCHEDE\MONITORAGGIO \ MAGGIO 2011"
ActiveWorkbook.SaveAs Filename:= _
"O:\AREA\SCHEDE\MONITORAGGIO \ MAGGIO 2011\" _
& Range("B8") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

In B8 c'è il nome del foglio - in D8 c'è la data. Grazie ancora

[Avatar3]

Registra una macro che copia la cella D8 del foglioXXX (descrivi anche il nome del file che contiene questo foglio)
e la incolla nel foglio destinazione.
Il codice generato va inserito prima di questo tuo codice

Codice: Seleziona tutto

'<<<< inserire qui
ChDir "O:\AREA \SCHEDE\MONITORAGGIO \ MAGGIO 2011"
ActiveWorkbook.SaveAs Filename:= _
"O:\AREA\SCHEDE\MONITORAGGIO \ MAGGIO 2011\" _
& Range("B8") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close


Se hai problemi posta di nuovo
Ciao

[PACIOSISSI]

Ciao Avatar3, ti ringrazio infinitamente per la risposta. Ma essendo io mooolto autodidatta e poooco esperto non è che mi daresti un aiuto in più scrivendomi la stringa di messaggio da inserire?
Grazie ancora per la gentile collaborazione.

[Anthony47]

Prova con

Codice: Seleziona tutto

ActiveWorkbook.SaveAs Filename:= _
"O:\AREA\SCHEDE\MONITORAGGIO \ MAGGIO 2011\" _
& Range("B8") & Format(Range("D8").value,"_yyyy-mm-dd") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False


Ciao

[PACIOSISSI]

Fantastico: funziona perfettamente!!!

Ancora mille grazie a tutti.