Insertion de musique dqns fichier excel
Artisous43
-
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
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
Configuration: Windows Vista Safari 530.5
1 réponse
-
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
