Me encuentro actualmente tratando de resolver un error en uno de mis archivos para lo cual recurro a ustedes.
En este archivo realizo una actualización de stock desde Power BI para lo cual tengo configurada una planilla que descarga esta información desde un cubo creado para este fin.
Debido a que la idea es tener el stock instantáneo de un producto "X" la macro que cree para esto es recurrente y se ejecuta al iniciar el archivo y luego cada 10 minutos.
El problema surge debido a que esta macro que copiare al final funciona correctamente en ciertas ubicaciones de un sharepoint empresarial pero no en otras.
Al momento de ejecutarla en estas ubicaciones donde falla, la macro cumple con su objetivo al abrir el archivo, el inconveniente surge en su segunda ejecución entregando como erro el siguiente mensaje
Lo curioso en esta cuestión es que el resto de las macros del archivo (unas 10) siguen funcionando correctamente, y mismo esta si luego del error de arriba se vuelve a ejecutar.
Busque en múltiples foros buscando una solución y no logre hacerlo, por eso cualquier ayuda que puedan brindarme es más que bienvenida
El código en cuestión es el siguiente:
En este archivo realizo una actualización de stock desde Power BI para lo cual tengo configurada una planilla que descarga esta información desde un cubo creado para este fin.
Debido a que la idea es tener el stock instantáneo de un producto "X" la macro que cree para esto es recurrente y se ejecuta al iniciar el archivo y luego cada 10 minutos.
El problema surge debido a que esta macro que copiare al final funciona correctamente en ciertas ubicaciones de un sharepoint empresarial pero no en otras.
Al momento de ejecutarla en estas ubicaciones donde falla, la macro cumple con su objetivo al abrir el archivo, el inconveniente surge en su segunda ejecución entregando como erro el siguiente mensaje
Lo curioso en esta cuestión es que el resto de las macros del archivo (unas 10) siguen funcionando correctamente, y mismo esta si luego del error de arriba se vuelve a ejecutar.
Busque en múltiples foros buscando una solución y no logre hacerlo, por eso cualquier ayuda que puedan brindarme es más que bienvenida
El código en cuestión es el siguiente:
VBA Code:
Declare Function HypMenuVRefresh Lib "HsAddin.dll" () As Long
Sub ActualizarStock()
Dim SheetName As String
Application.ScreenUpdating = False
SheetName = ActiveSheet.Name
Sheets("Stock Inmediato").Select
X = HypMenuVRefresh()
Sheets(SheetName).Select
Tiempo = DateAdd("s", 600, Time)
Application.OnTime EarliestTime:=Tiempo, Procedure:="ActualizarStock"
Application.ScreenUpdating = False
MsgBox "Stock Actualizado", 64
End Sub
