Sons système de base

Bonjour,

je voudrais "un peu" sonoriser mon application EXCEL.
J'ai utilisé pendant quelques temps des fichiers wave. Le problème est qu'il faut toujours trimbaler ces fichiers avec le fichier EXCEL qui les utilise.

J'aimerai bien pourvoir disposer des sons systèmes, par exemple ceux accessibles dans les MsgBox. Ceci me permettrait d'égayer un peu le Beep de base.

Y a-t-il moyen de faire cela ?

Bonjour, rtg57,

Ah Ah ! on se prépare à chahuter un peu pour les fêtes, hein ?...

Bon...
On peut le faire de différentes manières, bien sûr...
Je m'en tiens pour l'instant à tes ziziques de la msgbox :

Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long Private Const SON_OK = &H0 ' SystemDefault Private Const SON_ICONHAND = &H10& 'SystemHand Private Const SON_ICONQUESTION = &H20& 'SystemQuestion Private Const SON_ICONEXCLAMATION = &H30& 'SystemExclamation Private Const SON_ICONASTERISK = &H40& ' SystemAsterisk   Private Sub Command1_Click() MessageBeep SON_ICONASTERISK End Sub

---

tu as compris que tu peux changer dans cet exemple SON_ICONASTERISK par l'une des autres constantes, hein ...

Les sons qui en sortiront seront bien évidemment ceux que tu auras définis dans ton panneau de configuration pour ces évènements... (panneau de configuration ===>> sons et multimédias).

Si tu veux d'autres sons encore, tu dis...:lol:

Merci beaucoup,

c'est exactement ce que je cherchais à faire. Je ne connaissais pas cette instruction "MessageBeep".

Encore un problème résolu :yaisse2: