VBA: Bestandsnaam .PDF wijzigen

[Hawkie003]

@Edmoor, kun je betreffende iets specifieker zijn? Ik heb werkelijk waar geen idee wat je nu precies bedoeld.

 

[edmoor]

Specifieker dan de vraag zoals ik hem stelde kan ik eigenlijk niet zijn.
Zet op de regel VOOR With OutlApp.CreateItem(0) eens dit:
MsgBox PdfFile

Laat hier vervolgens zien wat er in die messagebox staat.

 

[HSV]

Plaats het bestand, dat werkt altijd beter.
En schrijf erbij hoe de Pdf volgens jou benoemd zou moeten worden.

 

[Hawkie003]

De oplossing lag erg dichtbij. Ik heb blauw gearceerd wat ik veranderd heb. Dank voor jullie hulp.

  ' Define PDF filename
  PdfFile = [COLOR="#0000CD"]ThisWorkbook.Path & "\" & Title[/COLOR]
  i = InStrRev(PdfFile, ".")
  If i > 1 Then PdfFile = Left(PdfFile, i - 1)
  PdfFile = PdfFile & ".pdf"
 
  ' Export activesheet as PDF
  With ActiveSheet
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=[COLOR="#0000CD"]ThisWorkbook.Path & "\" & Title[/COLOR], _ 
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With

Dank!

 

[snb]

dan is dit genoeg:

ActiveSheet.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Title

 

[edmoor]

En heb je dan ook de Kill opdracht verderop in de code aangepast?