VBA - Gem Som automatisk

Hej derude

Jeg har set mig blind på hvordan jeg får vba i excel til at gemme en .xlsm fil med det åbne worksheet, som et bestemt navn som tager udgangspunkt i 2 cellers værdier samt dagens dato.
Jeg har fået opretning af mapper til at virke, så det er altså "kun" selve "gem som" proceduren jeg mangler:

Først er hvad der er defineret:¨

Dim fso
Dim fol As String
Dim file As String
Dim Ddata As Integer
Dim Dyear As Integer
Dim Dname As String
Dim Mylokale As String
Dim Myinitial As String
myLokale = Worksheets("RAPPORT").Range("K4")
myInitial = Worksheets("RAPPORT").Range("K8")
Dyear = Format(Now, "yyyy")
Ddate = Format(Now, "yyyymmdd")
Dname = Ddate & "_" & myLokale & "_" & myInitial

Dette kan jeg ikke se hvordan jeg skal få til at virke:
         
    file = "I:\ & Dyear & " \ " & Ddate & " \ " & Dname.xlsm"
        Set fso = CreateObject("Scripting.FilesystemObject")
            If Not fso.FileExist(file) Then
            ActiveWorkbook.SaveAs "I:\ & Dyear & " \ " & Ddate & " \ " & Dname.xlsm", FileFormat:=52
       
        End If