Programar macro para rodar em um determinado dia e horário

Bom dia.

Prezados amigos ...

Tenho uma macro que estou desenvolvendo e preciso de ajuda ...

Quero que minha macro rode todo o dia em deteminado horário que eu estipular, porém o critério para que ela rode é que o arquivo que será utilizado tem de estar atualizado na data do dia ... Ex : Hoje é dia 02/10/2014 e o arquivo está atualizado com a data de ontem, daí a macro não executa ... porém, se a data do arquivo salvo for a de hoje, quero que execute o comando abaixo ...

Infelizmente tentei fazer vários ajustes mas só estou piorando a situação ... Alguém poderia me ajuda !?

Desde já agradeço !

Public Sub ExecutaMacros1()

Const Arquivo As String = "C:\Users\G0047832\Desktop\RELATORIO_CANCELAMENTO_TELECOM_TV_201409.txt"
'Exibe a data de criação do arquivo

Dim DataAtualizado As Date

DataAtualizado = FileDateTime(Arquivo)

If DataAtualizado >= Date Then

Call Application.OnTime(TimeValue("10:03:00"), "IMPORTA")
Call Application.OnTime(TimeValue("10:04:00"), "TRATADADOS")

Else

Exit Sub

End If

End Sub

Bom dia!!

Cara, sinceramente, eu ainda não entendi.

porque então não atualizar o arquivo com a data de hoje

Att

Seria assim ...

A macro que estou criando deve rodar se o arquivo ( base TXT ) que será importado da rede estiver salvo com a data de hoje, caso contrário ela não executa.

Só preciso saber como fazer a macro rodar com base na data que o arquivo foi salvo na rede, os demais processos já estou montando ...

O objetivo é fazer que meu relatório rode "sozinho" todos os dias, por isso estou usando a função "Call Application.OnTime", porém se a base do relatório não estiver atualizada/salva com a data do dia da execução da macro de nada vale ...

à disposição !

Boa tarde!!

Então você deseja que tenha esse critério (arquivo atualizado com a data de hoje), pois caso queira, tu pode, simplesmente rodar uma rotina (agendada para todos os dias).

Caso queira o resultado em uma guia

Código:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Plan1").Range("A1") = Application.UserName
Sheets("Plan1").Range("A2") = Now
End Sub

Ou...........
http://2toria.com/2011/11/25/excel-tip-display-the-name-of-the-last-user-to-save-a-file/
UDF

Código:

Function LastSaved() As Date
    Application.Volatile
    LastSaved = ThisWorkbook.BuiltinDocumentProperties(12)
End Function

Código:

Function LastAuthor() As String
    Application.Volatile
    LastAuthor = ThisWorkbook.BuiltinDocumentProperties("ultimo Autor")
End Function

Att

Caro amigo ...

Vi seu post e achei sensacional, mas o meu caso é um pouco diferente do que você entendeu ...

Não quero abrir o arquivo, mas sim fazer uma leitura do arquivo que esta em uma pasta na rede e caso este arquivo esteja atualizado com a data do dia ( ex: hoje ), este rodará outras macros que estou desenvolvendo.

A ideia é ter uma atualização "automática" que não necessite de minha intervenção, neste caso precisaria de uma forma de fazer essa leitura do arquivo txt na rede e se o mesmo estiver atualizado, todas as demais macros irão executar conforme as programações que estou fazendo ...

Parece complicado, mas se analisar o código abaixo, vai ver que estou tentando fazer que seja lido um arquivo na rede com base na data de hoje x a data de atualização do mesmo.

Public Sub ExecutaMacros1()

Const Arquivo As String = "C:\Users\G0047832\Desktop\RELATORIO_CANCELAMENTO_TELECOM_TV_201409.txt"
'Exibe a data de criação do arquivo

Dim DataAtualizado As Date

DataAtualizado = FileDateTime(Arquivo)

If DataAtualizado >= Date Then

Call Application.OnTime(TimeValue("10:03:00"), "IMPORTA")
Call Application.OnTime(TimeValue("10:04:00"), "TRATADADOS")

Else

Exit Sub

End If

End Sub

Boa tarde!!

Imagine o VBA trabalhando, como (qual critério), tu vai dizer para o VBA que o arquivo está atualiza?

Talvez depois disso eu possa ajudar

Att