VBA PDF bestand overschrijven

[KCSB]

Beste VBA-ers,

Met onderstaande VBA kan ik een Excel document opslaan als PDF. Als er wijzigingen zijn in het document wil ik graag het bestaande PDF bestand overschrijven.
maar ik loop vast, wie kan mij verder helpen? Op de C:\ schijf werkt het wel, op de Server van mijn werk loop ik vast.


Sub PDFbestandoverschrijven()

Dim MyFile As String
Dim sBestandsnaam As String
Dim sPadnaam As String


For T = 1 To Sheets.Count
With Sheets(T)
.Select
.Copy

MyFile = Range("B3")

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
"L:\documenten\bestand " & MyFile & ".pdf", ReadOnlyRecommended:=False _
, CreateBackup:=False

Application.DisplayAlerts = True

ActiveWorkbook.Close

End With
Next
End Sub

 

[edmoor]

Dat is niet een echt technische omschrijving van je probleem.
Krijg je een foutmelding?
Zoja, welke is dat dan?

Daarnaast sla je dus een Excel document op met de extensie .pdf, dat maakt het nog geen PDF bestand.
Dit wel:

Sub PDFbestandoverschrijven()
    For Each sh In ThisWorkbook.Sheets
        Application.DisplayAlerts = False
        sh.ExportAsFixedFormat 0, Filename:="L:\documenten\bestand " & sh.Range("B3")
        Application.DisplayAlerts = True
    Next sh
End Sub

N.B.:
Als je hier code plaatst, zet deze dan in codetags voor de leesbaarheid, zoals hier boven.