Pasar a otra línea (x) cuando no se encuentra la ruta o la ruta tiene un error.

[lphant]

Buenos días a tod@s;

Esta línea la he usado anteriormente y creo que funcionaba pero hoy al ponerla en una nueva macro me da el siguiente error “Error 52 en tiempo de ejecución, nombre o  número de archivo incorrecto “.

Por qué puede ser??.

Que debo de usar si la ruta de un servidor a caído??.

Gracias y un saludo,

Ejemplo 1.xlsm

[Invitado FernandoML]

Hola lphant:

Por lo que he podido observar en tu código una de las líneas es:

Dim Msgbox as String

Msgbox es un comando por lo que te saldrá un error de compilación más tarde o mas temprano.

 

Correcciones

Option Explicit

Sub Copiar()

   On Local Error Resume Next '<--- Si localiza un error en el código sigue ejecutandose, ojo debes controlar los errores.

   Dim Ruta_Estado As String
   Dim MsgBox As String

   Ruta_Estado = Worksheets("Hoja1").Range("D1").Value

   If Dir(Ruta_Estado) = "" Then

      msg = msgbox("La ruta indicada no existe, contacte con el Administrador del Sistema para repararla.")

      exit sub

   Else

      msg = msgbox("La ruta indicada SI existe")

   End If

 

End Sub

 

 

 

 

[lphant]

Hace 16 horas, FernandoML dijo:

Hola lphant:

Por lo que he podido observar en tu código una de las líneas es:

Dim Msgbox as String

Msgbox es un comando por lo que te saldrá un error de compilación más tarde o mas temprano.

 

Correcciones

Option Explicit

Sub Copiar()

   On Local Error Resume Next '<--- Si localiza un error en el código sigue ejecutandose, ojo debes controlar los errores.

   Dim Ruta_Estado As String
   Dim MsgBox As String

   Ruta_Estado = Worksheets("Hoja1").Range("D1").Value

   If Dir(Ruta_Estado) = "" Then

      msg = msgbox("La ruta indicada no existe, contacte con el Administrador del Sistema para repararla.") 

      exit sub

   Else

      msg = msgbox("La ruta indicada SI existe")

   End If

 

End Sub

 

 

 

 

Buenos dias @fernandoML;

He probado con el cambio que me propones y me sigue dado el mismo error, puede ser por usar excel 2013??, lo pregunto porque antes tenia el xcel 2007 y funcionaba.

un saludo,

[lphant]

Encontre otra opción pero me sigue dando el mismo error

"  If Dir(Ruta_Estado, vbDirectory) = "" Then  "

[ikanni]

Hola Iphant,

Como te ha dicho Fernando el problema está en

Dim Msgbox as String

Lo tienes que quitar

acortandolo un poco el codigo , esto te deberia funcionar

 

Sub Copiar()

   Dim Ruta_Estado As String

   Ruta_Estado = Worksheets("Hoja1").Range("D1").Value

   If Not Dir(Ruta_Estado) = "" Then MsgBox "Existe"

End Sub