Ik heb een vereenvoudigde inventaris opgesteld in excel en wil deze graag op datum exporteren naar pdf
in dezelfde map als daar waar de excel in staat.
Naam==> INV_ waarde van cel E3
Op een of andere manier lukt het niet met onderstaande code.
Kan iemand helpen? Alvast bedankt
Sub Opslaan_als_PDF()
Bestandsnaam = "INV_" & Range("e3").Value & ".pdf"
If Dir(ThisWorkbook.Path & Bestandsnaam) <> "" Then
antwoord = MsgBox("Het bestand " & Bestandsnaam & "bestaat reeds. Wil je dit vervangen?", vbYesNo)
If antwoord = vbYes Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestandsnaam & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, to:=1, OpenAfterPublish:=False
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestandsnaam & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, to:=1, OpenAfterPublish:=False
End If
End If
End Sub