Discussion :

[LouisPaq]

Bonjour à tous,

J'ai réalisé une application sous Excel et VBA dans laquelle il faut parfois retourner aux usagers des instructions ou commentaires via des MSGBOX.

Dans certains cas, les instructions sont assez longues et je souhaiterais les transmettre par le biais d'une voix de synthèse, enregistrée dans un fichier MP3.

La chose est-elle possible, et si oui, comment s'y prend-on?

Merci infiniment.

Louis

[fring]

Bonjour,

Voir le lien ci-dessous

http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/

Autre possibilité pour lancer le mp3 sur Winamp

Code :

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

Shell ("D:\Program Files\Winamp\winamp.exe D:\Temp\test.mp3")

Il faut bien sur adapter les chemins D:\...
Remarque pour ce bout de code : le nom du fichier mp3 ne peut pas contenir d'espace

@+

[cafeine]

Hello,

tu as bien sur les mp3, mais si tu as des interlocuteurs anglophones, tu peux utiliser la voie de synthèse made in Excel.

Code :

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

Application.Speech.Speak "Hello, welcome on this application"

Bonjour à tous,

J'ai réalisé une application sous Excel et VBA dans laquelle il faut parfois retourner aux usagers des instructions ou commentaires via des MSGBOX.

Dans certains cas, les instructions sont assez longues et je souhaiterais les transmettre par le biais d'une voix de synthèse, enregistrée dans un fichier MP3.

La chose est-elle possible, et si oui, comment s'y prend-on?

Merci infiniment.

Louis

[fring]

Bonjour Cafeine,

J'avais pensé à cette solution pour en avoir entendu parler mais je n'ai jamais pu la tester pour voir (plutot entendre) ce que ça donne. A partir de quelle version d'Excel cette option est elle disponible ?

[cafeine]

c'est au moins depuis Excel 2003 et il me semble que je ne l'avais pas sur Excel 2000.

[fring]

c'est au moins depuis Excel 2003 et il me semble que je ne l'avais pas sur Excel 2000.

Merci , je confirme, je n'ai pas cette fonctionnalité sur Excel 2000

[LouisPaq]

Bonjour Messieurs,
Je me suis référé au lien proposé par fring.

J'ai créé un formulaire ne contenant qu'un bouton d'accès et qui appelle le code pour activer la lecture du fichier mp3.

Dans VBA / Outils / Référence, j'ai activé tour à tour puis ensemble 4 options "Windows Media Player" (chemins d'accès ...msdxm.ocx, wmp.dll, wmpdxm.dll et wmpshell.dll).

À l'instruction "Set Wmp = CreateObject("WMPlayer.OCX.7")", j'obtiens le message d'erreur "Erreur d'exécution: Erreur Automation - Erreur Non définie.

J'utilise Window XP Professionnel et Office 2007 Professionnel

Le code de mon application est le suivant (essentiellement copié des instructions du document de référence).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Dim Wmp As WindowsMediaPlayer
 
Private Sub CommandButton1_Click()
    Call jouerWMPlayer
End Sub
 
Sub jouerWMPlayer()
    Set Wmp = CreateObject("WMPlayer.OCX.7")
    Wmp.URL = "C:\TestXX.mp3"
    Wmp.Controls.Play
End Sub

Si vous devinez où je me "plante", merci de m'informer... autrement, merci encore pour votre support.

Attention Caféine.. mes usagers sont malheureusement francophones, ce qui m'empèche d'utiliser directement la fonction d'Excel.

Louis