trouver la meme adresse reseaux pour sauvegarder un fichier a partir de plusieurRésolu

Question

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
omdudique et plus besoin des T:\ ou D:\ ou Z:\.......

mes avec VBA sa marche pas snifff.

A+ snebe45

Renfield · Accepted Answer

le chemin d'accès et vérifié ? le repertoire final existe bien ?

cs_loulou69 · Answer

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

snebe45 · Answer

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

Renfield · Answer

le chemin \serveur\partage\fichier  doit fonctionner (heureusement)

ton code est donc en cause. quel est-il ?

snebe45 · Answer

je les fais avec l'enregistreur de macro alors bon normalement c bon

donc la je suis un perdu merci quand meme

snebe45

Renfield · Answer

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

snebe45 · Answer

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

Renfield · Answer

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

snebe45 · Answer

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

Renfield · Answer

tu peux raccourcir le code :

 ActiveWorkbook.SaveAs    "\titane\enml\serveur\partager\monfichierexcel.xls"

snebe45 · Answer

sa ne marche pas non plus meme erreur

il met qu'il n'arrive pas a acceder au fichier

snebe45 · Answer

j'ai trouvé une solution je demande de definir le lecteur a l'ouverture du dossier c pas top mais bon je pense que g pas d'autre moyen.

merci beaucoup a loulou69 et renfield

A+
snebe45

Trouver la meme adresse reseaux pour sauvegarder un fichier a partir de plusieur

12 réponses

Votre réponse

Discussions similaires