jacquesAvnaim
XLDnaute Nouveau
Bonjour,
J'ai dans un dossier une application Excel et un fichier son que j'active par un bouton clic dans cette application. Tout cela fonctionne très bien mais voici un problème que je ne comprends pas :
Si j'ajoute un autre fichier son avec une procédure identique celui-ci ne s'ouvre pas aucun son. Pourtant je n'ai aucun message d'erreur Voici mes procédures concernant ces fichiers :
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Dim FichierWAV As String
Const SON_ASYNC = &H1
Const SON_NOMFICHIER = &H20000
-----------------------
Private Sub CommandButton1_Click()
FichierWAV = "Cello2.wav" ' celui ci reste muet
Call PlaySound(FichierWAV, 0&, SON_ASYNC Or SON_NOMFICHIER)
UserForm4.Show
UserForm2.Hide
End Sub
-------------------------------
Private Sub CommandButton6_Click()
FichierWAV = "k5.wav" ' celui ci fonctionne parfaitement
Call PlaySound(FichierWAV, 0&, SON_ASYNC Or SON_NOMFICHIER)
UserForm2.Show
End Sub
J'ai beau cogiter je ne comprends pas pourquoi l'un s'ouvre et m'offre une belle mélodie (k5.wav) alors que l'autre (Cello2.wav) reste muet.
Là je crois que non seulement il faut être Dr.es-SciencesExcel mais Devin diplômé !
Mais qui sait l'un de vous a peut être ces facultés c'est pourquoi à tout hasard je lance un appel
Merci d'avance
Avnaim
J'ai dans un dossier une application Excel et un fichier son que j'active par un bouton clic dans cette application. Tout cela fonctionne très bien mais voici un problème que je ne comprends pas :
Si j'ajoute un autre fichier son avec une procédure identique celui-ci ne s'ouvre pas aucun son. Pourtant je n'ai aucun message d'erreur Voici mes procédures concernant ces fichiers :
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Dim FichierWAV As String
Const SON_ASYNC = &H1
Const SON_NOMFICHIER = &H20000
-----------------------
Private Sub CommandButton1_Click()
FichierWAV = "Cello2.wav" ' celui ci reste muet
Call PlaySound(FichierWAV, 0&, SON_ASYNC Or SON_NOMFICHIER)
UserForm4.Show
UserForm2.Hide
End Sub
-------------------------------
Private Sub CommandButton6_Click()
FichierWAV = "k5.wav" ' celui ci fonctionne parfaitement
Call PlaySound(FichierWAV, 0&, SON_ASYNC Or SON_NOMFICHIER)
UserForm2.Show
End Sub
J'ai beau cogiter je ne comprends pas pourquoi l'un s'ouvre et m'offre une belle mélodie (k5.wav) alors que l'autre (Cello2.wav) reste muet.
Là je crois que non seulement il faut être Dr.es-SciencesExcel mais Devin diplômé !
Mais qui sait l'un de vous a peut être ces facultés c'est pourquoi à tout hasard je lance un appel
Merci d'avance
Avnaim