Discussion :

[louis.nicolle]

Bonjour a tous,

Je souhaite ajouter à une de mes macros, le déclenchement automatique d'un son un peu plus élaboré que "Beep".

J'ai effectuer des recherches sur le forum et tous indique d'utiliser "PlaySound" toutefois il y a une erreur de compilation "Sub non définie" dans ma tentative.

Quelle étape ai je bien pu manquer? Merci d'avance

[Igloobel]

Bonjour,

Si tu veux une réponse envoi nous ta macro

A+

[louis.nicolle]

Elle est très simple et tout fonctionne lorsque je met Beep. Elle lis la valeur de la case active et déclenche un timer de la durée adéquate:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub maMacro()
Wait (ActiveCell.Value)
ActiveCell.Interior.ColorIndex  = 3
Beep                                                   'c'est ici que j'aimerais ajouter PlaySound
End sub
 
Sub Wait(K)
Application.Wait Time + TimeSerial(0,0,K)
End sub

[Marc-L]

Bonjour,

voir les exemples dans le bon forum ‼


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[magikmed]

Bonjour,

Je te propose d'aller jeter un œil à mon problème, tu trouvera la solution au tien
http://www.developpez.net/forums/d15...s/#post8352411
Tu trouvera peut être un nouveau problème par la même occasion puisque de mon coté tout se passait bien jusqu’à ce que j'ajoute le son à mon timer. En effet, le son ralentit pas mal l’exécution de ma macro et le chrono en devient saccadé... Dommage pour un chrono.

Cdt

[Marc-L]

Bonjour,

le chrono est saccadé car la procédure de son est paramétrée pour geler l'exécution du code !

Rien qu'avec la bibliothèque winmm.dll, il y a pourtant deux fonctions permettant de jouer le son
sans geler le code principal : mciExecute & PlaySound ! Suffit de consulter leur documentation sur MSDN …

Je n'en dirais pas plus car ici c'est le forum des formules Excel ! Sans compter les exemples dans le forum dédié au VBA …

_____________________________________________________________________________________________________
L'effort fait les forts …