Discussion :

[Dapangma]

Bonjour,

je cherche un moyen de gérer par code VBA les environnements de dev/recette/prod. J'ai un mdb qui accède à des bases différentes selon ces environnements.
J'ai essayé de récupérer le chemin courant mais le résultat est fait avec le lecteur réseau.
Ex : msgbox CurDir donne Y:\maBase.
Il me faudrait le chemin complet : \\serveur\répertoire\maBase. Rien ne me garantit que l'utilisateur final aura la même lettre.

Ya-t-il une solution ou un moyen de contournement ?

Merci d'avance.

[Jean-Philippe André]

salut,
en faisant un clic droit sur le poste de travail>Mapper un lecteur reseau tu auras le chemin reseau des lecteurs mappes.

Le chemin complet sera identique (sous toute vraisemblance) sur les autres postes.

[Dapangma]

J'ai du mal m'exprimer.
Disons que Y est la lettre de mon serveur de dev, Z la lettre en prod.
Si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
monDir = CurDir
if monDir = "\\ServeurDeProd\maBase"
   msgBox "Production !"
else if monDir = "\\ServeurDeDev\maBase"
  msgBox "Developpement"
else
  msgBox "KO !"

le résultat sera toujours KO.

Je ne peux pas me baser sur la lettre du lecteur puisque rien ne me garantit que les utilisateurs en production auront mappé ce répertoire avec cette lettre (si ça tombe toujours juste je joue au Loto ).
Si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
monDir = CurDir
if monDir = "Z:\maBase"
   msgBox "Production !"
else if monDir = "Y:\maBase"
  msgBox "Developpement"
else
  msgBox "KO !"

le résultat sera toujours KO.

Il faudrait que je mette dans monDir le répertoire complet. Ou alors procéder complètement autrement. Dans les 2 cas, je ne vois pas comment.

[Jean-Philippe André]

Je m'y serais pris autrement pour gerer ca.
Deja les tables auraient des noms bien significatifs (du style BDD_PRD_NMTABLE ou BDD_NMTABLE_PRD)

tu cherches a savoir le nom de la base pour les tables, non ? en passant par la chaine de connection de la table, tu trouves la solution a au moins une partie de ton probleme, non ?

[Dapangma]

Merci de passer du temps pour mon probleme.

Non justement, je ne cherche pas à quelle base mon appli est connectée mais à déterminer à quelle base elle doit se connecter (base de production ou base de dev ?).
Je comptais me baser sur un test du répertoire de la CurrentDB pour savoir si l'utilisateur est sur le répertoire de prod (auquel cas je génère la connection string pour la base de prod) ou sur le répertoire de dev.
Et à ce moment-là je pourrai livrer l'appli en prod sans modifier en rien la version de dev, ce qu'une procédure de mise en prod bien faite devrait toujours prévoir.

[Jean-Philippe André]

Mouais, mais si l'utilisateur met la base sur son disque perso

Soit tu geres une liste fixee dans une table des repertoires dans lesquels tu prends la base de prod et tous les autres la base de dev, soit je vois difficilement une solution sans plantage

[Dapangma]

La nuit porte conseil...
Je vais livrer l'appli en .mde, comme ça le nom en prod sera du style 'maBase.mde', alors qu'en dev elle sera du style 'maBase.mdb'. Je peux faire mon test avec CurrentProject.Name.

Sinon j'aurais pu appeler l'appli de dev 'maBaseDev' et la renommer à la mise en prod.

Je n'ai pas trouvé mieux.