enregistrement automatique sur serveur

M

Mefi

Guest
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

XLDnaute Junior
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)

Code:
vPath = ActiveWorkbook.Path


Salutations
Eric

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

Discussions similaires

Réponses
6
Affichages
202
Réponses
2
Affichages
252