Que tal salvar sem apertar um botão?
Com este código você irá salvar sua planilha automaticamente na pasta que quiser e com o nome que desejar.
‘ 1 – Use este código quando a planilha já está salva no computador
|
1 2 3 4 |
ActiveWorkbook.Save |
——————————————————-
‘2 – E para Salvar_Como, a planilha use este código abaixo . Definindo novo lugar e nome
|
1 2 3 4 5 6 7 8 9 10 |
dirCopia = "diretorio do arquivo" nomeCopia = "nome do arquivo" ActiveWorkbook.SaveAs Filename:= _ dirCopia + nomeCopia, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False |
_____________________
Veja Também: Abrir Planilha