Macro só funciona no PC de criação...

Question

Boa tarde pessoal, estou com o seguinte problema... Sou iniciante em VBA.

Criei um botão de "GRAVA SIMULAÇÃO", que ao usuário clicar em cima, este mesmo salva essa planilha em formato .PDF no disco C:\, até aí Ok, no meu PC de criação do arquivo funciona, porém, ao colocar esse arquivo em rede e compartilhar com outros usuários, as macros deixam de funcionar, não salvando a planilha em formato .pdf e ocorrendo o seguinte erro. 

Erro em tempo de execução '1004':

O documento não foi salvo. Talvez esteja aberto, ou pode ter ocorrido um erro durante a gravação.

O que pode estar acontecendo? Segue o código VBA abaixo:

Obrigado desde já!

Sub Finaliza_Simulacao()
'
' Cria Simulacao no PDF
'

Dim nomesimulacao As String


ChDir "C:\"


   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF  (ESSA LINHA FICA EM AMARELO QUANDO DEPURO O ERRO)
            
   msgbox "Simulação já está salva no diretório C:\"
   
   ThisWorkbook.Saved = True 'avisa a planilha que já foi salva para não aparecer a mensagem de confirmação de fechamento
 
   
        
End Sub

Answer 1

Experimente alterar o local de salvamento do pdf, dependendo do PC, não autoriza salvar arquivos no diretório raiz, C:

Exemplo

Sub Finaliza_Simulacao()
    Dim seuDiretorio As String
    ' Cria Simulacao no PDF
    '
    
    Dim nomesimulacao As String
    
    seuDiretorio = VBA.Environ("USERPROFILE") & "\Desktop\seupdf.pdf"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=seuDiretorio
    
    
    MsgBox "Simulação já está salva no diretório" & seuDiretorio
    
    ThisWorkbook.Saved = True 'avisa a planilha que já foi salva para não
    '                          aparecer a mensagem de confirmação de fechamento
    
    
    
End Sub

---

Click em propor como resposta se foi util a voce. [e-mail]