Excel- comment emettre un son

Résolu
mod77 -  
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

  • Votes
  • Date
  • Date décroissante
  1. michel_m Contributeur
    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
    1. mod77 Auteur
      Super merci michel_m
      saurais-tu me dire s'il existe un timer aussi STP?

      merci en tout cas
    2. michel_m Contributeur
      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é :-$
    3. mod77 Auteur
      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
    4. mod77 Auteur
      Il y a un bug "erreur d'entrée /sortie" comment je peux m'en débarasser STP?
      Merci
    5. michel_m Contributeur
      Je voudrais émettre deux sons différents...
      ....
      En fait je veux faire un chronomètre