Bonjour Galopin01, 78Chris, Eric Kergress,
Eh ben... pour un dinosaure, tu laisses tomber rapidement...
Déjà voir ce lien > Sonothèque
Puis le code VBA pour jouer le(s) son(s) au format Wav.
Sub JoueSon()
Dim MonWav As String
' Au choix et adapter selon chemin perso
'MonWav = "C:\Users\X Cellus\Downloads\CMPTKey_Clavier d ordinateur (ID 0229)_LS.wav"
MonWav = "C:\Users\X Cellus\Downloads\TMARK_Jingle sncf 2 (ID 0564)_LS.wav"
ExecuteExcel4Macro ("CALL(""winmm"",""PlaySoundA"",""JCJJ"",""" & MonWav & """, " & 0 & "," & &H1 & ")")
End Sub
Notez que ce code n'est pas tributaire du déroulement de l'ensemble de la macro. Il ne fait que lancer le son.
Et le son continue sans interférer avec la suite de la macro. Donc pas de sablier windows puisque c'est le windows média qui gère.