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

  • Pergunta

  • 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


    terça-feira, 10 de abril de 2018 16:49

Todas as Respostas

  • 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. ricardodm@outlook.com.br

    terça-feira, 10 de abril de 2018 18:18