Discussion :

[ddanie]

Bonjour,

J'ai une macro qui met une vingtaine de secondes pour exécuter une recherche et je voudrais qu'elle se termine par un signal sonore

Code :

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

1
2
3
4
5
 
Dim I
For I = 1 To 3 ' Fait 3 boucles.
Beep ' Émet une note.
Next I

Pouvez-vous m'indiquer pourquoi le Beep ne fonctionne pas alors que les
haut-parleur du portable sont bien actifs
Merci

[Qwazerty]

Salut
Chez moi ca fonctionne, Beep joue le son par defaut de windows, celui par exemple que tu as lorsque tu regle le volume de ton pc avec le petit haut parleur en bas a gauche de ton horloge.
Peut etre ce son est il desactivé sur ton pc, regardes dans les proprietés son de windows (panneau de config, Sons et periferiques audio, dans l'onglet "sons")
Dans la liste tu as Windows tout en haut et dessousles differents sons systeme, Sons Par Defaut ce trouve dans cette liste, c'est se son qui est joué par Beep, assure toi qu'il joue bien un fichier.
A++
Qwaz

[La Zélie]

Bonjour

Dans l'aide, il te mette ça:

Remarques

La fréquence et la durée du signal sonore dépendent des caractéristiques du matériel et du logiciel système utilisés, lesquelles peuvent varier d'un ordinateur à l'autre.

C'est peut être de ce côté qu'il faut chercher.

Merci car ta question m'a fait découvrir Beep.

Bonne journée

[Qwazerty]

Salut
En faisant une tite recherche sur Google

Code :

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

1
2
3
4
5
6
Option Explicit 
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long 
 
Sub faire_bip() 
Beep 500, 400 
End Sub

'ici: 500 est la note, 400 la durée

Voila peut être ce que tu cherche a faire

a++
Qwaz

[ddanie]

Salut
Chez moi ca fonctionne, Beep joue le son par defaut de windows, celui par exemple que tu as lorsque tu regle le volume de ton pc avec le petit haut parleur en bas a gauche de ton horloge.
Peut etre ce son est il desactivé sur ton pc, regardes dans les proprietés son de windows (panneau de config, Sons et periferiques audio, dans l'onglet "sons")
Dans la liste tu as Windows tout en haut et dessousles differents sons systeme, Sons Par Defaut ce trouve dans cette liste, c'est se son qui est joué par Beep, assure toi qu'il joue bien un fichier.
A++
Qwaz

Je suis bien dans "Propriétés de sons et périphériques audio"
l'onglet "Sons"
Modèles de sons :
J'ai sélectionné "Windows par défaut"
et dans "Evènements :
Je ne retrouve pas "Sons par défaut" dans cette liste
Que puis-je faire d'autre?

Salut
En faisant une tite recherche sur Google

Code :

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

1
2
3
4
5
6
Option Explicit 
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long 
 
Sub faire_bip() 
Beep 500, 400 
End Sub

'ici: 500 est la note, 400 la durée

Voila peut être ce que tu cherche a faire

a++
Qwaz

OK C'est bon çà marche!!!
Bon W-E et merci encore