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!!