Insérer un fichier son ds code vba
Timemy
-
Timemy -
Timemy -
Bonjour,
voilà je re poste en espérant que quelqu'un pourra me répondre !
voilà un code pour un chrono.
je ne sais pas comment intégrer un fichier son mp3, qui se déclencherais à la fin du décompte.
que doit-on écrire ?
n'hésitez pas si vous avez besoin de renseignements complémentaires
merci en tout cas pour qui voudrait bien m'aider !
Public Temps As Date
Public Durée As Date
Public Sub Chrono()
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Chrono"
Sheets("Feuil1").Range("B2").Value = Time
Sheets("Feuil1").Range("F2").Value = Durée
Durée = Durée - TimeValue("00:00:01")
If Durée < 0 Then
Call StopChrono
Response = MsgBox("Fin de Match !", vbCritical)
End If
End Sub
Public Sub StopChrono()
On Error Resume Next
Application.OnTime Temps, "Chrono", , False
End Sub
voilà je re poste en espérant que quelqu'un pourra me répondre !
voilà un code pour un chrono.
je ne sais pas comment intégrer un fichier son mp3, qui se déclencherais à la fin du décompte.
que doit-on écrire ?
n'hésitez pas si vous avez besoin de renseignements complémentaires
merci en tout cas pour qui voudrait bien m'aider !
Public Temps As Date
Public Durée As Date
Public Sub Chrono()
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Chrono"
Sheets("Feuil1").Range("B2").Value = Time
Sheets("Feuil1").Range("F2").Value = Durée
Durée = Durée - TimeValue("00:00:01")
If Durée < 0 Then
Call StopChrono
Response = MsgBox("Fin de Match !", vbCritical)
End If
End Sub
Public Sub StopChrono()
On Error Resume Next
Application.OnTime Temps, "Chrono", , False
End Sub
2 réponses
-
-
Bonjour,
merci d'avoir répondu..........mais cela ne correspond pas exactement à ce que je cherche.
je m'explique : j'ai une application avec un chrono programmé en vba (dont j'ai fourni le code).
je peux programmer le temps qui doit s'écouler et si par exemple je programme 5 minutes, je voudrais (si possible) qu'au bout des 5 minutes le gong retentisse., comme avertissement sonore de fin.
dans mon code je ne sais pas comment l'intégrer ?
merci de me donner encore un petit coup de main.
A+
