excel /office 2016 : activer 2 synthèses vocales dans 2 langues à la volée

[ls8]

Bonjour,

Je cherche une idée pour obtenir sous excel
- après selection d'une cellule
- sa lecture vocale dans une langue (Français ou Anglais)
- et la lecture de la cellule suivante dans la ligne dans une autre langue (Anglais ou Français)

sans modifier tous les paramétrages d'office et pas compliquée (niveau VBA très faible ancien patouilleur retiré).

Une amorce de dictionnaire en fichier joint

Merci de votre concours.
ls8

 

[Marc L]

Bonjour,

sans toucher à la configuration de Windows, la seule manière de procéder
est via une URL web comme par exemple sur Google traduction
et ce n'est donc pas standard VBA donc compliqué …

​

 

[Modeste geedee]

Re : excel /office 2016 : activer 2 synthèses vocales dans 2 langues à la volée

Bonsour®
voir ce fil
https://www.excel-downloads.com/threads/son-dans-une-cellule.202583/

Sub test()
 Dim Voix As Object
 Dim i As Long
     Set Voix = CreateObject("Sapi.SpVoice")
     For i = 1 To Voix.GetVoices.Count
         MsgBox Voix.GetVoices.Item(i - 1).GetDescription & " - code pays : " & Voix.GetVoices.Item(i - 1).GetAttribute("Language")
'  -----------selectionne le Moteur TTS
         Set Voix.Voice = Voix.GetVoices.Item(i - 1)
' ------------prononce la description 
         Voix.Speak Voix.Voice.GetDescription
     Next
 End Sub

 

[Marc L]

Re : excel /office 2016 : activer 2 synthèses vocales dans 2 langues à la volée

'soir Modeste !

J'avais mis de côté cet ActiveX car ne fonctionnait qu'avec la voix US d'origine,
je vais devoir réinstaller une voix française pour tester de nouveau …

Sinon à une époque je passais par le Translate de Google, belles voix et multi pays
sans rien installer en local, suffit juste d'une connexion au Net …

​