Excel Salvar planilha com data no nome

[Jeff_Sandes]

Estou com um problema ao executar uma macro para salvar a planilha como data no nome, minha intenção é cada vez que essa macro for executada, deverá ser salvo um novo arquivo com data no nome e deixar o anterior, criando assim várias planilhas com dados de cada mês.

 

 Private Sub Salvar_Planilha()
     Dim Data As String
            Data = Format(Date, "mm/yyyy")
            ActiveWorkbook.SaveAs _
            Filename:="C:\Users\Automacao\Desktop\macros\" & Data & ".xlsm"  'Salva planilha com nome de mês e data atual
     Application.DisplayAlerts = False 'Desativa Pop-Up de pergunta se deseja salvar ou não
     Application.Quit 'Fecha Excel
 End Sub

 

e dá esse erro, alguém pode dá um help?

 

 

[AfonsoMira]

Boas @Jeff_Sandes ,

Então ao que parece o VBA está a associar o "/" da data como sendo um separador do caminho do ficheiro.

Experimente desta forma:
 

 Private Sub Salvar_Planilha()
     Dim Data As String
            Data = Format(Date, "mm-yyyy")
            ActiveWorkbook.SaveAs _
            Filename:="C:\Users\Automacao\Desktop\macros\" & Data & ".xlsm"  'Salva planilha com nome de mês e data atual
     Application.DisplayAlerts = False 'Desativa Pop-Up de pergunta se deseja salvar ou não
     Application.Quit 'Fecha Excel
 End Sub

 

Ps. Não testei aqui

[Jeff_Sandes]

Em 27/07/2022 às 12:48, AfonsoMira disse:

"mm-yyyy"

ahhhh deu certo!! valeu