VBA Excel Macro

[Lucas Mateus Gonçalves]

Boa tarde.

Sou novo em programação estou tentando fazer um projeto para um trabalho

Estou criando uma macro para abrir uma outra planilha no Excel sendo o que a planilha fica em meu diretório
e ela é atualizada toda segunda feira quando ela e atualizada o nome muda gostaria de deixar automático para não precisar ficar alterando o nome toda segunda.

O que consegui fazer esta abaixo mas quando ele não encontra a 1 não prossegue com a depuração da um erro de arquivo não localizado e não continua.


______________________________________________________________________________
Sub Main()
    
    Application.DisplayAlerts = False
    
        If retval = xlsm Then
            ChDir "C:\planilha atualizada"
            Workbooks.Open Filename:="C:\planilha atualizada\19112018.xlsm"
 
        ElseIf retval = xlsm Then
            ChDir "C:\planilha atualizada"
            Workbooks.Open Filename:="C:\planilha atualizada\12112018.xlsm"
        End If
    
End Sub

______________________________________________________________________________

[Alyson Ronnan Martins]

Tentou usar o código  "if" e "len" com o endereço do arquivo. se ele der nulo o arquivo não existe ai vai tentar char o  próximo.

Aguardando mais duvidas.

[Lucas Mateus Gonçalves]

Em 23/11/2018 em 00:49, Alyson Ronnan Martins disse:

Tentou usar o código  "if" e "len" com o endereço do arquivo. se ele der nulo o arquivo não existe ai vai tentar char o  próximo.

Aguardando mais duvidas.

 

______________________________________________________________________________
Sub Main()
    
    Application.DisplayAlerts = False
    
        If Len(xlsm) Then
            ChDir "C:\planilha atualizada"
            Workbooks.Open Filename:="C:\planilha atualizada\19112018.xlsm"
 
       ElseIf Len(xlsm) Then
            ChDir "C:\planilha atualizada"
            Workbooks.Open Filename:="C:\planilha atualizada\12112018.xlsm"
        End If
    
End Sub

______________________________________________________________________________

Agora ele consegue prosseguir mas não executa a operação "Workbooks.Open Filename:="C:\planilha atualizada\19112018.xlsm"" na hora de depurar o código  ele pula esta operação.

Editado Novembro 27, 2018 por Lucas Mateus Gonçalves