macro to save as using environ

[tonywatsonhelp]

Hi everyone,

i want to save to a shared folder call "quote" in another folder called "saves"

i need a macro to save as environ/quotes/saves then the document name in D7 and as xlsm

how do i dop this?

please

thanks

Tony

 

[severynm]

Is the shared folder in SharePoint or local network?

It sounds like your files are in a local network. Something like this?

Private Sub SaveData()
    Dim filePath As String
    Dim fileName As String
    
    fileName = SheetName.Range("D7").Value
    filePath = "FolderPathHere\" & fileName & ".xlsm"
    ThisWorkbook.SaveAs filePath
End Sub

 

[tonywatsonhelp]

Hi Severynm,
its in a one drive folder
Thanks

 

[severynm]

Did you have any success adapting the above code to your use case?