trouver la meme adresse reseaux pour sauvegarder un fichier a partir de plusieurs ordi

bonjour,

je voudrais s'avoir si il est possible a partir d'un code vba de retrouver l'adresse ou ce trouve un fichier ouvert.

car je dois automatisé une sauvegarde d'un programme excel avec vba
met comme le fichier est sur un serveur aucun poste ne possede la meme source de départ.
soit T:\ ou D:\ ou Z:\.......
donc pour trouver le bon disques en fontion des ordi pas facile
normalent on met \\nomdureseaux\nomdudique et plus besoin des T:\ ou D:\ ou Z:\.......

mes avec VBA sa marche pas snifff.

A+ snebe45

Bonjour
pas facile de comprendre et plusieurs questions

- pb fichiers ouvert : je ne vois pas
- pb mapper un disque réseau : en VBA pas si facile, j'ai essayé puis je l'ai fait dans un fichier de commande DOS en faisant les net Use successif en glisasnt sur les connexions déjà établies pour être valable quelque soit le poste de mon réseau

en faite si le fichier n'est pas ouvert c'est pas grave

je veut juste retrouver l'adresse en fonction de que le disque ou se trouve le programme soit D C T ou Z.
afin de pouvoir enregistrer le fichier excel touour au meme endroit.
et je ne peut pas utiliser activeworkbook.saveas
Car des fichier classer dans autres repertoire doivent etre enregistrer sous la 1er adresse.

Merci

Snebe45

le chemin \\serveur\partage\fichier  doit fonctionner (heureusement)

ton code est donc en cause. quel est-il ?

je les fais avec l'enregistreur de macro alors bon normalement c bon

donc la je suis un perdu merci quand meme

snebe45

montre nous donc le code, pour que l'on puisse tenter de t'aider

le voici

    ActiveWorkbook.SaveAs Filename:= _
        "\\titane\enml\serveur\partager\monfichierexcel.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

si tu trouve la solution sa serait cool
mes j'ai essayer faire enregitrer sous en passant par le serveur et la j'ai un message d'erreur qui me dit que mon dossier doit etre en lecture seul.....

donc voila

snebe45

tu as bien sur accès en écriture, dans ce répertoire ?

oui g tous les droit sur le fichier et dans le dossier contenant le fichier

tu peux raccourcir le code :

ActiveWorkbook.SaveAs    "\\titane\enml\serveur\partager\monfichierexcel.xls"