Estimados todos,
Tengo el siguiente código en ThisWorkbook
Private Sub Workbook_Open()
Dim Fila As Byte
Dim Dias As Variant
Dias = Array("DOM", "LUN", "MAR", "MIE", "JUE", "VIE", "SAB")
NomDias = Dias(Weekday(Date, vbMonday))
With Worksheets(NomDias)
.ScrollArea = "A1:D100"
.Columns("E:IV").Hidden = True
.Rows("101:65536").Hidden = True
End With
With Worksheets(NomDias)
For Fila = 2 To 31
Application.OnTime .Range("a" & Fila), "'WAVs_programados""" & Fila
& """" & NomDias & " '"
Next
End With
End Sub
y también tengo un MODULO
Option Explicit
Public Declare Function TocarMusicaWAV Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal Archivo As String, ByVal Estado As Long) As Long
Sub TocarMusica()
Dim EsteArchivo As String
'TocarMusicaWAV EsteArchivo, 0
'MsgBox "La macro estuvo detenida ""mientras""la música ""tocaba""."
TocarMusicaWAV EsteArchivo, 1
MsgBox "La música está tocando, y la macro ... ""ejecutando"
End Sub
Sub WAVs_programados(ByVal Fila As Byte, NomDias As String)
Dim EsteArchivo As String
EsteArchivo = Worksheets(NomDias).Range("b" & Fila)
TocarMusicaWAV EsteArchivo, 1
MsgBox "La música está tocando, y la macro ... ""ejecutando"
End Sub
Me marca error, pero ya he intentado corregirlo, y creo que mi error está
en los parámteros, pero no le hallo, les agredecería mil si me pueden ayudar.
Si se activa el procedimiento a la hora que indico pero marca error, en los
parámetros.
Saludos,
Lyna
Leer las respuestas