Emettre un son Pendant une macro

Bonsoir Cocyttehier, Eriic

Essaies ces macros avec possibité d'arret

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

'Robert Dezan, mpfe (OK)
Sub Jouer_la_musique()
DoEvents
' paramètres de la musique
Path_musique = ThisWorkbook.Path & "\"
Musique_Nom = "bailey.mid"
' jouer la musique
Call Musique_jouer(Path_musique + Musique_Nom)
End Sub

Public Function Musique_jouer(ByVal Fichier As String, _
Optional ByVal Alias As Variant) As Boolean
Dim nRet As Long
If IsMissing(Alias) Then Alias = "tune"
' stoppe la musique en cours d'exécution éventuellement
Call Musique_Stopper(Alias)
If mciSendString("open " & Fichier$ & " alias " & Alias, vbNullString, 0, 0) = 0 Then
nRet = mciSendString("play " & Alias & " from 0", vbNullString, 0, 0)
Musique_jouer = (nRet = 0)
Else
MsgBox "Impossible de jouer la musique." + vbLf + vbLf + "Problème de fichier ou de compatibilité"
Musique_Stopper
End If
End Function

Public Sub Musique_Stopper(Optional ByVal Alias As Variant)
If IsMissing(Alias) Then Alias = "tune"
Call mciSendString("stop " & Alias, vbNullString, 0, 0)
Call mciSendString("close " & Alias, vbNullString, 0, 0)
End Sub

Bonsoir,
C'est pour une musique d'attente 'patientez, le traitement s'effectue' !

Bonsoir,

il me semblait bien avoir vu un truc là dessus mais difficile de me rappeler où...
voir Lire des MP3 depuis excel sur http://www.excelabo.net/excel/sortirdiv.php

eric