Bonjour,
Le meilleur moyen de ne pas être enquiquiné par ces problèmes de chemin (Quand on à la maîtrise du choix !) est de mettre les fichiers wav dans le même dossier (ou dans un dossier enfant) que le classeur Excel (ou dans un dossier enfant)
Ainsi il n'y a pas besoin de spécifier le chemin on récupère le ThisWorkbook.Path au besoin on concatène avec le nom du répertoire enfant et basta...
Declare Function PlaySound Lib "Winmm" _
(ByVal pszsound As String, ByVal hmod As Long, ByVal fdwsound As Long) As Long
Sub Son() ' Les fichiers wav sont dans le même dossier
Z = ThisWorkbook.Path
PlaySound Z & "\Coyote.wav", 0, 0
End Sub
ou :
Declare Function PlaySound Lib "Winmm" _
(ByVal pszsound As String, ByVal hmod As Long, ByVal fdwsound As Long) As Long
Sub Son() ' Les fichiers wav sont dans le dossier enfant ("SONS")
Z = ThisWorkbook.Path & "\SONS"
PlaySound Z & "\Coyote.wav", 0, 0
End Sub
Nota : Il existe d'autres possibilités ou l'on n'a même pas besoin d'avoir les wav sur l'ordi hôte. Il suffit d'embarquer les wav DANS le classeur... mais c'est nettement plus compliqué !
A+