my file doesn't save on the server

[jforce]

my file doesn't save on the server:

Sub Mac()

Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim ts As Worksheet
Dim ruta As String, DocName As String
Set ts = ThisWorkbook.Sheets("Mac")
ruta = "\ssnyvolumes.ny.publicisgroupe.net\Share1\North America\USA\2022\VR tasks\"
DocName = "test_template.docx"

Set objWord = New Word.Application
Set objDoc = objWord.Documents.Open(ruta & DocName)
objWord.Visible = True
With objDoc
.Bookmarks("nombre").Range.Font.Bold = True
.Bookmarks("fecha").Range.Font.Bold = True
.Bookmarks("monto").Range.Font.Bold = True
.Bookmarks("nombre").Range.Text = ts.Range("c8").Text
.Bookmarks("fecha").Range.Text = ts.Range("d8").Text
.Bookmarks("monto").Range.Text = ts.Range("e8").Text
End With
DocName = "test_template.docx - " & ts.Range("d8").Text
objDoc.SaveAs2 Filename:=ruta & DocName
objDoc.Close
objWord.Quit
MsgBox "¡New Report Done", vbInformation


End Sub

 

[rollis13]

Shouldn't this:
ruta = "\ssnyvolumes.ny.publicisgroupe.net\Share1\North America\USA\2022\VR tasks\"
be (note the double backslash):
ruta = "\\ssnyvolumes.ny.publicisgroupe.net\Share1\North America\USA\2022\VR tasks\"
since it's an UNC address.