Este fórum está sendo desativado

[EdmilsonPDias]

Olá boa tarde pessoal!
Sou novato com Macros e VBA e gostaria de uma ajuda.
No meu trabalho preciso atualizar um relatório diariamente, para abri-lo automaticamente escrevi um código VBA. Porém todo dia ou virada de mês preciso abrir o código e mudar a referência da pasta onde o arquivo é buscado.

Ex: ChDir _
"S:\Producao Nacional\Planejamento e Controle\PLANEJAMENTO LP WFM\11 - DPA\2018\11 - NOVEMBRO\12"
Workbooks.Open Filename:= _
"S:\Producao Nacional\Planejamento e Controle\PLANEJAMENTO LP WFM\11 - DPA\2018\11 - NOVEMBRO\12\PercAplicDpa_GNA.csv"

Gostaria de uma forma mais pratica, onde eu não precise abrir o código para editar essa informação. Talvez inserir isso na planilha excel ou até mesmo em um input box.

No endereço do diretório essas informações não mudam: S:\Producao Nacional\Planejamento e Controle\PLANEJAMENTO LP WFM\11 - DPA

Apenas o ano, mês e dia quando necessário: 2018\11 - NOVEMBRO\12

Podem me ajudar?

Obrigado!

[osvaldomp]

No endereço do diretório essas informações não mudam: S:\Producao Nacional\Planejamento e Controle\PLANEJAMENTO LP WFM\11 - DPA\
Experimente manter o texto acima (acrescentei uma barra no final) no código e ...

Apenas o ano, mês e dia quando necessário: 2018\11 - NOVEMBRO\12
coloque o texto acima em uma célula, ex. em A1

"S:\Producao Nacional\Planejamento e Controle\PLANEJAMENTO LP WFM\11 - DPA\" & [A1]

[EdmilsonPDias]

Osvaldo obrigado pelo retorno.

Mas não funcionou, ele não encontra o caminho.

[EdmilsonPDias]

segue arquivo em anexo

[osvaldomp]

Eu salvei uma cópia do seu arquivo em C, pasta Testes.
Em seguida abri o arquivo com o comando abaixo.

Código: Selecionar todos

Sub AbreArqXL()
 Workbooks.Open "C:\Testes\AGRUPAR_DPA.xlsm"
End Sub

Aí coloquei o nome e a extensão do arquivo em A1 da planilha ativa e abri o arquivo com o comando abaixo.
A1 = AGRUPAR_DPA.xlsm

Código: Selecionar todos

Sub AbreArqXL()
 Workbooks.Open "C:\Testes\" & [A1]
End Sub

Mais do que isso eu não consigo te ajudar

[EdmilsonPDias]

Osvaldo, agora deu certo muito obrigado