XL 2010 OUVRIR USF AVEC UN BRUIT DE FON CARACTERISTIQUE

[MAN]

Bonjour le forum
bonjour a tous. je voudrai experimenter le son dans les usf. es ce possible

 

[Temjeh]

Bonjour

À L'ouverture du UserForm

Option Explicit
Private Const SND_FILENAME = &H20000
Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
    (ByVal lpszName As String, ByVal hModule As Long, _
    ByVal dwFlags As Long) As Long

Private Sub UserForm_Initialize()
PlaySound "C:\Users\claud\Desktop\oh-yeah-2.wav", ByVal SND_SYNC, SND_FILENAME Or SND_ASYNC'Juste y changer le chemin du fichier son
End Sub

A+

 

[MAN]

merci baucoup.
ne peut on pas avoir d'autres sons caracteristiques, celui ci est dejà trop utillisé sur excel.

 

[Temjeh]

Bonjour

Pas assez clair ta demande!
"celui ci est déjà trop utilisé ", tu veut dire quoi?

A+

 

[Victor21]

Bonjour à tous.

Un test en pj

 

[MAN]

Je ne comprenais pas bien. Merci pour le ZIP

 

[Temjeh]

Bonjour

Dans le zip de Victor, c'est 2 macro qui appelle un son de ton choix.
Semblable au miens

Pour la deuxième fois. Que cherches-tu?

A+