Excel 2010, Met VBA-code een als PDF opslaan waarbij bestand de naam uit een specifieke cel krijgt

Question

Hoi,

Heb ooit een excel-bestand gebouwd wat met behulp van een macro opgeslagen word in een specifieke map op het netwerk. De complete naam van het bestand, inclusief netwerkadres (D:/huppeldepup/x/y) is opgebouwd in een cel in het excelbestand, die is kant en klaar

Ik wil eigenlijk dat bestand in plaats van opslaan als Excel, nu opslaan als PDF omdat er dan niet meer naderhand aan kan worden gerommeld. Op 1 of andere manier krijg ik dat niet voor elkaar (ben dan ook verre van een prof..). Een macro opnemen van "opslaan als PDF" lukt wel, maar krijg het niet voor elkaar om het te laten werken met de complete bestandsnaam uit desbetreffende cel.

Dit was het, maar wat het moet worden kom ik steeds niet uit.

Sub opslaan()

'

'opslaan Macro

'

On Error GoTo Errorhandler1

' Opslaan onder de naam opgegeven in Cel AC39

    ActiveWorkbook.SaveAs filename:=Range("AC39") & ".xls", _

    FileFormat:=xlNormal, _

    Password:="", _

    WriteResPassword:="", _

    ReadOnlyRecommended:=False, _

    CreateBackup:=False

'

Exit Sub

Want dit:

Sub PDF4()

'

' PDF4 Macro

'

'

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _

        "Range("AC39") & ".pdf", Quality:=xlQualityStandard, _

        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

        True

End Sub

Werkt dus niet...

Answer 1

Code werkt bij mij wel. Is je pad in range ac39 juist en beschikbaar?

Answer 2

Hebbes.

Inderdaad, die code werkte inderdaad, ware het niet dat ik ergens een "-tje teveel had gezet. (Voor Range staat er 1 teveel)