Página 1 de 1

Macro Automática

Enviado: 14 Jun 2019 às 16:09
por Saulo
Boa Tarde!
Tenho uma determinada planilha que possui um “botão” onde a ele está associado uma macro, ao clicar nesse “botão”, o arquivo é salvo em dois diretórios distintos, ou seja, é uma espécie de backup.
O pedido de ajuda é o seguinte: existe uma forma de se acionar a macro em questão de forma automática, sempre a um determinado horário? por exemplo sempre às 16:30Hs, eliminando o ato manual de se clicar no “botão”.
Segue abaixo macro em questão:
Public Sub SalvarPastaTrabalhoPCM()
Dim strCaminho1 As String
Dim strCaminho2 As String
Dim strNome As String
Application.DisplayAlerts = False
strCaminho1 = "C:\MODULAR\MANUTENÇÃO\01 - SISTEMAS\" '1º caminho do arquivo
strCaminho2 = "N:\01 - SISTEMAS CONTROLE DA MANUTENÇÃO\" 'Caminho Alternativo
strNome = ThisWorkbook.Name
ActiveWorkbook.SaveAs Filename:=strCaminho1 & strNome
ActiveWorkbook.SaveAs Filename:=strCaminho2 & strNome
Application.DisplayAlerts = True
End Sub

Desde já agradeço

Re: Macro Automática

Enviado: 15 Jun 2019 às 09:38
por osvaldomp
Experimente: instale uma cópia do código abaixo no módulo de EstaPasta_de_trabalho, salve, feche e reabra o arquivo.
Código: Selecionar todos
Private Sub Workbook_Open()
  Application.OnTime TimeValue("16:30:00"), "SalvarPastaTrabalhoPCM"
End Sub

Macro Automática

Enviado: 18 Jun 2019 às 11:38
por Saulo
Prezado osvaldomp 15 Jun 2019 às 10:38,
Primeiramente Muito Obrigado Por Dispor de seu Tempo Para Me Ajudar.
OK. Era Isso Mesmo, Implementei Seu Código e Funcionou Perfeitamente.
Atenciosamente