Bonjour le forum
Bonjour Ewan
Ton fichier ne passe pas (1ko).
D'après un code qu'avais donné Myta, voici comment je procèderais :
Dans un module :
Declare Function sndPlaysound32 Lib "Winmm.dll "Alias sndPlaySoundA" (ByVal lpszSoundname as String, ByVal uFlags as Long) As long
Sub Play ()
Call sndPlaySound32 ("C:\Windows\Media\Tadaw.Wav", 0) 'Chemon à adapter
End Sub
Dans Private SubWorkBokk_BeforeClose
Play
End Sub
@ ++ Eric C