Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Son dans une cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

DSTHYACINTHE

XLDnaute Nouveau
Bonjour

J'ai crée un petit fichier pour apprendre du vocabulaire en anglais (ci-joint)

J'aimerais faire enregistrer rapidement et facilement par mon professeur, dans la cellule qui contient le mot anglais (colonne g), la bonne prononciation du mot.

Par un double clic sur le mot, j'aimerais écouter la bonne prononciation

Connaissez-vous un add-in ou programme pour faire le travail

Merci a l'avance de votre aide et de vos conseils
 

Pièces jointes

Re : Son dans une cellule

Bonsour®
avec XP,vista ou Seven
et au moins EXCEL 2002

Code VBA:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ccc = ActiveCell.Column
rrr = ActiveCell.Row
If ccc = 7 Or ccc = 4 Or ccc = 5 Then Application.Speech.Speak Cells(rrr, 7)
Cancel = True
End Sub


voir piece jointe :


dans les options Windows et synthése vocale
choisir préalablement un locuteur anglo-saxon (US ou UK)
 

Pièces jointes

Dernière édition:
Re : Son dans une cellule

Bonjour DSTHYACINTHE, Bonjour Modeste Geedee, 🙂

Ok, c'est super rigolo le Speech, mais la prononciation peut-elle vraiment être prise pour référence lors de l'apprentissage d'une langue 😕
 
Re : Son dans une cellule

Bonsour®
Bonjour DSTHYACINTHE, Bonjour Modeste Geedee, 🙂

Ok, c'est super rigolo le Speech, mais la prononciation peut-elle vraiment être prise pour référence lors de l'apprentissage d'une langue 😕

😉
vaste probleme...
s'agissant d'une langue vivante parlée partout dans le monde, quelle doit etre la référence ???
- la radio, la TV, les variétés(musique)

🙁 quand l'on entend nos commentateurs nationaux qui souvent parlent de façon phonétique style SMS avec toutes les fautes d'accords et de vocabulaire qui s'y accroche ...
on peut se poser la question ?

🙁 en est-il différement des anglo-saxons ???(US, UK, Australiens,canadiens,asiatiques, arabes)
How To Do an American Accent - Intro to a Series | Amy Walker - YouTube
British Accent Tip | Amy Walker - YouTube
Southern Accent Tip | Amy Walker - YouTube
Australian Accent Tip | Amy Walker - YouTube
je suis souvent effaré et dubitatif , lorsque que j'essaie de traduire les paroles des hits-parades internationnaux et encore plus lorsque j'arrive à trouver les textes de ces même titres.

A une époque pour la langue anglaise, les linguistes conseillaient d'écouter le BBC Home Service ...
je ne suis pas sûr que cela soit toujours vrai 🙄

Amy Walker | Actress, Singer, Voice-Over Artist

😉 si les locuteurs de Windows sortent du même tonneau que les traducteurs automatiques (microsoft, bing, google) un puriste rejetera évidement cette approche ...

mais Speech se basant d'abord sur l'orthographe, vaut bien la prononciation de n'importe quel pékin (non-linguiste) entachée de régionalisme, de non-culture personnelle et autres accents "exotiques"...


😉😀
 
Re : Son dans une cellule

Re,

mais Speech se basant d'abord sur l'orthographe, vaut bien la prononciation de n'importe quel pékin (non-linguiste) entachée de régionalisme, de non-culture personnelle et autres accents "exotiques"...

Oui, d'accord, et je n'ai pas réussi à le prendre en défaut sur une prononciation anglaise que je connaitrais (il doit bien y a voir un mot ou deux dont je connais la prononciation, bien qu'entachée de mon accent exotique 😉)

Je pense que le mieux serai de demander son avis au professeur, qui pourra essayer de taper des mots avec des prononciations spécifiques et tester Speech. Je posais la question pour les linguistes (dont tu fais peut-être partie, mais moi non).
Le but est tout de même d'apprendre une langue...
 
Re : Son dans une cellule

Bonsour®
Re,

Ok, c'est super rigolo le Speech,
../..
Le but est tout de même d'apprendre une langue...

😎 je n'oserai affirmer qu'Excel soit l'outil idéal pour apprendre une langue ...🙄

🙄sinon il y aurait peut-etre quelque chose à creuser...
je cherche comment via VBA changer (à la volée) le locuteur :
C:\Windows\System32\Speech\SpeechUX\sapi.cpl
 
Dernière édition:
Re : Son dans une cellule

Re,

Pas trouvé

J'arrive juste à lister les voix, si ça t'inspire 🙄

Cocher la Référence Microsoft Speech Object Library (je ne doute pas que tu l'ais deviné mais c'est un forum 😉)

Code:
Sub test()
Dim Voix As New SpeechLib.SpVoice
Dim i As Long
    'Set Voix = CreateObject("Sapi.SpVoice")
    For i = 1 To Voix.GetVoices.Count
       MsgBox Voix.GetVoices.Item(i - 1).GetDescription
    Next
End Sub
 
Re : Son dans une cellule

Re,

Ben en fait je n'étais pas loin

Avec la référence :

Code:
Sub test()
Dim Voix As New SpeechLib.SpVoice
Dim i As Long
    For i = 1 To Voix.GetVoices.Count
        MsgBox Voix.GetVoices.Item(i - 1).GetDescription & " - code pays : " & Voix.GetVoices.Item(i - 1).GetAttribute("Language")
        Set Voix.Voice = Voix.GetVoices.Item(i - 1)
        Voix.Speak Voix.Voice.GetDescription
    Next
End Sub

sans la référence

Code:
Sub test2()
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")
        Set Voix.Voice = Voix.GetVoices.Item(i - 1)
        Voix.Speak Voix.Voice.GetDescription
    Next
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
442
Réponses
5
Affichages
416
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…