Discussion :

[rtg57]

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 ?

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[rtg57]

Merci beaucoup,

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

Encore un problème résolu