insérer un fichier son ds code vba Fermé

Question

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



Configuration: Windows 7 / Firefox 3.6.12

michel_m · Answer

Bonsoir,

ci joint exemple mp3 en VBA
https://www.cjoint.com/?0lfxhZ5K5NF

Timemy · Answer

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+

Insérer un fichier son ds code vba

2 réponses

Discussions similaires