Cariocarj2

@osvaldomp Não é uma planilha especifica, eu abro um arquivo novo, copio e coloco o código, para ver se vai salvar. ele renomeia a planilha, mas nao salva. o nome das pastas são: "2019" e "abril".

ActiveWorkbook.SaveAs Filename:=path & nome & ".xlsx", FileFormat:=xlOpenXMLWorkbook

Deu erro de execução.

Prezados, boa tarde! To com um prolema a dias, montei esse código com o intuito de que salve a pasta na data certa, no mes certo e com o nome certo,mas ao tentar salvar ela dá que o documento não foi salvo. Segue o codigo abaixo, conseguem me ajudar? Sub testing() Dim path As String Dim nome As String Dim mes As String Dim dia As String Dim ano As String mes = MonthName(Month(Now)) dia = Date - 1 nome = "RESUMO DIARIO" & dia ano = Year(Now) path = "C:\Users\galemos\Desktop\ano\mes\" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=path & nome & ".xlsx", FileFormat:=xlOpenXMLWorkbook Application.DisplayAlerts = True Active.Workbook.Close End Sub