Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

A área de Remoção de Malwares está aberta na Comunidade BABOO. LEIA AQUI

Ir para conteúdo
GENECI

RESPONDIDO Criar ou Renomear do arquivo com o mes e ano atual.

Mensagem Recomendada

Boa tarde!

Acredito que o excel não oferece esse recurso, se oferece solicito a sua ajuda.

Tenho um arquivo com o seguinte nome: CONTAS-A-RECEBER

Gostaria se possível, um procedimento em VBA, que faça o seguinte: Quando salvar o arquivo, que esta anexo adicionar ao nome do arquivo o mês e o ano atual.

Ficaria da seguinte maneira, para o mês de março de 2019: CONTAS-A-RECEBER-março-2019

Para o mês de abril: CONTAS-A-RECEBER-abril-2019

E assim segue, mudou o mês e o ano muda o nome do arquivo

Sempre excluindo, (apagando) o arquivo do mês anterior.

Existe essa possibilidade?

Grato - Geneci.

CONTAS-A-RECEBER.zip

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá, Geneci.

Veja se atende.

1. cole uma cópia do código abaixo em um módulo comum do seu arquivo

2. salve o arquivo como Habilitado para Macro

3. rode o código abaixo

4. daí em diante bastará rodar o código para obter o resultado que você deseja

Sub ArqSalvaAtualDeletaAnterior()
 Dim ant As String, nom As String
  ant = ThisWorkbook.FullName
  nom = Left(ThisWorkbook.Name, 16) & "-" & Format(Date, "mmmm-yyyy")
  Application.DisplayAlerts = False
  ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & nom
  Application.DisplayAlerts = True
  On Error Resume Next
  Kill ant
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...