opslaan als excel met macro's

[schilderehbo]

Ik heb nu dankzij een expert (EdMoor) hier deze macro draaien en dat werkt perfect. Alleen nu wil ik ook gelijk bestand opslaan als Excel bestand met macro's in de zelfde map en met de zelfde naam als pdf bestandje. Is dat mogelijk?


Sub Ovaal1_Klikken()
Dim Handtekening As String
Dim PDF As Variant
Dim OutApp As Object
Dim OutMail As Object


PDF = ThisWorkbook.Path & "" & Range("A1") & " " & Range("B1") & " " & Range("G1") & " tm " & Range("J1") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=PDF

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Display
Handtekening = .HTMLBody
.To = "henk@info.nl"
.CC = ""
.BCC = "info@help.nl"
.Subject = "Weekmail C groep"
.HTMLBody = "Beste, " & Handtekening

.Attachments.Add PDF
.Display 'Of .Send
End With

End Sub

 

[edmoor]

Zet dit net boven de End Sub:

ThisWorkbook.SaveCopyAs Replace(PDF, ".pdf", ".xlsm")

NB:
Gebruik codetags als je code plaatst.
Nu mist er een \ teken.

 

[schilderehbo]

Nogmaals dank het werkt in 1x