userform + sons

Salut ptifred, le forum

Essaye ceci :

Dans l'initialisation de ton UserForm (Le sample doit être dans le dossier
de ton application) :

MusicWAV = (ThisWorkbook.Path & "" & "GOODBYE.wav")
PlayWAV

Puis dans un module :

Option Explicit
Option Private Module

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
Public MusicWAV
' pour le son
Sub PlayWAV()
Call PlaySound32(MusicWAV, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

Salut, Ouille

bonjour
voila qu demarage d'un fichier j'ai un userform qui se
lance pendant 5 secondes je voudrais qu'un son *.wav
accompagne cette userform quelle procedure appliquer et
surtout a quelle endroit je doit appliquer la procedure

ps dans ce fichier j'ai plusieurs userform

merci par avance