Alexandrevba e Foristas, adaptei um código que o próprio Alexandre criou em 2012 e deu certo no Excel 2007!
Testarei no Excel 2003 e posto como RESOLVIDO. Desde já, muito obrigado!
A rotina Salva a Pasta Atual e Salva o Backup em outro diretório, salvando-o com o Nome do Arquivo Principal e alocando a data e hora do backup.
Sub Elipse2_Clique()
ActiveWorkbook.Save
'Salva o arquivo atual para uma pasta de backup ea pasta padrão
'Note-se que qualquer backup é substituído
Dim MyDate
MyDate = Date 'MinhaData contém a data atual do sistema.
Dim MyTime
MyTime = Time 'Voltar hora atual do sistema.
Dim TestStr As String
TestStr = Format(MyTime, "hh.mm.ss")
Dim Test1Str As String
Test1Str = Format(MyDate, "DD-MM-YYYY")
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Filename:="E:Nova pasta (2)" & Test1Str & " " & TestStr & " " & ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub
Postado : 19/07/2014 9:05 am