clave de red

hola, Fredy !

una aplicacion en excel cuando abre ncesita copiar un archivo que esta en red.
al tratar de conectarse a z:/ sale error... porque la conexion requiere de una contrasena.
la cual en excel no se ha definido (no se donde debe definirse)
lo que hago... es abrir el explorador y conectarme el disco z:/ (en el explorador me piede la clave)
... vuelvo a ejecutar el archivo y... si funciona la copia del archivo que esta en red...
como puedo evitar este error .. es decir como le doy la clave de red por VBA este es el codigo que estoy utilizando
sub copiar
ARCHIVOFUENTE = "z:\GEOLOGIA\INYECCIONES\BASE DE DATOS\Base de datos1.mdb"
archivoDESTINO = "C:\Temp\Base de datos1.mdb"
FileCopy ARCHIVOFUENTE, archivoDESTINO
end sub

una (posible) alternativa es usando el metodo "sendkeys", que tiene la (des)ventaja de que:
al combinarse con instrucciones "en secuencia" el metodo se ejecutaria solamente:
a) al terminarse la ejecucion de todas las instrucciones en el procedimiento que lo contiene...
b) en el momento en que "salta" algun dialogo que demande la interaccion con el usario

proablemente habria que dar un tiempo "de espera", segun lo que tarde en mostrarse el dialogo que pide la contrasena
y ajustar la secuencia de teclas (p.e.) si la solicitud de contrasena tiene algun boton al que debiera moverse el foco)
(y tampoco es lo mas confiable que se podria usar) -???-

asumiendo que al mostrarse el dialgo puedes "pulsar" simplemente la clave y el {enter} -???-
prueba con la siguiente instruccion ANTES de la instrucion "FileCopy ..." de tu macro:

application.sendkeys "aqui tu clave~"

el signo ~ representa el {enter} del teclado, o puedes cambiar a:
application.sendkeys "aqui tu clave{enter}"

o puedes simular "pulsar" la tecla {tab} y un espacio (p.e. poner el foco en algun boton y "clicarlo" con la barra espaciadora)
application.sendkeys "aqui tu clae{tab} "

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.