enregistrement automatique sur serveur

Bonjour,

je voudrais pouvoir enregistrer automatiquement mes devis dans un dossier sur notre serveur mais je n'y arrive pas, voila deja ce que j'ai

Sub Saved()
Dim N As String
Dim MA As String
Dim No As String

N = Range('NomClient')
MA = Range('NoDevis1')
No = Range('NoDevis2')

ChDrive ('c')
ChDir '\\\\Serveur\\mac-pc\\XXL DOSSIERS\\Maintenant\\Devis\\'
'Changer le nom du répertoire s'il y a lieu!
ActiveWorkbook.SaveAs Filename:=(N) & ' ' & (MA) & (No)
End Sub

sur mon bouton 'enregistrer'

ca dois coincer au niveau de ChDrive mais je ne sais pas ce qu'il faut mettre comme lettre car notre serveur n'a pas de lettre ....