Discussion :

[DurDur]

Bonjour,

J'ai réalisé une petite appli avec la possibilité de lire (entendre) le contenu d'une cellule.
Avec un logiciel de synthèse vocale, j'ai réalisé manuellement pour chaque cellule concernée un fichier mp3.

Pour lire ce fichier, j'ai essayé deux façons de faire :

Manière 1 - Dans mon formulaire, j'ai mis un contôle activex et ce qui me gène, c'est qu'à l'ouverture, il y a le message:
"Cette application est sur le point d'initialiser les contrôles activeX .....", c'est gênant.
Dans la gestion des paramètres ActiveX, la case "Activer tous les contrôles ..." est bien cochées.

Donc j'ai essayé cela,

Manière 2 - Il n'y a pas de contrôle activex dans mon form.
J'enclenche la lecture à l'aide du code suivant:

Code :

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

Shell(C:\Program Files\Windows Media Player\wmplayer.exe C:\001.mp3")

Cela fonctionne bien, mais WMP est visible et reste visible après la lecture.

Avez vous une solution pour l'une ou l'autre de ces manières de procéder ?
ou avez vous une autre façon de faire ?

Je suis à votre écoute.

Merci.

JCB57

[Invité]

Bonsoir,
Dans cette discussion tu devrais trouver ton bonheur!

http://www.developpez.net/forums/d16...m/#post8762175

[patricktoulon]

Bonsoir
perso afin de libérer l'application pendant la lecture du son je la li extérieurement a l'aide d'un fichier VBS utilisant l'ocx WMP classic que l'on ne peut plus utiliser en VBA
je créé donc le vbs et le lance par VBA il se détruit après lecture automatiquement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
son = "H:\mes musique\Amy Mc Donald\Lets Start A Band - Amy Mc Donald -  Album 2008\Amy Mc Donald - Lets Start A Band.mp3"
joue_le_son son
End Sub
Function joue_le_son(son)
     code = code & "fichier= Wscript.ScriptFullName" & vbCrLf
    code = code & " Set wmp = CreateObject(""WMPlayer.OCX"")" & vbCrLf
    code = code & "wmp.settings.autoStart = True" & vbCrLf
    code = code & "wmp.settings.volume = 100" & vbCrLf
    code = code & "wmp.URL = """ & son & """" & vbCrLf
    code = code & "While wmp.Playstate <> 1" & vbCrLf
    code = code & "WScript.Sleep 1" & vbCrLf
    code = code & "Wend" & vbCrLf
    code = code & "Set fso = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf
    code = code & "fso.DeleteFile (fichier)" & vbCrLf
    code = code & "Set fso = Nothing" & vbCrLf
    fichier = ThisWorkbook.Path & "\jouer le son.vbs"
    x = FreeFile
    Open fichier For Output As #x
    Print #x, code
    Close #x
    Set w = CreateObject("Wscript.shell")
    w.Run """" & fichier & """"
End Function

voila

[unparia]

Bonjour

Pour lire ce fichier, j'ai essayé deux façons de faire :

Il y en a une troisième :
- création et exécution d'un objet OLE, en dur ou en lien avec un hyperlink (au choix)
Cela évitera entre autres et les messages disgracieux et l'utilisation de VBS (délibérément inhibé sur certaines machines, dont la mienne)

Tiens, regarde ce que je viens de bâcler et qui me semble le mieux adapté à ta configuration (sons différents selon cellule) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Application.ScreenUpdating = False 'on veut éviter unj clignotement
   On Error Resume Next ' juste pour le cas où fichier inexistant ou corrompu
 
   'on va maintenant créer un objet OLE se rapportant à un fichier dont
   'le chemin figure en cellule G1 (exemple)
   ActiveSheet.OLEObjects.Add(Filename:=Range("G1").Text, Link:=True).Select ' on le sélectionne
   If Err.Number <> 0 Then ' si fichier inexistant ou corrompu, on abandonne
     Application.ScreenUpdating = True
     MsgBox "Impossible de jouer (fichier inexistant ou corrompu)" & ActiveCell.Text
     Exit Sub
   End If
   Selection.Verb ' on exécute la lecture
   Selection.Delete ' on peut maintenant détruire notre objet OLE
   Application.ScreenUpdating =True

Tu devrais vite voir comment inclure cela dans ton projet, en fonction de la cellule concernée.

On évite ainsi à la fois les messages et l'utilisation de VBS (relire mon message précédent à ce sujet).

EDIT : j'ai corrigé le dernier screenupdating, que j'avais mis (mal réveillé) indûment à) False au lieu de true.

[patricktoulon]

Bonjour unparia

tout d'abords merci j'avais complètement zappé "verb"

mais ici on a justement comme résultat ce que le demandeur ne veut pas

un message non dépendant de Excel s'affiche (voir capture )

puis ensuite c'est le WMplayer qui s'affiche

a trop vouloir te protéger tu te supprime des possibilités

comme tu dis chacun son "manioc"


voila

[DurDur]

Bonjour et merci pour vos réponses rapides.

J'ai installé la suggestion de "PatrickToulon" qui correspond au résultat cherché.
Auparavant, j'avais trifouillé la base de registre (pas très conseillé), et je ne dormais pas tranquille.
Maintenant tout est en ordre.

Il me reste une question : comment arrêter le son si je change de cellule ?

Merci.

JCB57

[unparia]

Bonjour patricktoulon
Pas de message sur ma machine ! Le son est joué directement.
Il se peut alors que ma machine soit configurée pour ouvrir par défaut en xlPrimary et la tienne en XlOLEVerbxlOpen
Forçons dans ce cas la main, ainsi :

Code :

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

Selection.Verb xlPrimary

Pour ce qui est de l'inhibition de VBS : Excuse-moi, mais :
- je suis loin d'être le seul à la pratiquer
- chacun court en effet les risques qu'il accepte de courir. Mais dans ce cas : il est pour le moins aléatoire de tenter de distribuer ton appli ... .
Et si tu le fais, il te faudra demander à tes "clients" d'autoriser VBS (et tu verras la réponse que certains te feront ).

[patricktoulon]

ok il te suffit de killer le processus wscript.exe
pour cela je te donne une fonction toute prete a l'emploi

alors voila

j'ai mis mes chanson en mp3 dans la colonneA pour l'exemple

dans l'evenement selection change du sheets j'ai mis

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target <> "" Then
            joue_le_son Target.Value
        Else
            KillProcess "wscript.exe"
        End If
    End If
End Sub

et avec la sub que je t'ai déjà donné

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Function KillProcess(ByVal ProcessName As String) As Boolean
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'wscript.exe'")
    For Each myp In colProcessList
        myp.Terminate
    Next
    Set colProcessList = Nothing
    Set objWMIService = Nothing
End Function
''''*********************
'LSteph
 
Sub test()
    son = "H:\mes musique\Amy Mc Donald\Lets Start A Band - Amy Mc Donald -  Album 2008\Amy Mc Donald - Lets Start A Band.mp3"
    joue_le_son son
End Sub
Function joue_le_son(son)' on kill le processus wscript.exe si il est en cours 
    KillProcess "wscript.exe"
    code = code & "fichier= Wscript.ScriptFullName" & vbCrLf
    code = code & " Set wmp = CreateObject(""WMPlayer.OCX"")" & vbCrLf
    code = code & "wmp.settings.autoStart = True" & vbCrLf
    code = code & "wmp.settings.volume = 100" & vbCrLf
    code = code & "wmp.URL = """ & son & """" & vbCrLf
    code = code & "While wmp.Playstate <> 1" & vbCrLf
    code = code & "WScript.Sleep 1" & vbCrLf
    code = code & "Wend" & vbCrLf
    code = code & "Set fso = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf
    code = code & "fso.DeleteFile (fichier)" & vbCrLf
    code = code & "Set fso = Nothing" & vbCrLf
    fichier = ThisWorkbook.Path & "\jouer le son.vbs"
    x = FreeFile
    Open fichier For Output As #x
    Print #x, code
    Close #x
    Set w = CreateObject("Wscript.shell")
    w.Run """" & fichier & """"
End Function

voila a chaque fois que tu sélection une cellule différente dans la colonne A ca coupe la précédente et joue la nouvelle si tu veux stopper tu clique sur une cellule vide c'est tout pour le moment dit la voix

[jurassic pork]

hello,
DurDur as-tu regardé cette discussion ?

Bonsoir,
Dans cette discussion tu devrais trouver ton bonheur!

http://www.developpez.net/forums/d16...m/#post8762175

Parce qu'avec mcisendstring il y a de fortes chances (cela dépend de l'O.S et de la configuration, des codecs installés) que tu puisses jouer des mp3 et les arrêter sans passer par du kill et en étant totalement invisible.
Mcisendstring n'aime pas trop les espaces dans les chemins et noms de fichiers (même en mettant des guillemets) alors il faut lui passer le nom court du fichier pour ne pas avoir d'erreurs dans ce cas là.
Voici par exemple comment jouer un mp3 à partir du chemin contenu dans la cellule active.
Les déclarations :

Code :

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

1
2
3
4
5
6
7
Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias _
   "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
   lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
   hwndCallback As Long) As Long
Private Declare Function fGetShortPathName Lib "kernel32" Alias _
   "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal _
   lpszShortPath As String, ByVal cchBuffer As Long) As Long

La fonction VBA qui permet d'avoir le nom court d'un fichier avec son chemin :

Code :

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

1
2
3
4
5
6
7
8
9
Function GetShortPathName(sLongPathName As String) As String
  Dim lLen As Long
  Dim sShortPathname As String
  If Dir(sLongPathName, vbDirectory) = "" Then Exit Function
  sShortPathname = Space$(260)
  lLen = fGetShortPathName(sLongPathName, sShortPathname, 260)
  'If (lLen = 0) Then Exit Function  'Not needed since DIR was used.
  GetShortPathName = sShortPathname
End Function

jouer le mp3 :

Code :

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

1
2
3
4
5
6
7
8
9
Sub PlayMP3()
   Dim AudioFile As String
   Dim MciError As Long
   AudioFile = GetShortPathName(ActiveCell.Text)
   MciError = mciSendString("play " & AudioFile, 0&, 0, 0)
   If MciError <> 0 Then
   MsgBox ("Erreur MCI : " & MciError)
   End If
End Sub

Arrêter le mp3 :

Code :

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

1
2
3
4
5
6
7
8
9
Sub ArretMP3()
Dim AudioFile As String
Dim MciError As Long
AudioFile = GetShortPathName(ActiveCell.Text)
MciError = mciSendString("close " & AudioFile, 0&, 0, 0)
   If MciError <> 0 Then
   MsgBox ("Erreur MCI : " & MciError)
   End If
End Sub

Ami calmant, J.P

[unparia]

Enfin, quoi !
Sans commentaires (je vais m'y refuser) en ce qui concerne le "mécanisme" proposé avec vbs et ses tremplins ...
Je n'ai sur la machine où je me trouve aucun .mp3 de son uniquement, mais je ne vois pas pourquoi ce simple petit code, que je viens de bâcler avec des fichiers .wav, ne fonctionnerait pas avec des .mp3 de son seulement :
en colonne A, des chemins de fichiers son valides.
Ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
    (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Private Const SND_FILENAME As Long = &H20000
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   PlaySound vbNullString, 0, 0
   sndPlaySound Target.Text, SND_ASYNC Or SND_NODEFAULT
End Sub

Lorsque je sélectionne en colonne A ==>> j'ai mon son
Si je fais une autre sélection, le premier son s'arrête et laisse jouer le second, etc ...
Si je sélectionne une cellule vide ou même une cellule dont le contenu n'est pas un fichier son valide, tout s'arrête

[jurassic pork]

hello unparia,
il me semble que sndPlaySound and PlaySound ne fonctionnent qu'avec des fichiers .wav

[unparia]

Bonjour jurassic pork

il me semble que sndPlaySound and PlaySound ne fonctionnent qu'avec des fichiers .wav

Tu "crois" (il te "semble que") ? Tu as essayé ? (avec des .mp3 ne contenant QUE du son ?)
Mets-moi ici s'il te plait 2 ou 3 .mp3 de son seul et on verra ce que j'en ferai

[patricktoulon]

bonjour
jurassic pork impossible de s'introniser (play/stop) j'ai 36 chansons qui sont en route en même temps par contre l'api mci joue bien les mp3

je vais tester celle de unparia maintenant avec playsound

[jurassic pork]

hello,
unparia, j'ai un peu le même problème que toi je ne peux essayer d'où je suis (pas d'excel). voici un petit mp3 pour tester de ton côté .

un petit clin d'oeil à Patricktoulon

[DurDur]

Bonsoir à tous,

En posant cette question anodine, je ne pensais pas déclarer cette guerre entre puriste.

Je voyais plutôt une ou deux lignes de code comme réponse.

Comme j'aime les choses simple, après avoir essayé les autres possibilités, je reste avec la solution de PatrickToulon qui me donne satisfaction.

Encore un gros merci à tous.

JCB57

[patricktoulon]

re
merci mais c'est pas une guerre mais comme très souvent

avec unparia le sage et le cochon aux grandes dents

les accords divergent et ne sont pas in constructifs au contraire

perso je regarderais a temps perdu la méthode de jurrassic pork qui fonctionne a 80% par rapport a ta demande pour remanier la synchronisation +1 pour le vieux cochon sauvage

quand a playsound non la c'est catégorique ca ne fonctionne pas

après l'urtication de verb n'est pas si mal en xlprimary +1 pour unparia pour la simplicité
je regarderais aussi cela de plus prêt

[jurassic pork]

hello,
hé Patrick, tu aurais pu nous sortir la solution de synthèse vocale avec SAPI.spvoice vue la demande initiale :

J'ai réalisé une petite appli avec la possibilité de lire (entendre) le contenu d'une cellule.
Avec un logiciel de synthèse vocale, j'ai réalisé manuellement pour chaque cellule concernée un fichier mp3.

[unparia]

J'ai finalement pu retrouver quelques mp3 de son uniquement sur un vieux support.
Ils ne sont en effet pas lus par sndPlaySound.
Je vais dans ce cas tenter deux choses :
- la 1ère : reprendre mon idée d'utilisation d'objet OLE
- la 2ème : "tromper" en "tripotaillant" une entête
(il y en a bien une 3ème, mais je préfère faire d'abord quelques tests avant de même en parler).

[patricktoulon]

hello,
hé Patrick, tu aurais pu nous sortir la solution de synthèse vocale avec SAPI.spvoice vue la demande initiale :

Bonjour jurrassik pork oui et non car il faut installer une voix française(virginie)

et si le sujet va dans ce sens j'ai deux contrib sur le sujet qui sont amplement expliquée

le module dictée avec Google

pareil avec la voix virginie et j'explique comment la faire marcher en 32 ou 64 bits

@unparia avec verb essaie de nous faire un play/stop)cela serait intéressant

@jurassic pork revoie un peu ton model pour le(play/stop)

[DurDur]

hello,
hé Patrick, tu aurais pu nous sortir la solution de synthèse vocale avec SAPI.spvoice vue la demande initiale :

C'est une piste intéressante mais la cellule qui a généré le mp3 est en russe.
Pour le moment, je me sert de Google traduction et capture le son généré et cela un à un.
C'est fastidieux, mais je n'ai pas trouvé comment automatiser ça.
Si quelqu'un a une idée (j'ai 500 phrases à transformer en son), je suis preneur.
Encore merci à tous.

JCB57