thulio freitas

Boa tarde,

Desenvolvi uma macro pra auxiliar o uso de uma planilha aqui na empresa, mas ela não roda nos computadores dos outros, mesmo que a planilha esteja salva na rede,

no meu roda normalmente e não entendo porque nos outros não.

 

o código é o seguinte:

Sub PDFgeral()

Dim Nome As String

Dim SDate As String

Dim MyLocal As String

MyLocal = "Y:\Dce\exportaçao\COMERCIAL\REGULATÓRIO\Controle\19. Product Brief\Destino automático PDF\"

Nome = Worksheets("Geral").Range("F9").Value

SDate = Now

If Nome <> vbNullString Then

Worksheets("Geral").Range("A1:D584").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

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

Else

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

End If

End Sub

 

como disse, no meu computador o arquivo é salvo normalmente, porém quando outros funcionários da área tentam salvar, aparece o seguinte erro:

 

e quando depurado o excel marca a seguinte linha em amarelo:

Worksheets("Geral").Range("A1:D584").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

 

Não sei o que pode estar ocasionando o erro, se alguém puder me ajudar, valeu!!