Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Confirmação de Açõe...
 
Notifications
Clear all

Confirmação de Ações - Excel

 
2024 - VBA & Macros
Post Recente por Bautto 9 anos atrás
5 Posts
3 Usuários
0 Reactions
976 Visualizações
RSS
Bautto
 Bautto
(@bautto)
Posts: 70
Estimable Member
Topic starter
 

Colegas:
Estou automatizando alguns procedimentos em planilhas e criei a rotina abaixo, para salvar uma planilha com outro nome, para fins de "backup" diário, com o comando "SaveAs" e, após, sair do aplicativo.
Entretanto, como já existe a planilha, sempre vem a mensagem solicitando confirmação para a gravação do arquivo.
Gostaria que fosse salva automaticamente, sem a necessidade de confirmação para sobrescrever o arquivo já existente. Há como inibir a apresentação dessa mensagem via VBA? Podem me ajudar nisso?
Agradeço a atenção.

Segue a rotina:

Range("A1").Select
Sheets("Diário").Select
Range("A1").Select
Application.CutCopyMode = False
Application.Visible = True
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:= _
"C:A_Meus DocumentosPlanilhasFinancas15_Ações.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.Quit

 
Postado : 06/07/2015 2:33 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

Leia:
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/07/2015 2:38 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Para enibir a mensagem utilize a instrução :
Application.DisplayAlerts = False

Range("A1").Select
Sheets("Diário").Select
Range("A1").Select
Application.CutCopyMode = False
Application.Visible = True
ActiveWorkbook.Save

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
"C:A_Meus DocumentosPlanilhasFinancas15_Ações.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.Quit

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/07/2015 7:03 pm
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
 

Tente este código;

Sub Salva()
On Error GoTo debugs
Set objWS = CreateObject("WScript.Shell")
ActiveWorkbook.SaveCopyAs Filename:= _
objWS.SpecialFolders("mydocuments") & "Arquivo "  & Format(Date, "  dd-mm-yyyy") & ".xlsm"
MsgBox "ARQUIVO SALVO COM SUCESSO", vbInformation
End
debugs:
MsgBox "NÃO FOI POSSIVEL SALVAR O ARQUIVO", vbCritical
End Sub

Salva a pasta.

 
Postado : 07/07/2015 6:19 am
Bautto
 Bautto
(@bautto)
Posts: 70
Estimable Member
Topic starter
 

Colegas, obrigado pela ajuda.
Creio que a sugestão do Mauro Coutinho resolve meu problema. Vou testar ainda hoje.
Quanto a sugestão do Miguel 70, vou também experimentar em outro arquivo.
Agradeço ao Alexandre pelas dicas nos links sugeridos.
Boa tarde o grato a todos.

 
Postado : 07/07/2015 10:02 am
Forum Jump:
  Tópico Anterior
Próximo Tópico