Voltar a salvar na pasta antiga depois de salvar no OneDrive

[lbcarvalho]

Olá,

Tenho uma planilha em Excel em que coloquei um botão com uma macro para salvá-la no meu OneDrive da Microsoft. Só que eu também salvo uma cópia no meu computador e, na verdade, a cópia que eu salvo no OneDrive fica como backup.

O que eu quero é por um comando no script do VBA do Excel que, depois que eu salvar a planilha no OneDrive, quando eu clicar no ícone de salvamento padrão (o do disquete) a planilha volte a ser salva na pasta (diretório) original.

O que acontece agora é: depois que eu salvo no OneDrive, sempre que eu clico no disquete, a planilha é salva no OneDrive de novo. Quer dizer, depois que eu salvo ma vez no OD, o Excel assume o OD como diretório padrão.

Acredito que o comando seja alguma coisa parecida com isto: ChDir "\\M01\G\PASTA_01\PASTA_02\"

Veja a macro que eu uso:

Sub SALV_SKYDRIVE()
'
' SALV_SKYDRIVE Macro
'

'
    ActiveWorkbook.SaveAs Filename:= _
        "https://d.docs.live.net/03c194df12/FATURAMENTO/FATURAMENTO.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True
        
    ChDir "\\M01\G\___TRADUÇÃO\FATURAMENTO\"
    
End Sub
 

Agradeço antecipadamente qualquer ajuda!

Editado Novembro 21, 2016 por lbcarvalho