Bom dia

Eu tenho uma macro para gravar PDFs na pasta de origem de uma vez só, só com um só clique.

Eu abro o ficheiro na cloud NAS directamente e tudo funciona bem, mas quando corro essa macro para fazer um PDF, este PDF muitas vezes não grava automaticamente na pasta de origem. Umas vezes grava, outras vezes não.

Eu noto que quando estou a trabalhar há pouco tempo no ficheiro, tipo 1 ou 2 minutos a macro funcniona bem, mas quando trabalho há mais de 10 minutos, a macro já não funciona, não grava o PDF.

Eu tenho de fazer um "SaveAs" do ficheiro na mesma pasta e substituir o actual ficheiro pelo novo e aí já funciona...

Até já coloquei na macro um "SaveAs" mas feito desta forma não funciona, só quando faço o SaveAs manualmente é que funciona.

Parece que o ficheiro perde a ligação com a pasta de origem, e quando faço o SaveAs manualmente ele recupera essa ligação e fica a funcionar bem novamente

Conhecem algum código para "actualizar" essa ligação do ficheiro que estou a trabalhar ao ficheiro de origem?

Outra coisa que pode ajudar a entender: Por vezes quando faço o SaveAs manualmente a meio do processo aparece uma janela durante 1 segundo onde mostra um Pc pequeno a fazer a ligação à Net (daquelas imagens muito antigas do windows), e se eu não concluir o processo de SaveAs e correr a macro, já funciona bem, daí eu pensar que seja essa ligação ao ficheiro inicial que foi perdida e que a mesama é reposta quando se faz SaveAs.

O código que tenho actualmente é este:

Sub relPert_calculo_ventil()
'
'
    Dim FilePath As String
    
    ' Get the current file path
    FilePath = ActiveWorkbook.FullName
    
    ' Save the workbook
    ActiveWorkbook.SaveAs FilePath, ConflictResolution:=xlLocalSessionChanges
'
    Sheets("CalculoVentilacao").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
        "CAL VENTILACAO.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
        Sheets("Rel Peritag").Select
'
'
    Sheets("Rel Peritag").Select
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
        "Relat_Perit.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

'
    Sheets(Array("A - Transmissao", "B - Ventilacao", "C - Ganhos Inverno", _
        "D - Ganhos Verao", "E - En_Aquecimento", "F - En_Arrefecimento", "G - N_Global")) _
        .Select
    Sheets("A - Transmissao").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
        "Relatorio_Calculo.pdf" _
        , Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
'
Application.Goto Reference:=Worksheets("Introducao de Dados").Range("A1822"), Scroll:=True

End Sub

Alguém consegue me ajudar?

Agradecido