openen van hetzelfde bestand op andere server

[bjornesto]

ik heb een code die prima werkt

ik druk op een opdrachtknop en dan gaat deze automatisch open

    Workbooks.Open Filename:="P:\SHARE\Telefoonlijst.xls"
    Sheets("zonder hyperlinks").Select
    Unload Links_to_other_files

Nu als er nieuwe mensen komen werken dan krijgen zij niet meteen toegang tot de server
zij krijgen toegang tot een andere server die paralel loopt met die hierboven beschreven staat.

Hoe kan ik dit in de code verwerken dat de computer als die de P:\SHARE\Telefoonlijst.xls schijf niet vind hij deze opent P:\SHARE\Telefoonlijst.xls

 

[pixcel]

Kwestie van opnieuw inloggen?
Als het goed is heeft de systeembeheerder op d-day in het login script de P: mapping aangepast van \\server1 naar \\server2.
Als je toch wilt zoeken op \\server1 zul je het volledige pad moeten kennen naar de SHARE map.
Even overleggen met je netwerkbeheerder?

 

[bjornesto]

Nee ze moeten dit eerst aanvragen en dan passen ze dit pas toe.

Daarmee dat ik vroeg om de code aan te passen.

path is hetvolgende
R:\SECURITY\SHARE\Telefoonlijst.xls

Dus als hij het op de P niet vind moet hij het openen via de R: schijf

 

[snb]

Het is vreemd een organisatorische fout (inactief systeembeheer) op te lossen met VBA

On error resume next
Workbooks.Open "P:\SHARE\Telefoonlijst.xls"
if err.number<>0 then Workbooks.Open "R:\SECURITY\SHARE\Telefoonlijst.xls"

 

[bjornesto]

Ik weet dat ook maar ja ik kan er spijtig genoeg niets aan doen

Er zijn hier wel meer dingen inefficient