Excel - vraag over code

[Fred_H]

Hallo
De standaard map om op te slaan in Excel is bij ons (5 medewerkers) ;
k:\naam-medewerker\excel.
Nu is er een nieuw excel formulier "aanvraag ziekteverlof" waarop een command-knop op zit om het formulier op te slaan.
Het zou opgeslagen moeten worden in de map "ziekmeldingen".
Weet iemand hoe ik onderstaande code moet aanpassen zodat het bij iedereen in zijn "excel" map wordt opgeslagen in de subdirectorie "ziekmeldingen" . Als de subdirectorie "ziekmeldingen" nog niet bestaat, dan maken.

De huidige code is;
Private Sub CommandButton1_Click()
ThisWorkbook.SaveAs Range("n1")
End Sub


Alvast hééél erg bedankt
Fred

 

[Wigi]

Fred

Als in A1 de naam van de werknemer staat, en in A2 de naam van het bestand, dan werkt dit:

Private Sub CommandButton1_Click()
Dim fn As String, folder As String
fn = Range("A2") & ".xls"
folder = "K:\" & Range("A1") & "\" & "Ziekmeldingen"
On Error Resume Next
MkDir folder
ThisWorkbook.SaveAs folder & "\" & fn
End Sub

Wigi