Médiaforma

All posts tagged synthèse vocale

Dans cette rubrique, vous allez apprendre à votre ordinateur à prononcer l’heure … toutes les heures pleines.

Ouvrez le Bloc-Notes et saisissez les instructions suivantes :

Dim speaks, speech
speaks="Il est "& hour(time) & "heures"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks

Sauvegardez-le sous le nom heure.vbs dans un dossier facile à retrouver : le dossier Documents par exemple.

Tapez planif dans l’écran d’accueil, puis cliquez sur Tâches planifiées. La fenêtre du Planificateur de tâches s’affiche. Dans le volet droit, sous Actions, cliquez sur Créer une tâche. Donnez le nom heure à cette tâche. Basculez sur l’onglet Déclencheurs. Cette tâche doit s’exécuter toutes les heures pleines. Cliquez sur Nouveau. Dans la boîte de dialogue Nouveau déclencheur, définissez l’heure pleine la plus proche de l’heure actuelle. Sous Paramètres avancés, cochez la case Répéter la tâche toutes les, choisissez 1 heure dans la première liste déroulante, et Indéfiniment dans la seconde. Validez en cliquant sur OK.

Basculez sur l’onglet Actions et cliquez sur Nouveau. Dans la boîte de dialogue Nouvelle action, assurez-vous que la commande Démarrer un programme est sélectionnée dans la liste déroulante Action. Désignez le programme heure.vbs créé précédemment et validez en cliquant sur OK. Fermez la boîte de dialogue Créer une tâche en cliquant sur OK, puis le planificateur de tâches en cliquant sur sa case de fermeture.

A partir de maintenant, un message vocal précisant l’heure sera émis à chaque changement d’heure.


J’espère que, comme moi, vous avez aimé le film “2001 l’odyssée de l’espace”. Dans cette vidéo, et en hommage à son réalisateur, Stanley Kubrick, je vais vous montrer comment faire en sorte que votre ordinateur vous souhaite la bienvenue avec un message vocal chaque fois que vous démarrez Windows. Read more


Windows 8.1 et 8.1 Update sont équipés par défaut de deux voix :

  • La voix française d’Hortense que vous connaissez déjà ;
  • La voix américaine de Zira que vous allez découvrir dans cette rubrique.

Tapez synthèse dans l’écran d’accueil, puis cliquez sur Modifier les paramètres de la synthèse vocale. La boîte de dialogue Propriétés de la synthèse vocale s’affiche. Sous l’onglet Synthèse vocale, dans le groupe d’options Sélection de la voix, déroulez la liste déroulante et choisissez Microsoft Zira Desktop – English (United States).

Le texte affiché dans la zone de texte Utiliser le texte suivant pour tester la voix est immédiatement prononcé. Etant donné que ce texte est écrit en français, la prononciation américaine n’est pas très convaincante. Les résultats seront bien meilleurs si vous utilisez cette voix pour prononcer un texte écrit en anglais.

Cliquez sur OK pour valider le changement de voix.

Ouvrez le fichier narrateur.vbs. Pour cela, cliquez du bouton droit sur l’icône de ce fichier et sélectionnez Modifier dans le menu. Modifiez ce fichier comme ceci :

Dim speaks, speech
speaks="Today is " & date()
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks
speaks="It's "& time()
speech.Speak speaks

Sauvegardez le fichier narrateur.vbs puis exécutez-le en double-cliquant dessus. Le résultat est tout à fait convenable.

Bien entendu, vous pouvez utiliser à nouveau la voix française d’Hortense.

Tapez synthèse dans l’écran d’accueil, cliquez sur Paramètres puis sur Modifier les paramètres de la synthèse vocale. La boîte de dialogue Propriétés de la synthèse vocale s’affiche. Déroulez la liste Sélection de la voix, choisissez Microsoft Hortense Desktop – French et validez en cliquant sur OK.


Dans la rubrique précédente, vous avez appris à émettre un message vocal à l’aide de quelques instructions VBScript. Cette rubrique va vous montrer comment  prononcer la date et l’heure système. Pour cela, il suffit d’utiliser les fonctions VBScript date() et heure(). Si vous avez créé le fichier narrateur.vbs, comme indiqué dans la rubrique “Faites parler Windows”, cliquez du bouton droit sur l’icône de ce fichier et sélectionnez Modifier dans le menu. Modifiez le fichier comme ceci :

Dim speaks, speech
speaks="Nous sommes le " & date()
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks
speaks="Il est "& time()
speech.Speak speaks

Sauvegardez ce fichier, puis exécutez-le en double-cliquant dessus.

Bluffant non ?


L’application Narrateur de Windows 8.1/8.1 Update est une aide appréciable pour les personnes déficientes visuelles. A l’aide de quelques lignes de code VBScript, il est possible de s’adresser à cette application pour lui demander de prononcer un texte quelconque. Cette rubrique va vous montrer comment.

Ouvrez le Bloc-Notes de Windows. Pour cela, tapez note dans l’écran d’accueil et cliquez sur Bloc-Notes.

Insérez les quatre lignes de code suivantes :

Dim speaks, speech
speaks="Ce texte est prononcé par le Narrateur"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks

Bien sûr, le message de la deuxième ligne peut être adapté comme vous le souhaitez. Je vous suggère de faire une pause dans la vidéo pour avoir le temps de taper ces quatre lignes dans le Bloc-Notes.

Passons à l’étape suivante. Lancez la commande Enregistrer sous dans le menu Fichier et sauvegardez ce fichier sur le Bureau. Pour cela, cliquez sur l’entrée Bureau, sous Favoris, dans le volet gauche de la fenêtre Enregistrer sous. Donnez un nom quelconque et une extension VBS au fichier. Par exemple, narrateur.vbs. Double-cliquez sur l’icône Narrateur.vbs et pensez à tout ce que vous allez pouvoir faire avec cette technique !


Dans une vidéo précédente, vous avez appris à faire parler Windows 7 au démarrage de l’ordinateur. Malheureusement, la voix synthétique avait un fort accent américain. Dans cette vidéo, je vais vous montrer comment utiliser une voix féminine française à la place. Cette technique fonctionne pour les versions 32 bits de Windows. Read more


Cette rubrique va vous montrer comment utiliser la voix de synthèse de Windows 10 pour lire un fichier texte quelconque.

Cliquez sur Démarrer ou appuyez sur la touche Windows du clavier, tapez bloc et cliquez sur Bloc-notes, dans la partie supérieure du menu Démarrer. Tapez les instructions suivantes :

Dim speaks, speech
Set speech=CreateObject("sapi.spvoice")
Dim oFso, f
set oFso = CreateObject("Scripting.FileSystemObject")
set f = oFso.OpenTextFile("lecture.txt", 1)
while Not f.AtEndOfStream
  speech.Speak f.ReadLine
Wend
f.Close

Sauvegardez le fichier dans un dossier quelconque avec la commande Enregistrer sous dans le menu Fichier. Donnez le nom parle.vbs au fichier :

Assurez-vous qu’un fichier texte nommé lecture.txt se trouve dans le dossier où vous avez enregistré le fichier parle.vbs. Il ne vous reste plus qu’à double-cliquer sur parle.vbs pour lire le contenu du fichier lecture.txt.

Vous voulez aller plus loin avec la synthèse vocale ? Téléchargez l’eBook “Je parle à mon PC et il me le rend bien” en cliquant ici : https://www.mediaforma.com/je-parle-a-mon-pc-et-il-me-le-rend-bien/