vba save as using file path and file name variables

[jaik22]

Dim HINTE As String: HINTE = Sheets("Temp").Range("T18").Value
Dim Pathf As String: Pathf = Sheets("Temp").Range("T15").Value    
ChDir _
        "filep"
    ActiveWorkbook.SaveAs Filename:= _
        "Pathf " & HINTE& ".xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Hi, I am trying to do make a file path as a variable. Before I tried to make the file path as a variable, and just hard code the file path, it had no problem and worked fine. However, somehow after I defined file path as a Pathf variable, codes stopped working. Below is the file path, and Is there any way to resolve this issue?
C:\Users\Jaik\Desktop\RO

Thank you

 

[JoeMo]

Looks like you may have some unwanted spaces after Pathf and unless HINTE begins with a path separator, you are missing that too.
Does this work?

ActiveWorkbook.SaveAs Filename:= _
        "Pathf" & Application.PathSeparator & HINTE & ".xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[JLGWhiz]

remove the quote marks from around Pathf in the SaveAs statement. Variables do not use quote marks. I note that you had a space after the path name. Was that intentional? The value in your cell T15 reference should have a closing backslash (\). If it does not, then your file will be saved with part of the path name in that cell as the leading part of the file name. To avoid that, Use a statement after you initialize the varible like:

If Right(Pathf, 1) <> "\" Then Pathf = Pathf & "\"

That will ensure that your file name does not eat on your path.

 

[jaik22]

Thanks guys for the help. However, I am getting the "Method 'Save as' of object_workbook failed" Below is code that I used

  ActiveWorkbook.SaveAs Filename:= _
        [COLOR=#333333]Pathf [/COLOR]& Application.PathSeparator & [COLOR=#333333]HINTE [/COLOR]& ".xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[JLGWhiz]

Thanks guys for the help. However, I am getting the "Method 'Save as' of object_workbook failed" Below is code that I used

  ActiveWorkbook.SaveAs Filename:= _
        [COLOR=#333333]Pathf [/COLOR]& Application.PathSeparator & [COLOR=#333333]HINTE [/COLOR]& ".xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Try this

If Right(Pathf, 1) <> "\" Then Pathf = Pathf & "\"
ActiveWorkbook.SaveAs Pathf & HINTE & ".xlsm", 52