Ouverture d'un fichier sur un réseau d'entreprise

[Pascal]

Bonsoir à tout le forum,

Je commence à développer de plus en plus de petites applications Excel au sein de mon entreprise en grande partie grâce aux réponses trouvées dans ce cher forum.

Or je suis confronté à un problème de diffusion de mes macros :
Certaines macros doivent ouvrir un fichiers (toujours le même) qui se trouvent sur le serveur de l’entreprise et je suis obligé sur chaque poste de modifier le chemin d’accès de ce fichier car les utilisateurs ont connecté le lecteur-réseau sur des lettres différentes et sur une profondeur du chemin différente

Ma question est la suivante : comment faire en sorte que le chemin stipulé dans la macro récupère le fichier en question à tous les coups.

Merci par avance pour votre précieuse aide
Pascal

 

[Rai]

Bonjour,

Une solution pourrait être de localiser le fichier une première fois, puis de stocker son emplacement dans la base de registre de la machine :

Pour écrire dans le registre
SaveSetting "MesProjetsExcel", "MaBDD", "Chemin", MonChemin$
Pour lire le registre
MonChemin$=GetSetting ("MesProjetsExcel", "MaBDD", "Chemin")


ca te convient ?


Bonne matinée

Rai

 

[Abel]

Bonjour Pascal,

A la louche je verrais trois solutions :

1 - Dans les macros, utilise la méthode GetOpenFilename qui ouvre la boite "Fichier/Ouvrir". On peut récupérer ainsi le chemin et le nom du fichier qui peuvent être réutilisés dans les procédures.
Cela implique que les utilisateurs doivent faire leurs cheminements.

2 - dans les macros, reprends le chemin complet, depuis le nom du domaine.
Cela t'affranchira du mappage qui est différent sur chaque poste.

3 - Plus long : crée un batch sur ton serveur qui mappera un lecteur logique utilisé par personne (si c'est possible) pour éviter les conflits. Ce batch pourra être appelé par le login script des utilisateurs.
S'il y en a déjà un, fait le dedans.
S'il n'y en a pas, ben il te faudra le créer (ou ton administrateur si ce n'est pas toi).


Bon courage.

Abel.

 

[Abel]

Re,

Oups, pardon Rai. Pas rafraichi.

Intéressant. Je ne connaissais pas cette solution. A retenir, donc.

Abel.

 

[Pascal76]

Bonjour

une solution peut-être

au lieu d'écrire

ChDir "S:\classeur"
Workbooks.Open Filename:= _
"S:\classeur\Fichier.xls"

où S: représente le partage de ton nom de serveur
tu peux ecrire

ChDir "\\nom_serveur\classeur"
Workbooks.Open Filename:= _
"\\nom_serveur\classeur\Fichier.xls"

Pascal

 

[Abel]

Re,

Heu ... oui Palscal76.

Dans ma deuxième solution, je m'ai gourré ...
Pas le nom du domaine mais le nom du serveur.

Abel.

 

[Pascal76]

re

oups Abel excuses j'avais lu peut-être trop en diagonale ta réponse et j'avais pas vu que le point 2 c'était cette solution.

Pascal

 

[Abel]

Re,

Pô d'mal.
Cé pour moua (Arf !).

Abel.

 

[Pascal]

Merci beaucoup Rai, Abel, Pascal76 pour votre aide.

Je vais essayer de mettre en pratique vos solutions.

Bonne fin de journée à tous le forum et merci encore.
Pascal