Tiene que ser una tonteria, pero no encuentro la solucion !!!
Hola a todos !
No hay manera de conseguir ejecutar lo que quiero, os cuento.
Tengo una hoja de Excel de nombre "Inicio.xls" que no es mas que un conjunto de etiquetas que al cliquear sobre una de ellas te abre un fichero nuevo. Para una de las etiquetas tengo el siguiente codigo:
Private Sub Label11_Click()
Dim MiRuta as string
Dim Destino as String
MiRuta= Application.ActiveWorkBook.Path
Destino = (MiRuta & "Originales 4 Suministros")
ChDir Destino
WorkBooks.Open("4A Pedido Internacional.xls")
ActiveWorkBook.RunAutoMacros xlAutoOpen
End Sub
La intencion es que me abra el fichero "Pedidos Internacional.xls", y lo hace correctamente, pero este fichero tiene un modulo con el procedimiento Auto_Open desde el que abro un formulario de nombre "Ped_Int" con la instruccion: Ped_Int.Show
Pero aunque el fichero si que lo abre, el formulario no aparece por mas que lo intento.
Tiene que ser una tonteria de nada pero no la encuentro.
Muchisimas gracias
No hay manera de conseguir ejecutar lo que quiero, os cuento.
Tengo una hoja de Excel de nombre "Inicio.xls" que no es mas que un conjunto de etiquetas que al cliquear sobre una de ellas te abre un fichero nuevo. Para una de las etiquetas tengo el siguiente codigo:
Private Sub Label11_Click()
Dim MiRuta as string
Dim Destino as String
MiRuta= Application.ActiveWorkBook.Path
Destino = (MiRuta & "Originales 4 Suministros")
ChDir Destino
WorkBooks.Open("4A Pedido Internacional.xls")
ActiveWorkBook.RunAutoMacros xlAutoOpen
End Sub
La intencion es que me abra el fichero "Pedidos Internacional.xls", y lo hace correctamente, pero este fichero tiene un modulo con el procedimiento Auto_Open desde el que abro un formulario de nombre "Ped_Int" con la instruccion: Ped_Int.Show
Pero aunque el fichero si que lo abre, el formulario no aparece por mas que lo intento.
Tiene que ser una tonteria de nada pero no la encuentro.
Muchisimas gracias
Solucionado...
Ignoro el motivo, pero un pequeño cambio en la ortografia de la sentencia me ha permitido que el formulario se abra normalmente... Os lo adjunto por si a alguien le resulta util.
WorkBooks.Open("4A Pedido_ Internacional.xls").RunAutoMacros xlAutoOpen
Gracias de todas maneras
Ignoro el motivo, pero un pequeño cambio en la ortografia de la sentencia me ha permitido que el formulario se abra normalmente... Os lo adjunto por si a alguien le resulta util.
WorkBooks.Open("4A Pedido_ Internacional.xls").RunAutoMacros xlAutoOpen
Gracias de todas maneras