Opgelost Bestaande PDF overschrijven

[DesignerQZ]

Ik heb een Macro waarbij vanuit Excel een PDF wordt aangemaakt en opgeslagen. Nu is het zo dat wanneer de PDF al bestaat deze niet wordt overschreven. Ik heb al iets geprobeerd met :

' If Dir("ThisWorkbook.Path" & "\Offerte " & FacName & " " & Date") <> "" Then MsgBox "PDF bestaat al"

' Exit Sub
' Else

Maar hierbij krijg ik een melding van een compileerfout. Is er iemand die mij hierbij kan helpen?

 

[OctaFish]

Je kunt met Kill de bestaande versie verwijderen voordat je de nieuwe opslaat. Dus met Dir() checken of het bestaand bestaat, dan met Kill verwijderen en daarna opnieuw opslaan. Overigens heb je in je Dir bestand geen .pdf als extensie meegegeven. Dat zou ook een fout kunnen opleveren. En je geeft geen format mee aan Date, dus daar zou het ook fout kunnen gaan.

 

[AHulpje]

Ik zou de aanhalingstekens om "ThisWorkbook.Path" verwijderen.

 

[edmoor]

En je If structuur klopt ook niet.

 

[OctaFish]

De If constructie is prima, maar de syntax dus niet.

If Dir(ThisWorkbook.Path & "\Offerte " & FacName & " " & Date & ".pdf" ) <> "" Then
     Kill ThisWorkbook.Path & "\Offerte " & FacName & " " & Date & ".pdf"
End If

 

[HSV]

Indien een Pdf al bestaat wordt het altijd overschreven; tenminste hier.

 

[OctaFish]

Het probleem van TS zat 'm ook niet in het opslaan, maar in het verkeerd gebruiken van de code .

 

[HSV]

Nu is het zo dat wanneer de PDF al bestaat deze niet wordt overschreven.

Verkeerde interpretatie?

"Nu is het zo dat wanneer de PDF al bestaat deze niet moet worden overschreven".

 

[OctaFish]

Hij werd niet overschreven omdat de code fout was. Dan krijgen jij en ik het óók niet voor elkaar .

 

[HSV]

Ik denk dat TS eerst maar eens beter uit moet leggen wat het wil.
Als je een Pdf wil overschrijven heb je geen Dir functie nodig.

 

[AHulpje]

Gewoon zo, PDF wordt zonder pardon overschreven:

Sub Factuur()
    Dim facname As String
    facname = "Factuur 12345"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Offerte " & facname & " " & Date
End Sub

 

[DesignerQZ]

De code van OctaFish werkt prima bij mij
Probleem opgelost, iedereen bedankt voor het meedenken!