- 14 Jun 2019 às 16:09
#44746
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
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