Kwestie : Ik ben aan het proberen om van een werkblad een specifieke range (cel: a1:c71) op te laten slaan als een pdf bestand. Waarbij het pdf bestand dezelfde naam moet krijgen als de naam van het tabblad (evt aangevuld met de huidige datum). En opgeslagen in de huidige gebruikte map. Dit PDF bestand moet vervolgens gemaild worden naar een specifiek emailadres voor controle).
Als ik de opneemfunctie van Macro's hanteer dan lukt e.e.a., echter het excelbestand is dynamisch en wordt naar verschillende plekken gekopieerd en gebruikt m.a.g. dat wanneer men op de button drukt om e.e.a. als pdf op te slaan het pdf bestand naar de in de macro opgegeven plek verhuist.
Hieronder de vba code : zijn volgens mij de probleemitems
Sub Opslaan()
' Opslaan Berekeningsformulier
If MsgBox("Wilt u het bestand opslaan als PDF?", vbYesNo, "Opslaan als PDF") = vbNo Then Exit Sub
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
MsgBox "Is opgeslagen", , ActiveSheet.Range("B7")
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olmail As Outlook.MailItem
Set olmail = olApp.CreateItem(olMailItem)
olmail.To = "e-mail.nl"
olmail.Subject = "Inkomensberekeningsformulier"
olmail.Body = "Het bijgesloten document is in PDF"
olmail.Attachments = "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF"
olmail.Send
End Sub
Bedankt voor de support
Als ik de opneemfunctie van Macro's hanteer dan lukt e.e.a., echter het excelbestand is dynamisch en wordt naar verschillende plekken gekopieerd en gebruikt m.a.g. dat wanneer men op de button drukt om e.e.a. als pdf op te slaan het pdf bestand naar de in de macro opgegeven plek verhuist.
Hieronder de vba code : zijn volgens mij de probleemitems
Sub Opslaan()
' Opslaan Berekeningsformulier
If MsgBox("Wilt u het bestand opslaan als PDF?", vbYesNo, "Opslaan als PDF") = vbNo Then Exit Sub
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
MsgBox "Is opgeslagen", , ActiveSheet.Range("B7")
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olmail As Outlook.MailItem
Set olmail = olApp.CreateItem(olMailItem)
olmail.To = "e-mail.nl"
olmail.Subject = "Inkomensberekeningsformulier"
olmail.Body = "Het bijgesloten document is in PDF"
olmail.Attachments = "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF"
olmail.Send
End Sub
Bedankt voor de support
Laatst bewerkt:
