How To Save File With User Enter path with Input BOX

[AT BABU]

Hello Every one


Dim T as Variant
T = InputBox("Enter Your CORP ID")

ChDir "\\Client\C$\Users\T\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"\\Client\C$\Users\T\Desktop\From Application to MIS_V.0.1.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

I have above code but code notrun , I get Run Time Error 76 Path not found

 

[Grand]

A way to get the path of the file is to place a file in that directory and then right click on it, then click "properties". Under location you can see the path. Check if that is the same.

 

[Fluff]

Hi & welcome to MrExcel
Try

Dim T As Variant
Dim Pth As String
T = InputBox("Enter Your CORP ID")
Pth = "\\Client\C$\Users\" & T & "\Desktop\"

ActiveWorkbook.SaveAs filename:= _
Pth & "From Application to MIS_V.0.1.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[AT BABU]

Thank you bro

 

[Fluff]

You're welcome