Discussion :

[jurassic pork]

hello,
Patrick avec un close all cela devrait mieux fonctionner. Comme ceci par exemple :

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
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
 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

==============================================

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
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
Sub ArretMP3()
Dim AudioFile As String
Dim MciError As Long
AudioFile = GetShortPathName(ActiveCell.Text)
MciError = mciSendString("close all", 0&, 0, 0)
   If MciError <> 0 Then
   MsgBox ("Erreur MCI : " & MciError)
   End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = 1 Then
        If Target <> "" Then
           ArretMP3
           PlayMP3
        Else
            ArretMP3
        End If
    End If
End Sub

Ami calmant, J.P

[DurDur]

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)

Alors là, c'est fort. je me penche là dessus pour automatiser la création des mp3

JCB57

[patricktoulon]

re

et si on allais au plus simple heinn !!!!

dans l'évènement du sheets toujours avec les musiques en colonne A

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target <> "" Then
            Shell """C:\Program Files\Windows Media Player\wmplayer.exe"" """ & Target.Value, vbHide
        Else
            strComputer = "."
            Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
            Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'wmplayer.exe'")
            For Each myp In colProcessList
                myp.Terminate
            Next
            Set colProcessList = Nothing
            Set objWMIService = Nothing
        End If
    End If
End Sub

toujours pareil ca change la musique quand on change de cellule et stop tout quand on clique dans une cells vide

et voila c'est tout

[DurDur]

C'est intéressant et le plus simple.
Il faut que j'adapte, ma commande est un bouton sur un userform.

@+

JCB57

[patricktoulon]

re
a bon!!!!
a faire ca dans un userform j'aurais utilisé le contrl wmp et en plus on aurait eu la main sur les évènements Player

[DurDur]

Le contrôle wmp était ma première manière qui déclenche le message d'activation des "activeX", ce que je voulais éviter si mon appli est utiliser par une autre personne sur une autre machine.

JCB57

[DurDur]

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

Pour transformer du texte en son, j'ai trouvé cette appli gratuite qui a fait le travail en deux coups de cuillère à pot : " Balabolka", le russe y est intégré.

JCB57

[SebH37]

Bonjour Patrick,

J'ai découvert votre proposition en .VBS pour pouvoir lire en fichier son depuis une procédure VBA.
Débutant dans le domaine j'essaie de saisir le fonctionnement; Il y a une partie qui m'échappe et qui, à priori, semble essentielle pour l'exécution de la lecture du fichier audio :
"code = code & "While wmp.playstate <> 1" & vbCrLf
code = code & "WScript.Sleep 1" & vbCrLf
code = code & "Wend" & vbCrLf"

Ce que je comprends c'est que l'on dit "tant que l'état de lecture de windows media player n'est pas en mode arrêt, on met l'exécution du .VBS en pause d'une milliseconde";
Ce que je remarque, lorsque j'ôte cette partie du code, c'est que plus rien ne fonctionne. Mais je ne comprends pas par quel biais cette condition while rend l'exécution du fichier audio possible.

Pourriez-vous m'éclairer svp ?
Ca m'aiderait beaucoup

En vous remerciant

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

[jurassic pork]

hello,
la discussion commence à dater ( 5 ans) et patrick toulon ça fait longtemps que je ne l'ai pas vu dans le forum. Sinon tu peux essayer ma proposition du message #21.
Ami calmant, J.P

[SebH37]

Hello Jurrassic Pork

Merci pour ta réponse
. Hélas oui mais ça répondais à mes recherches ^^; de plus vous proposez pas mal de solutions différentes, ce post est très intéressant.

J'ai bien décortiqué celle de M. Toulon; mais je ne comprends toujours pas pourquoi dans le fichier .VBS il y a ce While et cette mise en pause de l'exécution du script avec le .sleep
C'est ça, en revanche, qui permet de déclencher la lecture apparemment .. :/

J'ai commencé à étudier ta proposition mais là bon .. eh bien il ya plein de concepts que je ne connais pas encore; notamment mciSendString, les définitions de variables avec ByVal ..
Bon je prends le temps de regarder tout ça et faire quelques recherches, afin de voir ce que je peux parvenir à comprendre de moi-même et je reviens avec mes questions

[jurassic pork]

hello,
pour windows media player il y a cette solution qui peut fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
DIM OWMP As Object
 
Sub JoueSon()
Set OWMP = CreateObject("new:WMPlayer.OCX.7")
OWMP.Url = "D:\Musique\MaMusique.mp3"
End Sub
 
Sub ArretSon()
OWMP.Controls.Stop
End Sub
'

OWMP doit être déclaré "globalement" sinon le lecteur est détruit à la sortie de la fonction où il est déclaré.
Dans le CreateObject si on ne met pas le new: il y a une erreur automation.
On peut mettre aussi :

Code :

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

Set OWMP = CreateObject("new:6BF52A52-394A-11D3-B153-00C04F79FAA6")

Ami calmant, J.P

[SebH37]

Hello JP,

