Désactivation du micro

sousou

XLDnaute Barbatruc

• 26 Novembre 2020

• #2

bonjour
essaie ceci.
Même chose que sendkey, mais adressé a windows et non à excel
coupe le son et le micro
Sub deb()
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys (Chr(173))
End Sub

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 26 Novembre 2020

• #3

Parfait, merci
Donc je garderai quand même mon prog MicMute

A+

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 27 Novembre 2020

• #4

Bonjour sousou, Temjeh,

j'allais t'écrire : « il marche très bien, ton code VBA !!! et même trop bien !!!!
comment on fait après, pour remettre le son ? faut envoyer quel caractère ?
c'est pas sympa d'pas l'avoir indiqué !!! »

puis après une recherche google, j'ai découvert qu'il faut tout simplement
envoyer de nouveau le même caractère 173 ; c'est donc une bascule
off / on (ou on / off, c'est selon. 😜).

pour moi, problème résolu ; mais seul le demandeur Temjeh peut cliquer
sur le bouton « Marquer comme solution » de ton post #2. 🙄

soan

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 27 Novembre 2020

• #5

Hello,

En ce qui me concerne je préférerai utiliser une ligne de commande plutôt qu'une bascule.
https://www.nirsoft.net/articles/mute_microphone_command_line.html
Parce que une bascule, je ne sais jamais dans quel état elle est.

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 27 Novembre 2020

• #6

Bonjour D.D.,

tu as écrit : « je préférerai utiliser une ligne de commande plutôt qu'une bascule. »
et : « Parce que une bascule, je ne sais jamais dans quel état elle est. »

oui, mais à l'oreille ? ça s'entend pas, selon que tu entends le son ou pas ? 😜

soan

 

Dernière édition: 27 Novembre 2020

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 27 Novembre 2020

• #7

soan à dit:

entends le son ou pas

Cliquez pour agrandir...

Heu...
On parle du micro, là, non ?

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 27 Novembre 2020

• #8

euh... moi je parlais du haut-parleur ! 😛 😀 (et j'ai pas d'micro, j'en n'utilise pas ;
j'utilise seulement des macros ; si jamais ils sortent un micro VBA, peut-être j'en prendrai un)

soan

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 27 Novembre 2020

• #9

Oups
Excat!

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 29 Novembre 2020

• #10

Bonjour et merci d'avoir partagé vos idées

Oui pour remettre le son, le MicMute le fait tout seul.
Clic mute et Clic UnMute

Aussi sousou avec mon 2010, ce code ne coupe pas le micro (ZOOM):

Sub deb()
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys (Chr(173))
End Sub

PS Comment mettre résolu?
Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Novembre 2020

• #11

Bonjour Temjeh, le fil,

Temjeh à dit:

PS Comment mettre résolu?

Cliquez pour agrandir...

Editer le post #1 en ajoutant le préfixe "Résolu" au titre de la discussion.

A+

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 29 Novembre 2020

• #12

Merci!

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 29 Novembre 2020

• #13

Bonjour Temjeh, job75, le fil,

sinon, y'a aussi : cliquer sur le bouton « Marquer comme solution »
du post qui a résolu ton problème. 🙂 (le fond devient alors vert clair)

c'est même possible de faire ça pour plus d'un post, si par exemple
2 ou 3 posts ont apporté une solution valable à ton exo.

soan

 

Vote positif 0 Vote négatif