Este fórum está sendo desativado

[fazerbem]

Tenho este comando e apenas o Dim caminho2 funciona certinho, o outro nao, podem me passar o comando certo para:

Caminho = ThisWorkbook.Path & "C:\Users\Andre\Desktop\Pedidos G"



Sub Salvar()

On Error Resume Next
Dim Caminho As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "C:\Users\Andre\Desktop\Pedidos G"
ActiveWorkbook.SaveAs Filename:=Caminho & [A1].Value & ".xlsm"
MsgBox ("Planilha Salva Como : ") & [A1].Value & ".xlsm"

On Error Resume Next
Dim Caminho2 As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=Caminho & [A2].Value & ".xlsm"
MsgBox ("Planilha Salva Como : ") & [A2].Value & ".xlsm"



End Sub

[alexandrevba]

Boa tarde!!

Já enteou assim?

Código: Selecionar todos

Sub Salvar()

On Error Resume Next
Dim Caminho, Caminho2 As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "C:\Users\Andre\Desktop\Pedidos G"
ActiveWorkbook.SaveAs Filename:=Caminho & [A1].Value & ".xlsm"
MsgBox ("Planilha Salva Como : ") & [A1].Value & ".xlsm"

On Error Resume Next
Dim Caminho2 As String 'declaracao da variável caminho
Caminho2 = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=Caminho2 & [A2].Value & ".xlsm"
MsgBox ("Planilha Salva Como : ") & [A2].Value & ".xlsm"

End Sub

Att

[fazerbem]

nao expliquei direito,

Eu colocando o arquivo de nome X na pasta por exemplo: C:/andre/pedidos G , rodo o mesmo e executo a Macro e quero que salve o trabalho por exemplo na Pasta C:/pedro/controle/trabalhos/profit.

acho que é isso.

Andre

[Reinaldo]

ThisWorkbook.path --> retorna algo como "C:\andre\pedido G";
ao concatenar a variável Caminho = ThisWorkbook.Path & "C:\Users\Andre\Desktop\Pedidos G" vai na prática retornar algo como: C:\andre\pedido GC:\Users\Andre\Desktop\Pedidos G
Então creio eu que deveria ser Caminho:"C:\Users\Andre\Desktop\Pedidos G" & "\"

[EdivanCabral]

Amigo ou você usa Caminho = ThisWorkBook.Path que significa o mesmo caminho onde essa pasta de trabalho estiver... Ou então você especifica um caminho fixo como você fez "Caminho = C:\..........."....

O Amigo acima está completamente correto, ao concatenar você terá dois endereços...


Visite meu blog:

programacaopassoapasso.wordpress.com

[fazerbem]

Tentei fazer mas nao vai.

A EMnsagem aparece que a Palnilha foi salva mas nao esta na pasta. Entao mando o arquivo para teste.

Agradeço a ajuda, pois usarei em uma planilha que estou fazendo.

[Reinaldo]

Altere a variavel Caminho conforme abaixo, e teste

Caminho = "C:\Users\Andre\Desktop\Pedidos Gauer" & "\"
ou
Caminho = "C:\Users\Andre\Desktop\Pedidos Gauer\"

[fazerbem]

Nao vai a nao ser que eu coloque assim

On Error Resume Next
Dim CAMINHO As String 'declaracao da variável caminho
CAMINHO = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=CAMINHO & [G19].Value & ".xlsm"
MsgBox ("Planilha Salva Como : ") & [G19].Value & ".xlsm"

[EdivanCabral]

Tenta assim:

Sub Salvar()

On Error Resume Next
Dim Caminho As String 'declaracao da variável caminho
Caminho = "C:\"

'ou
'Caminho = ThisWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:=Caminho & Range("g19").Value & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


MsgBox ("Planilha Salva Como : ") & Range("g19").Value & ".xlsm"


End Sub

[fazerbem]

nao foi ainda, nao pensei que seria tao complicado, mas vou pesquisar mais.

[fazerbem]

alguem mais poderia me ajudar nessa ?

Agradeço muito

Andre

[EdivanCabral]

Cara há algo errada com sua planilha, pois eu testei aqui e funcionou beleza.... Tem como você postar a sua planilha com o seu código nela para analisarmos?

Visite meu blog:

programacaopassoapasso.wordpress.com

[fazerbem]

De fato era erro mesmo aqui. agora acertei

Mas como ao inves de por \Recente" & "\" , colocar uma referencia em Recente, assim ex: D5 dai na propria planilha eu colocaria o destino final.

Grato


On Error Resume Next
Dim Caminho As String 'declaracao da variável caminho
Caminho = "C:\Users\Andre\Desktop\Pedidos Gauer\Recentes" & "\"
ActiveWorkbook.SaveAs Filename:=Caminho & [A1].Value & ".xls"
'MsgBox ("Planilha Salva Como : ") & [A1].Value & ".xls"