Merci pour ton retour; je ne réponds que maintenant je termine mes journées tard ces derniers jours.
Cette méthode est plutôt pas mal aussi.
Quand tu dis globalement tu veux dire en début de module (parce que je me demande si on peut créer une déclaration de variable ou d'objet qui soit valable pour tout un classeur oO ?)
Je vais aussi m'intéresser à ta proposition #21 car elle possède une syntaxe qui va me permettre d'apprendre pas mal de choses...

[SebH37]

par exemple rien que dans ça :

Code :

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

1
2
3
4
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

J'ai commencé a faire des recherches sur mciSendString mais je n'ai pas trouvé :
pourquoi on fait un Private Declare ?
Si on utilise Byval lpstr, je ne trouve rien qui explique à quoi ça correspond (Byval je sais que ça sert à faire référence à la valeur seule d'une variable connue, donc j'imagine que lpstrCommand et ReturnString sont inhérent à l'OS...)
l'utilisation de Alias aussi m'est encore inconnu

voila voila plein de questions, je vais essayer de continuer mes recherches d'ici ce week-end ou j'aurai plus de temps
Mais si tu peux m'éclairer un peu ..

Merci à toi en tout cas

[SebH37]

hello,
pour windows media player il y a cette solution qui peut fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
DIM OWMP As Object
 
Sub JoueSon()
Set OWMP = CreateObject("new:WMPlayer.OCX.7")
OWMP.Url = "D:\Musique\MaMusique.mp3"
End Sub
 
Sub ArretSon()
OWMP.Controls.Stop
End Sub
'

OWMP doit être déclaré "globalement" sinon le lecteur est détruit à la sortie de la fonction où il est déclaré.
Dans le CreateObject si on ne met pas le new: il y a une erreur automation.
On peut mettre aussi :

Code :

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

Set OWMP = CreateObject("new:6BF52A52-394A-11D3-B153-00C04F79FAA6")

Ami calmant, J.P

Bonjour JP,

J'ai commencé à bien me pencher sur ta proposition,j'ai fait des recherches sur plusieurs paramètres qui ma paraissent à présent "un peu plus clair" ...
Cependant j'ai un soucis car je rencontre une erreur dès le début ( photo ci-jointe)

Ce qui fait que je ne peux meme pas observer ce qui se passe dans la fenêtre variables locales pour étudier le déroulement du programme :/

Merci de ton aide

[jurassic pork]

hello,
ce que je ne comprends pas c'est que tu nous montres mon message avec Windows Media Player et tu nous montres du code avec MCISendString

et pour le code c'est normal que tu aies une erreur car MciSendString est déclaré en private dans le module module1 et ton code est dans feuille1. Soit tu mets tout le code dans module1 ou soit tu mets tout dans feuiile1.
Ami calmant, J.P

[SebH37]

hello,
ce que je ne comprends pas c'est que tu nous montres mon message avec Windows Media Player et tu nous montres du code avec MCISendString

et pour le code c'est normal que tu aies une erreur car MciSendString est déclaré en private dans le module module1 et ton code est dans feuille1. Soit tu mets tout le code dans module1 ou soit tu mets tout dans feuiile1.
Ami calmant, J.P

Bonjour JP,

C'était pour répondre via le dernier échange que nous avions eu.
Ah . effectivement j'ai mis tout dans le la Feuil1, mais il me semblait que les fonctions pouvaient résider dans les modules ..?

En revanche, le fichier audio ne se lit pas et en observant le code je ne voit pas quel élément permet de lancer une lecture ... :/

[jurassic pork]

tu t'embêtes vraiment pour rien avec la méthode mcisendstring tu peux avoir des problèmes avec les noms de fichiers , leurs emplacements. Utilise la méthode avec windows media player beaucoup plus simple et fiable.
Ami calmant, J.P

[SebH37]

tu t'embêtes vraiment pour rien avec la méthode mcisendstring tu peux avoir des problèmes avec les noms de fichiers , leurs emplacements. Utilise la méthode avec windows media player beaucoup plus simple et fiable.
Ami calmant, J.P

En fait si je fais ça c'est dans un but d'apprentissage. Tout ça me permet d'appréhender une certaine logique et des concepts nouveaux pour moi qui me serviront dans ma progression. E fin apprendre quoi !

Du coup pourrais-tu m'éclairer stp sur ce code ?
a aucun endroit je n'arrive à percevoir l'instruction qui lance la lecture de l'audio :/

Je vois qu'il y une private Sub avec un appel soit de PlayMP3 ou ArretMP3, mais je ne comprends pas vraiment à quelle moment celle-ci est lue ...

[SebH37]

Bonsoir Jurassic Pork,

j'essaie de trouver des tutos sur cette fonction pour apprendre à m'en servir mais je ne trouve rien de très concret. Saurais tu m'expliquer ce qui se passe dans le code que tu as proposé ou bien connais des sources d'informations pour apprendre de cette fonction?

Merci beaucoup,

[jurassic pork]

hello,
la documentation est ici . S'aider d'un moteur de recherche pour trouver des tutoriels et ne plus polluer cette discussion car on s'éloigne du sujet initiale et qui est d'ailleurs marqué comme résolu. Moi je ne réponds plus dans cette discussion pour ne pas la polluer inutilement

Ami calmant, J.P