Print PDF en opslaan als

[bloemenman]

Beste helpers,

Ik heb al veel geprobeerd en gezocht naar de juiste code maar kom er niet uit zonder hulp. Ik heb zelf weinig verstand van programmeren maar heel veel dingen zijn wel gelukt door veel op jullie forum te kijken.

Ik heb hulp nodig bij het volgende,
Ik heb in excel een formulier gemaakt die door iemand ingevuld moet worden. Na het invullen moet er op een knop gedrukt worden om deze op te slaan.
Dit gaat allemaal goed, alleen wil ik dat naast het opslaan van het exceldocument er een PDF van gemaakt wordt die onder dezelfde naam als het exceldocument wordt opgeslagen in een andere map als PDF bestand.

Ik werk met excel 2003 en gebruik pdfcreator.

Hieronder de code zoals ik tot nu toe gebruik.

Is er iemand die deze code aan kan passen zodat ie doet wat ik hierboven schrijf?


ActiveSheet.Unprotect
Range("C23") = Range("C23").Value
Range("C3") = Range("C3").Value

ActiveWorkbook.SaveAs Filename:="\\65.11.30.335\Intranet\Exceldocumenten\" & Range("c3") & " (1) " & Range("c5") & " " & Format(Now, "dd-mm-yyyy")

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.DisplayAlerts = False

Antwoord = MsgBox("Wil je het formulier opslaan?", vbOKCancel + vbExclamation, "Jan")
If Antwoord = vbCancel Then Exit Sub

MsgBox "Het formulier is opgeslagen!"

Application.DisplayAlerts = False

Application.WindowState = xlMinimized
ActiveWindow.Close

Application.DisplayAlerts = True
End Sub