Salvar planilha com outro nome em um diretório da rede

[Diovanino Cassio]

Senhores,

Preciso de um código VBA, para um botão de comando de uma determinada planilha, que deverá executar o seguinte:

- Salvar esta planilha com outro nome;
- Dentro de uma pasta específica, em um outro computador da minha rede, usando o IP para chegar no caminho de salvamento.

Exemplo:
- Nome da nova planilha: Teste.xlsx
- Caminho da Rede: \\140.1.0.222\Temp

Nota:
A janela do Windows Explorer, deverá ser aberta já no caminho acima, para digitação do nome da nova planilha (Teste.xlsx)

Sds,
Diovanino Cássio

[Tov Elen Shau]

Colega.

Adapte aí

'Obs: Substitua o .xlsm pela pelo formato que você quer salvar.
template_file = ActiveWorkbook.FullName
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:="\\140.1.0.222\Temp" + _
VBA.Strings.Format(Now, "yyyy-mm") & ".xlsm", _
fileFilter:="Text Files (*.xlsm), *.xlsm")

Atenciosamente

Tov Elen Shau

[Diovanino Cassio]

Caro, Tov,

Fiz os testes aqui, mas a janela do Windows Explorer, continua abrindo na pasta de documentos do micro que está rodando o código, ao invés de abrir na pasta temp do micro, cujo ip é 140.1.0.222 (micro da rede).

Sds,

[Diovanino Cassio]

Caro, Tov,

Deu certo agora!
Eu estava com problema de permissão na pasta onde vou salvar a planilha.

Valeu!

Sds,