Including cell name in file path, mixing hard lines and cells

[Jocelin]

hello friends,
I wish to make it so that my company's commands automatically get saved in the right folder. I made a template for these commands and I wished to be able to include the cell name in my file path like so: https://stackoverflow.com/questions/20978868/vba-macro-to-save-excel-file-using-path-from-cell

But in my case, i'd like to put the cell name in the path like so: " C:\Users\Vincent.BILLY-SURFACE\Desktop\affaires en cours"nameof the cell in A20"\concombre1\orange 2\bite mole"file name"

Please help, this is something my tutor would like for friday, thank you for your help!

 

[Fluff]

Try

Private Sub SaveSpecific_Click()
   Dim filename1 As String
   Dim Pth1 As String, Pth As String
   
   Pth1 = Dir("C:\Users\Vincent.BILLY-SURFACE\Desktop\affaires en cours\" & Range("A20") & "*", vbDirectory)
   Pth = "C:\Users\Vincent.BILLY-SURFACE\Desktop\affaires en cours\" & Pth1 & "\concombre1\orange 2\bite mole\"
   filename1 = Range("F7").Text
   Application.DisplayAlerts = False
   ActiveWorkbook.SaveAs fileName:=Pth & filename1 & ".xlsx", FileFormat:=xlOpenXMLWorkbook
   Application.DisplayAlerts = True
End Sub

 

[Jocelin]

Thanks for the quick response, sadly i am getting the following error:

 

[Fluff]

Which line of code gave that error and what are the exact values of A20 & F7?

 

[Jocelin]

Here you can see F7 and A20, I don't think the "-" is creating a problem, you can also see the line of code creating the error

 

[Fluff]

If you hover the mouse over Pth when you get the error, is the path correct?

 

[Jocelin]

For some reason there is a double slash after "affaires en cours", i even removed a bunch of \ to see if that would fix it and it didn't, I am guessing the double slash is there to allow range 20 to be there in between but its not.

 

[Jocelin]

nevermind! I had miswrote the path, fixed it, thank you for your help!

 

[Fluff]

Glad we could help & thanks for the feedback