Excel- comment emettre un son

Résolu
mod77 Messages postés 1320 Statut Membre -  
mod77 Messages postés 1320 Statut Membre -
Bonjour,

Je voudrais émettre deux sons différents (de type "bip") avec excel, quelqu'un peut-il me montrer comment faire SVP?

Merci

1 réponse

Réponse 1 / 1
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour, 

Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
 

Sub son1()
Beep 500, 400
End Sub

Sub son2()
 Beep 600, 800
End Sub

Sub son3()
Beep 700, 800

End Sub
Sub son4()
Beep 1500, 1200
End Sub

Sub son5()
Beep 50, 1000
End Sub
0
mod77 Messages postés 1320 Statut Membre 53
 
Super merci michel_m
saurais-tu me dire s'il existe un timer aussi STP?

merci en tout cas
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Et pour le fun, si tu veux parler en anglais avec excel (ca jette plus que des bip bip) 

Sub lutherking()

Dim Sp As Object
    
    On Error Resume Next
    Set Sp = CreateObject("Sapi.SpVoice")
    If Sp Is Nothing Then Exit Sub
    Sp.Speak "    I have a dream today. I have a dream that one day every valley shall be exalted "
End Sub


pour faire le café, j'ai pas trouvé :-$
0
mod77 Messages postés 1320 Statut Membre 53
 
Ah Ah,Ah génial ! je vais l'utiliser pour le fun (je ne savais pas que ça existait)

En fait je veux faire un chronomètre alors je voulais savoir s'il existe une fonction de type minuterie (timer) pour faire ça?!
merci
0
mod77 Messages postés 1320 Statut Membre 53
 
Il y a un bug "erreur d'entrée /sortie" comment je peux m'en débarasser STP?
Merci
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Je voudrais émettre deux sons différents...
....
En fait je veux faire un chronomètre
0