Notifications
Clear all

Salvar automaticamente um arquivo já existente

3 Posts
2 Usuários
0 Reactions
1,068 Visualizações
(@japimentel)
Posts: 0
New Member
Topic starter
 

Olá.
Organizei uma rotina no CLICK do botão SALVAR para enviar uma cópia da planilha numa pasta cujo endereço foi informado.
Ocorre que ao encontrar o arquivo que foi salvo a primeira vez, da segunda vez em diante aparece a seguinte mensagem:
"Um arquivo ..... já existe neste local. Deseja substituí-lo?"
Eu não gostaria de ficar clicando em "sim" sempre, mas que fosse executado automaticamente.
É possível?
Segue o código:

Sub SalvarComo()
    ChDir "X:DropboxCOMPARTILHADO"
    ActiveWorkbook.SaveAs Filename:= _
        "X:DropboxCOMPARTILHADODECRETOS - 29mai2017.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Grato pela atenção,

José.

 
Postado : 29/05/2017 1:44 pm
(@brunoxro)
Posts: 0
New Member
 

Boa tarde,

Desabilite as mensagens de alerta.

Assim:

'Desabilita
Application.DisplayAlerts = False

'---Seu código

'Habilita
Application.DisplayAlerts = True

att,

 
Postado : 29/05/2017 3:09 pm
(@japimentel)
Posts: 0
New Member
Topic starter
 

Muito obrigado, amigo. Ficou perfeito. :mrgreen:

 
Postado : 30/05/2017 5:02 am