Même module mais serveur différent

Question

Bonjour,

J'utilise Access depuis prêt de 6 mois, et je commence a automatiser certaines taches.
Cependant j'ai du mal sur un point et qui est non négligeable. Mon chef à un chemin d'acces différent du miens, plus précisément la lettre change.
Quand on travail sur le module, il faut à chaque fois changer les liaisons ce qui est assez long.. savez vous comment le gérer?
Il y a t il un moyen de pallier à ce problème ?
Je sais pas comment cela serait possible, peut etre dans les parametres d access, une macro en lui disant si tel user aller dans tel dossier sinon l'autre..


ps : Nous avons demandé à notre service informatique il est impossible de changer la lettre du serveur.

Pour moi
R:\CS STATS\Litiges\Litiges Agences

Pour mon chef
G:\CS STATS\Litiges\Litiges Agences


En vous remerciant par avance

Anthooooony

4u4me4us · Answer

Tu pourrais procéder comme ce-ci:

Dim path As String
If Dir("R:\CS STATS\Litiges\Litiges Agences", vbDirectory) <> "" Then path = "R:\CS STATS\Litiges\Litiges Agences "
If Dir("G:\CS STATS\Litiges\Litiges Agences", vbDirectory) = "" Then path = "G:\CS STATS\Litiges\Litiges Agences "
If path = "" Then MsgBox "pas trouvé"


Puis remplacer dans tant code tout les 

"R:\CS STATS\Litiges\Litiges Agences"
ou
"G:\CS STATS\Litiges\Litiges Agences"

par la variable path.

anthooooony · Answer

Bonjour

Merci de ta réponse.

je viens d'essayer mais j'ai toujours le même problème.

En faite le problème vient que lorsque deux modules access sont en liaison.
J'ai crée un module sur les deux modules en récupérant ton code, mais quand mon chef ouvre une table ou requete d'un module il met toujours erreur de chemin..

peut etre ai je mal utilisé ton code...

Encore merci de ton aide

anthooooony

4u4me4us · Answer

Il y a le message "pas trouvé" ou non ?

Si oui il y a une erreur dans le string du path, là path "R:\CS STATS\Litiges\Litiges Agences " ou là path "G:\CS STATS\Litiges\Litiges Agences "

Si non tu n as peut être remplacer partout les string "R:\CS STATS\Litiges\Litiges Agences " ou  "G:\CS STATS\Litiges\Litiges Agences" par path?

Note que si tu veux utiliser des fichier dans le dossier Litiges Agences il faut ajouter path&"
om du fichier.extention"

anthooooony · Answer

Bonjour,

Il n'y a pas de message. De mon côté le module s'ouvre bien,je peux accéder aux tables etc quand mon chef l'ouvre il dit chemin inexistant.

Je m y suis surement mal pris!
j'ai été dans accèss, ouverture vba, création module et j'ai copié tout bêtement ton code.

En effet je veux utiliser deux fichiers access dans l'emplacement R:\CS STATS\Litiges\Litiges Agences " mais comme il a une liaison avec un autre fichier dans ce même répertoire il bug.

Pour être sincère je n'ai pas tout compris le path et les string?

Anthooooony

c148270 · Answer

Bonjour
Si les tables liées sont sur un serveur, ce que j'ai cru comprendre,
change les lesttres par \nom du serveur\la suite

bonne journée

4u4me4us · Answer

Si ton dossier est dans un serveur c148270 a raison. Dans ce cas supprime le code que je t envoyer et change "R:\CS STATS\Litiges\Litiges Agences", vbDirectory) <> "" Then path = "R:\CS STATS\Litiges\Litiges Agences " If Dir("G:\CS STATS\Litiges\Litiges Agences" par "\nom du serveur\CS STATS\Litiges\Litiges Agences", vbDirectory) <> "" Then path = "R:\CS STATS\Litiges\Litiges Agences " If Dir("G:\CS STATS\Litiges\Litiges Agences" ideme pour le G:

Même module mais serveur différent

6 réponses

Votre réponse

Discussions similaires