Excel - Abrir archivo desde una Red

   
Vista:

Abrir archivo desde una Red

Publicado por Dario (88 intervenciones) el 28/08/2014 02:29:00
Estimados:
En una Hoja he puesto un Boton de Comandos el cual me perite habrir otro archivo de excel.
La codificación es la siguiente:
----------------------------------------------------------------------------------------------------------------
'Crea la variable para la ruta especifica en donde se encuentra el archivo a abrir
RutaClienteAbrir = Range("I8").Value

'Abre el archivo del cliente seleccionado
Workbooks.Open Filename:=RutaClienteAbrir
----------------------------------------------------------------------------------------------------------------

La celda I8 contiene la siguiente formula: C:\Sipec\Libro1.xlsm

El boton de comando funciona a la perfeccion si es que abro el archivo desde la misma maquina en donde se encuentra pero si lo hago desde otra pc el mismo me da el error de que la ruta no existe.
Cabe aclarar que desde otra pc la ruta es Z:\Sipec\Libro1.xlsm.

Que solucion puedo tener o como tendria que ser la codificacion del boton de comandos para abrir un archivo desde en red.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Abrir archivo desde una Red

Publicado por Antoni Masana (264 intervenciones) el 28/08/2014 07:53:38
El problema es muy evidente y la solución muy simple o tan compleja como desees

- Solución 1 - Prioridad en el archivo Local

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
    ' ---&--- Crea la variable para la ruta especifica en donde se encuentra el archivo a abrir
 
    RutaClienteAbrir = Range("I8").Value
 
    ' ---&--- Abre el archivo del cliente seleccionado
 
    IF DIR(RutaClienteAbrir) = "" then
       RutaClienteAbrir = "Z" + mid$(RutaClienteAbrir,2)
    End If
 
    Workbooks.Open Filename:=RutaClienteAbrir
End Sub

- Solución 2 - Prioridad en el archivo en Red

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
    ' ---&--- Crea la variable para la ruta especifica en donde se encuentra el archivo a abrir
 
    RutaClienteAbrir = "Z" + mid$(Range("I8").Value,2)
 
    ' ---&--- Abre el archivo del cliente seleccionado
 
    IF DIR(RutaClienteAbrir) = "" then
       RutaClienteAbrir = "C" + mid$(RutaClienteAbrir,2)
    End If
 
    Workbooks.Open Filename:=RutaClienteAbrir
End Sub

Si quiere hacerlo mejor tendrías que verificar si esta la letra del disco en el contenido de la celda

Es decir, si hay escrito esto C:\Sipec\Libro1.xlsm o esto \Sipec\Libro1.xlsm

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Abrir archivo desde una Red

Publicado por Jonathan legarda are.power@hotmail.com (68 intervenciones) el 28/08/2014 23:53:27
ya le dieron al parecer una solución, ademas el proble es muy evidente y la aplicación te lo esta diciendo y todo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Abrir archivo desde una Red

Publicado por Dario (88 intervenciones) el 29/08/2014 17:59:17
Estimado/s: De 10 la respuetas. funciona a la perfección.
Muchas gracias

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar