Sujet Précédent Sujet Suivant

Insertion de musique dqns fichier excel

Artisous43 -  
 Artisous43 -
Bonjour,
j'essaie d' avoir une bande son lorsque une cellule est VRAI.
Voici ma programmation .

Private sound As System.Media.SoundPlayer
sound = New System.Media.SoundPlayer("C:\Users\Artisous43\Documents\Divers\Mon nom est Personne.waw")

Sub MusicSiRecord()
If Range("b26") = "RECORD LILIANE" Then
sound.PlaySound

End If

End Sub
j' ai un message erreur compilation : Attendu fin d'instruction
La parenthése juste aprés SoundPlayer dans la ligne sound= , est indiquée en faute. Pouvez vous me dire pourquoi?
Je travaille sous VISTA
Merci d'avance
A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour,

Pour ma part pour insérer de la musique j'utilise cette procédure: 

Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

' archives mpfe
Sub PlayWAV()
' snd_async: son asynchrone (la musique n'arrete pas le programme)
If Application.CanPlaySounds Then
    WAVFile = ThisWorkbook.Path & "\" & "atmosph.wav"
    Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
    Exit Sub
End If

End Sub


la ligne WAVFile est à adapter à ta config
0
Artisous43
 
Bonjour,

Merci Michel. Aprés quelques modif pour ajuster ta procedure à mon programme ça fonctionne.
J'aurais été incapable de réaliser ça tout seul. Je débute en VBA et ce n' est pas de la tarte.....
A+ peut etre
0