Fichier son en vba

[Ilino]

Buonasera
Y-a-il une possibilité de joindre un fichier son au message (msgbox)😕
grazie

 

[Dranreb]

Re : Fichier son en vba

Bonsoir.
Il est possible de changer au niveau Windows les sons associés aux constantes VbInformation, VbExclamation etc.
Il est aussi possible de jouer un son Wav par des API appropriées, mais il n'est pas possible, à ma connaissance de changer exceptionnellement le son émis lors d'un MsgBox.
Cordialement.

 

[Gareth]

Re : Fichier son en vba

Bonsoir,

Une solution ici.
J'ai testé le code TestPlayWavFile() comme ci-dessous, ça fonctionne.

Sub TestPlayWavFile()
    PlayWavFile "c:\ringout.wav", False
    MsgBox "This is visible while the sound is playing..."
End Sub

Playing WAV-files using VBA in Microsoft Excel

 

[Ilino]

Re : Fichier son en vba

Bonsoir,

Une solution ici.
J'ai testé le code TestPlayWavFile() comme ci-dessous, ça fonctionne.

Sub TestPlayWavFile()
    PlayWavFile "c:\ringout.wav", False
    MsgBox "This is visible while the sound is playing..."
End Sub

Playing WAV-files using VBA in Microsoft Excel

Bonsoir Gareth
Merci pour la réponse;
J’ai essayé de faire une simulation selon le code que vous m’avez donné sur le lien et comme je suis pas savoureux en Vba , mon souci est comment faire afficher ces deux message avec les deux fichier son ?
Grazie

 

[Modeste geedee]

Re : Fichier son en vba

Bonsour®
à placer en tete d'un module standard
Public Const SND_ASYNC = &H1 ' play asynchronously
Public Const SND_FILENAME = &H20000 ' name is a file name

dans le module
Sub tutut()
PlaySound ThisWorkbook.Path & "\tambour.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
MsgBox "La commande son est émise avant ouverture de la MsgBox " _
& Chr(10) & "le son continu pendant l'ouverture de la MsgBox et pour la durée de celui-ci" _
& Chr(10) & "ou bien jusque la prochaine Cde Playsound " _
& Chr(10) & "le fichier émis doit etre disponible dans le même répertoire que ce classeur"
End Sub

 

[Ilino]

Re : Fichier son en vba

Sorry j'ai oublie les fichiers wav
http://cjoint.com/?BJmxbXCE7dI
http://cjoint.com/?BJmxddSzV2v

 

[Modeste geedee]

Re : Fichier son en vba

Bonsour®

Public Const SND_APPLICATION = &H80 ' look for application specific association
Public Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Public Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier
Public Const SND_ASYNC = &H1 ' play asynchronously
Public Const SND_FILENAME = &H20000 ' name is a file name
Public Const SND_LOOP = &H8 ' loop the sound until next PlaySound
Public Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Public Const SND_NODEFAULT = &H2 ' silence not default, if sound not found
Public Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Public Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Public Const SND_PURGE = &H40 ' purge non-static events for task
Public Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Public Const SND_SYNC = &H0 ' play synchronously (default)

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Sub TestPlayWavFile()
PlaySound ThisWorkbook.Path & "\START.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
MsgBox "This is visible while the sound is playing..."
PlaySound ThisWorkbook.Path & "\FINISH.wav", ByVal 0&, SND_FILENAME '******Or SND_ASYNC
MsgBox "This is visible after the sound is finished playing..."
End Sub

Note ;
la function SndPlaySound est un sous-ensemble de la fonction Playsound pour compatibilité avec Windows 95

 

[Gareth]

Re : Fichier son en vba

Ilino,

Je n'ai pas compris ton probleme.
J'ai testé le code que tu as posté (je suis sous Windows 7)
Si les Wav sont dans le bon dossier, les sons sont correctement joués.
Quand tu double cliques sur les Wav dans leur dossier ils fontionnent ?

 

[Ilino]

Re : Fichier son en vba

Peut être j’ai mal expliqué mon souci
Voila je veux que ces deux messages s’affichent par des conditions par exemple si la cellue a1>5 MsgBox 1 et son wav sinon msgbox2 et son wav
Nb je ne suis pas savoureux en vba
sorry

 

[Gareth]

Re : Fichier son en vba

Re,

Comme ceci ?

Sub TestPlayWavFile()
If Feuil1.[A1].Value > 5 Then
    PlayWavFile "C:\Documents and Settings\SEVEN\Bureau\Excel\son\START.wav", False
    MsgBox "Message 1"
Else
    PlayWavFile "C:\Documents and Settings\SEVEN\Bureau\Excel\son\FINISH.wav", True
    MsgBox "Message 2"
End If
End Sub

 

[Ilino]

Re : Fichier son en vba

Ok je vais essayé et je te réponds grazie

 

[Ilino]

Re : Fichier son en vba

Re bonsoir
Apres avoir tenté le code, j’ai remarqué que le message ne s’affiche pas si je change la valeurs de A1 Why, ?

 

[Gareth]

Re : Fichier son en vba

Re,

Tu mets quoi en A1 ?
Tu veux que le message apparaisse quand tu modifies une valeur en A1 ?

 

[Ilino]

Re : Fichier son en vba

re,
des valeurs par exemple
si je mets une valeur sup a 5 je doi avoir le message 1 et son wav et etc.....
grazie

 

[Gareth]

Re : Fichier son en vba

Re,

Essaie le fichier joint.
J'ai rajouté

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then TestPlayWavFile
End Sub

dans le code de la Feuil1