Beep excel

[mjuju]

Bonjour,


Principe du fichier ci joint: on ouvre le fichier, 15 seconde après l'ouverture un beep et un pop up s'ouvre.


Je cherche à changer le "beep" pour un beep plus atypique ( attirant d'avantage l'attention que le beep par Default).
J'ai trouvé des réponses sur les forums mais je suis un jeune padawan je n'y arrive pas!


Merci

mjuju

 

[Dranreb]

Re : Beep excel

Bonsoir.

Extraits de la programmation d'un de mes classeurs :

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
   (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Public Declare Function Beep Lib "kernel32.dll" _
   (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

…
Z = Z & ".wav"
…
If PlaySound(Z, 0, 1) = 0 Then MsgBox Z & " inexistant"

Beep FréqNote(Z, T(N, 2)), Durée

 

[mjuju]

Re : Beep excel

Bon heuuuuuu merci beaucoup mais je ne sais pas comment faire... je mets ça dans le workbook? avant les autres codes? je mets les trois l'un après l'autres?
désolé mais je n'ai que 3 heures d’expériences!!

 

[Dranreb]

Re : Beep excel

Non ce n'étaient que des exemples.
PlaySound permet de jouer un fichier wav dont on spécifie la référence de fichier, Beep, avec cet API, permet des beep avec fréquences et durées imposées. Maintenant ça dépend de ce que vous voulez faire.
Les Public Declare peuvent se mettre en tête du Module1 comme ça ils seront utilisables dans tout le projet VBA
Y compris dans la Sub Alert:

Beep 330, 100: Beep 440, 100: Beep 550, 100: Beep 660, 100: Beep 880, 400

 

[job75]

Re : Beep excel

Bonsoir,

Avant d'aller faire dodo voyez ce fichier.

Testé seulement sur Excel 2003.

Bonne nuit.

 

[job75]

Re : Beep excel

Re mjuju,

Juste une remarque sur votre solution.

Fermez le fichier sans fermer Excel avant le temps imparti, le fichier va se rouvrir.

C'est pour éviter ce petit inconvénient que je vous ai proposé une boucle While/Wend :

https://www.excel-downloads.com/threads/alerte-temporel.226996/

Re-bonne nuit.

 

[Dranreb]

Re : Beep excel

À part ça si d'aventure vous êtes intéressé par mes principaux sons Windows personnels…