SaveForHistory

[RICO]

problem....
imam jedan program koji svaki mjesec obracunava neke podatke i na
njemu ima macro koji prilikom aktiviranja izbaci massage box u kojem
se upise npr, Jan .xls i on ga spreni u za to odredjeni direktorij pod
tim imenom.Ja imam slican program (bez tog macra) u koji bi volio
ubaciti tu funkciju.pitam se kako?

[robi]

Sub Spremi()
Dim ImeDirektorija As String
Dim ImeFajla As String
Dim NovoImeFajla As String

'u slucaju spremanja u isti direktorij
ImeDirektorija = ThisWorkbook.Path

ImeFajla = InputBox("Ime fajla")

If ImeFajla <> "" Then
NovoImeFajla = ImeDirektorija & "\" & ImeFajla & ".xls"
ThisWorkbook.SaveAs NovoImeFajla
Else
Exit Sub
End If

End Sub