Bonsour® Clément Marcotte avec ferveur ;o))) vous nous disiez :
Mais, puisque le fichier de musique est joué par Windows et non par Excel, je doute que l'on puisse l'arrêter du seul clic. Peut-être en jouant avec l'API pour tuer la tâche, mais là...
en effet, mais dans ce cas nul besoin de WMPlayer les API MCIsendString permettent ceci sans userform voir l'utilisation que j'en fais dans excelabo GD_matriochkas rechercher via GooGle également sur ce forum à ce sujet une intervention de Michel Pierron qui m'a permit cette mise en oeuvre
Public FileToPlay As String Public Alias As String Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
lancer la musique : Alias = Left$(FileToPlay, Len(FileToPlay) - 4) '----------------------------------play midi r% = mciSendString("OPEN " + FileToPlay + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0) r% = mciSendString("PLAY " + Alias + " FROM 0", 0&, 0, 0) r% = mciSendString("CLOSE ANIMATION", 0&, 0, 0)
arreter la musique : On Error GoTo fini Alias = Left$(FileToPlay, Len(FileToPlay) - 4) r% = mciSendString("OPEN " + FileToPlay + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0) r% = mciSendString&("STOP " + Alias, 0&, 0, 0) r% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0) fini:
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Bonsour® Clément Marcotte avec ferveur ;o))) vous nous disiez :
Mais, puisque le fichier de musique est joué par Windows et non par Excel,
je doute que l'on puisse l'arrêter du seul clic. Peut-être en jouant avec
l'API pour tuer la tâche, mais là...
en effet, mais dans ce cas nul besoin de WMPlayer
les API MCIsendString permettent ceci sans userform
voir l'utilisation que j'en fais dans excelabo GD_matriochkas
rechercher via GooGle également sur ce forum à ce sujet
une intervention de Michel Pierron qui m'a permit cette mise en oeuvre
Public FileToPlay As String
Public Alias As String
Private Declare Function mciSendString Lib "winmm.dll" Alias
"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As
String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
lancer la musique :
Alias = Left$(FileToPlay, Len(FileToPlay) - 4)
'----------------------------------play midi
r% = mciSendString("OPEN " + FileToPlay + " TYPE SEQUENCER ALIAS " +
Alias, 0&, 0, 0)
r% = mciSendString("PLAY " + Alias + " FROM 0", 0&, 0, 0)
r% = mciSendString("CLOSE ANIMATION", 0&, 0, 0)
arreter la musique :
On Error GoTo fini
Alias = Left$(FileToPlay, Len(FileToPlay) - 4)
r% = mciSendString("OPEN " + FileToPlay + " TYPE SEQUENCER ALIAS " +
Alias, 0&, 0, 0)
r% = mciSendString&("STOP " + Alias, 0&, 0, 0)
r% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
fini:
--
;o)))
@+
Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
Bonsour® Clément Marcotte avec ferveur ;o))) vous nous disiez :
Mais, puisque le fichier de musique est joué par Windows et non par Excel, je doute que l'on puisse l'arrêter du seul clic. Peut-être en jouant avec l'API pour tuer la tâche, mais là...
en effet, mais dans ce cas nul besoin de WMPlayer les API MCIsendString permettent ceci sans userform voir l'utilisation que j'en fais dans excelabo GD_matriochkas rechercher via GooGle également sur ce forum à ce sujet une intervention de Michel Pierron qui m'a permit cette mise en oeuvre
Public FileToPlay As String Public Alias As String Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
lancer la musique : Alias = Left$(FileToPlay, Len(FileToPlay) - 4) '----------------------------------play midi r% = mciSendString("OPEN " + FileToPlay + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0) r% = mciSendString("PLAY " + Alias + " FROM 0", 0&, 0, 0) r% = mciSendString("CLOSE ANIMATION", 0&, 0, 0)
arreter la musique : On Error GoTo fini Alias = Left$(FileToPlay, Len(FileToPlay) - 4) r% = mciSendString("OPEN " + FileToPlay + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0) r% = mciSendString&("STOP " + Alias, 0&, 0, 0) r% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0) fini:
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
