Discussion :

[Zebulon777]

Salut tout le monde,

Avant, sous windows XP, mes applications lançaient un message sonore sans aucun problème et l'application s'arrêtait tant que le message n'était terminé.
Voici les fonctions que j'utilise :

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
 
Function MessageSonore(P_Fichier_wav)
    Application.ScreenUpdating = False
 
    WFichier_txt = G_DOSSIER_SPEECH & "\" & P_Fichier_wav
    If Test_Fichier("C:\windows\system32\sndrec32.exe", False) = True Then ' Windows XP
        If Test_Fichier(WFichier_txt, False) = True Then
            ShellWait "sndrec32 /play /Close " & WFichier_txt
        Else
            ShellWait "sndrec32 /play /Close " & G_DOSSIER_SPEECH & "\" & "message_sonore_inexistant.wav"
        End If
    Else 'Windows SEVEN
        If Test_Fichier(WFichier_txt, False) = True Then
            mciExecute ("play " & WFichier_txt)
        Else
            mciExecute ("play " & G_DOSSIER_SPEECH & "\" & "message_sonore_inexistant.wav")
        End If
    End If
End Function
 
Public Sub ShellWait(ByVal JobToDo As String)
Dim hProcess As Long, RetVal As Long
 
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(JobToDo, vbMinimizedNoFocus))
    Do
        GetExitCodeProcess hProcess, RetVal
        DoEvents
'        Sleep 10
    Loop While RetVal = STILL_ACTIVE
End Sub

Maintenant, sous SEVEN, je n'arrive pas à ce que l'application s'arrête le temps du message sonore.
Merci d'avance pour votre aide.

[Invité]

Bonjour,
je te renvoi à la dissolution que tu avais déjà ouverte:
http://www.developpez.net/forums/d13...a/#post7462061
les mêmes causes produisant souvent les mêmes effets.

[Invité]

J'me disais bien, la fonction ShellWait(ByVal JobToDo As String) me rappelais quelque chose.

En tout cas, à première vue, c'est assez bizarre qu'il y ai une parenthèse à la fonction mciexecute.
Les fonctions prennent des parenthèse lorsqu'elle retourne quelquechose du style

msgbox MaFonction(a)ou encore
MaVariable = MaFonction(a)Je peux me tromper, mais il doit y avoir un message indiquant que ce n'est pas bon ?

[Zebulon777]

Oui, oui, sauf que ça ne fonctionne pas.
En fait ce n'est pas tout à fait le même problème.
je n'arrive pas à passer en paramètre "mciExecute ("play " & WFichier_txt)"

Les fonctions ShellWait ou LanceEtAttendLaFin plante.

Je suis entrain d'essayer une autre solution, mais avec le même résultat :

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
 
Private Declare Function OpenProcess Lib "Kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WaitForSingleObject Lib "Kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Public Const INFINITE = &HFFFF
 
Function MessageSonore(P_Fichier_wav)
    Application.ScreenUpdating = False
 
    WFichier_txt = G_DOSSIER_SPEECH & "\" & P_Fichier_wav
    If Test_Fichier("C:\windows\system32\sndrec32.exe", False) = True Then ' Windows XP
        If Test_Fichier(WFichier_txt, False) = True Then
            ShellWait "sndrec32 /play /Close " & WFichier_txt
        Else
            ShellWait "sndrec32 /play /Close " & G_DOSSIER_SPEECH & "\" & "message_sonore_inexistant.wav"
        End If
    Else 'Windows SEVEN
        If Test_Fichier(WFichier_txt, False) = True Then
'            mciExecute ("play " & WFichier_txt)
'            Sleep 5000 'Pause de 5 secondes
WCommande = "mciExecute(play " & WFichier_txt & ")"
LanceEtAttendLaFin (mciExecute("play " & WFichier_txt))
        Else
            mciExecute ("play " & G_DOSSIER_SPEECH & "\" & "message_sonore_inexistant.wav")
            Sleep 5000 'Pause de 5 secondes
        End If
    End If
End Function
 
Function LanceEtAttendLaFin(ByVal CheminComplet As String) As Long
    Dim ProcessHandle As Long
    Dim ProcessId As Long, ret&
 
    ProcessId = Shell(CheminComplet, vbNormalFocus)
    ProcessHandle = OpenProcess(&H1F0000, 0, ProcessId)
    LanceEtAttendLaFin = WaitForSingleObject(ProcessHandle, INFINITE)
 End Function

[Invité]

Oui mais tu n'as pas supprimé les parenthèses après la fonction.

Il faut faire

Code :

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

Mafonction "Texte1", "Texte2"

Les parenthèses se mettent lorsqu'une variable récupère une valeur provenant de la fonction

Code :

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

1
2
MsgBox MaFonction("Texte1", "Texte2")
B = MaFonction("Texte1", "Texte2")

Tu vois à peu près la différence ?

En principe, il doit y avoir un message lorsque les parenthèses sont déclarées, non ?

Je ne suit pas sûr, mais il me semble quand même que Shell sert uniquement aux .EXE (executable). Une petite confirmation serait la bienvenue, mais je crois que c'est réservé aux applications.

[Invité]

je n'ai pas dit que nous avions apportés la solution, mais je voie que c'est bien le même problème:

Code :

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

Private Declare Function OpenProcess Lib "Kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

nous avion investigué la piste et envisagé un début de solution, je pense que ton dernier poste était plus avancé dans une éventuelle résolution.

alors que là, juste ou pas, nous allons aborder les même éventualités et redire tous ce qui n'a vraisemblablement abouti.

[Zebulon777]

LOL, je craque avec ce truc.

Si je supprime les parenthèse, le mciExecute ne fonctionne plus.
Si je mets :

Code :

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

LanceEtAttendLaFin ("notepad.exe")

, ça fonctionne.
La macro VBA s'arrête bien tant que le NOTEPAD n'est pas fermé.

Par contre, la commande

Code :

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

mciExecute ("play " & WFichier_txt)

fonctionne très bien, mais la macro ne s'arrête pas.

Si je mets :

Code :

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

1
2
3
 
WCommande = mciExecute("play " & WFichier_txt)
LanceEtAttendLaFin WCommande

Dans ce cas-la, il passe le résultat de l'instruction en paramètre et non la l'instruction elle-même.
La solution n'est pas loin, mais elle n'est pas là...