excel sheet als PDF op bureaublad opslaan met bestandsnaam die in een cel staat

[renew000]

Hallo experts,

Op dit moment gebruik ik excel 2003 en ik wil graag een knop aan mijn excelsheet toevoegen die het volgende doet:

- Hij moet de excelsheet als PDF op het bureaublad opslaan
- dit PDF document moet automatisch de naam krijgen die in een bepaalde cel in vermeld

Ik hoop dat dit mogelijk is.

ps wellicht handig om te vermelden: In excel is er een menu "Adobe PDF" waarin je het exceldocument/sheet kan converteren naar een PDF.

Alvast bedankt voor jullie hulp

 

[Roncancio]

ActiveWorkbook.SaveAs "C:\desktop\" & [a1] & ".pdf"

Het pad dien je nog aan te passen aan je eigen situatie.

Met vriendelijke groet,


Roncancio

 

[Niels28]

Voor desktop te bepalen is de volgende macro

    Dim objWSH          As Object
    Dim strPath         As String
    
    Set objWSH = CreateObject("WScript.Shell")
    strPath = objWSH.SpecialFolders("Desktop") & "\"

Niels

 

[renew000]

Hallo Niels/Roncancio,

Momenteel ben ik me aan het inlezen in VBA en zoals je misschien kunt begrijpen is bovenstaande nog een beetje onduidelijk.

Zou je mij wellicht een beetje op weg kunnen helpen op welke manier ik door het gebuik van bovenstaande codes mijn doel zou kunnen bereiken?

Alvast bedankt voor je terugkoppeling

PS als jullie iets in de trend van een voorbeeldbestandje willen hebben dan hoor ik dat graag. Wellicht begrijp ik de codes dan ook beter

Groetjes
René

 

[renew000]

Trouwens als een ander het antwoord weet dan hoor ik dat uiteraard graag