Erro ao criar Backup de ficheiro no Onedrive
Enviado: 07 Jun 2020 às 14:20
Boa tarde
Estou a tentar usar um código que consehui arranjar, para fazer o backup do ficheiro excel, sempre que fechar esse ficheiro.
Contudo, já reparei que não funciona, porque estou a correr o ficheiro a partir de uma Cloud.
Será possível contornar este problema e fazer esta macro funcionar?
Obrigado pela ajuda
Estou a tentar usar um código que consehui arranjar, para fazer o backup do ficheiro excel, sempre que fechar esse ficheiro.
Código: Selecionar todos
Dim saveDate As Date
Dim saveTime As Variant
Dim formatTime As String
Dim formatDate As String
Dim backupFolder As String
saveDate = Date
saveTime = Time
formatTime = Format(saveTime, "hh.MM.ss")
formatDate = Format(saveDate, "DD - MM - YYYY")
Application.DisplayAlerts = False
backupFolder = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveCopyAs Filename:=backupFolder & Replace(ActiveWorkbook.Name, ".xlsm", "") & " " & formatDate & " " & formatTime & ".xlsm"
Application.DisplayAlerts = True
MsgBox "Backup Successfully In The Path " & backupFolderContudo, já reparei que não funciona, porque estou a correr o ficheiro a partir de uma Cloud.
Será possível contornar este problema e fazer esta macro funcionar?
Obrigado pela ajuda