Este fórum está sendo desativado

[FelipeBarbosa]

Boa noite pessoal,

Tenho uma planilha que precisa ser salva sempre em um local da rede da empresa em formato PDF e com o nome do arquivo, esse nome do arquivo varia conforme o numero do pedido.

Bom, eu achei uma macro que funcionou quase perfeita, a questão é que não está salvando na pasta que eu indiquei, a macro está salvando no ultimo lugar em que o usuario salvou qualquer outro arquivo, se ele salvou um outra arquivo na area de trabalho, a macro vai salvar o arquivo na area de trabalho e assim por diante, gostaria que salvasse sempre na pasta da rede conforme coloquei o link na macro abaixo.

O titulo do arquivo é puxado pela celula W1

Poderiam por favor me ajudar a melhorar essa macro?

Segue em anexo a planilha.

Código: Selecionar todos

Option Explicit

Sub Salvando_todas()

Dim Nome As String

Dim SDate As String

Dim MyLocal As String

MyLocal = "\\192.168.1.250\shared\Publico\Pedidos"

Nome = Range("W1").Value

SDate = Now

If Nome <> vbNullString Then

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"

Else

MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"

End If

End Sub

[JCabral]

Experimente alterar as seguintes linhas de código:

Código: Selecionar todos

MyLocal = "\\192.168.1.250\shared\Publico\Pedidos"

para

Código: Selecionar todos

MyLocal = "\\192.168.1.250\shared\Publico\Pedidos\"

Código: Selecionar todos

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

para

Código: Selecionar todos

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

[FelipeBarbosa]

Experimente alterar as seguintes linhas de código:

Código: Selecionar todos

MyLocal = "\\192.168.1.250\shared\Publico\Pedidos"

para

Código: Selecionar todos

MyLocal = "\\192.168.1.250\shared\Publico\Pedidos\"

Código: Selecionar todos

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

para

Código: Selecionar todos

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

Muito Obrigado Jcabral, deu certo.