effets sonores

[Olivier]

Bonjour,

J' aimerais insérer un effet sonore à ma boucle for...to...next, c'est possible ça ???

Merci
@+
Olivier

 

[evelynetfrancois]

bonsoir
avec " beep" a insere dans ta macro
bonne prog
EetF

 

[Temjeh]

Voici un idée

Son à l'ouverture d'un Uf

Dans un module:

Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub Play()
Call sndPlaySound32("C:\Windows\Media\Tada.wav", 0)
End Sub

Dans UserForm

Private Sub UserForm_Activate()
Call Play
End Sub

A++

Temjeh