enregistrement automatique sur serveur

[Mefi]

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 ....

 

[guitarde]

Si tu exécute la ligne suivante sur un fichier qui est sauvegardé sur ce serveur, celle-ci pourrait te donner le path recherché.

(Note: Je connais rien au Mac)

vPath = ActiveWorkbook.Path

Salutations
Eric

Message édité par: guitarde, à: 17/02/2006 18:19