Arrêt synchronisé de musique dans macro existante !
4 réponses
DC
Bonjour à tous !
Voilà, je dispose d'un fichier "anniversaires" qui s'ouvre avec le fichier
démarrage et se ferme automatiquement par un "OK" dans la fenêtre de lecture
des anniversaires,
Dernièrement j'ai rajouté un peu de musique pour améliorer la convivialité
et çà fonctionne parfaitement, le seul petit inconvénient, est que je
n'arrive pas à faire l'arrêt automatique de la
musique en même temps que le programme "anniversaire" qui lui est géré par
le "OK" qui éxécute la macro que voici,
'--------------------------------------------------
Sub fermoi()
Application.DisplayAlerts = False
Application.Quit
End Sub
'--------------------------------------------------
Et à première vue, j'ai l'impression que c'est dans cette macro qu'il
faudrait faire quelque chose ! mais quoi ?
J'ai donc mis, dans le fichier de démarrage, à coté du fichier anniversaire,
un fichier musique que j'ai nommé "Music_anniversaires" et qui se trouve lu,
avec le "Lecteur Windows Media" et çà fonctionne très bien, sauf que je ne
peut l'arrêter, que manuellement, ex : Alt F4, Merci d'y penser !
Cordialement ! DC
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Modeste
Bonsour® DC avec ferveur ;o))) vous nous disiez :
je n'arrive pas à faire l'arrêt automatique de la musique en même temps que le programme "anniversaire" qui lui est géré par le "OK" qui éxécute la macro , '--------------------------------------------------
tiré de l'aide : http://www.mentalis.org/apilist/sndPlaySound.shtml
Flags for playing the sound. The following values are defined: SND_ASYNC The sound is played asynchronously and the function returns immediately after beginning the sound. To terminate an asynchronously played sound, call sndPlaySound with lpszSoundName set to NULL.
Sub fermoi() SndPlaySound Null Application.DisplayAlerts = False Application.Quit End Sub
-- ;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® DC avec ferveur ;o))) vous nous disiez :
je n'arrive pas à faire l'arrêt automatique de la
musique en même temps que le programme "anniversaire" qui lui est géré par
le "OK" qui éxécute la macro ,
'--------------------------------------------------
tiré de l'aide :
http://www.mentalis.org/apilist/sndPlaySound.shtml
Flags for playing the sound. The following values are defined:
SND_ASYNC
The sound is played asynchronously and the function returns immediately
after beginning the sound.
To terminate an asynchronously played sound, call sndPlaySound with
lpszSoundName set to NULL.
Sub fermoi()
SndPlaySound Null
Application.DisplayAlerts = False
Application.Quit
End Sub
--
;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
je n'arrive pas à faire l'arrêt automatique de la musique en même temps que le programme "anniversaire" qui lui est géré par le "OK" qui éxécute la macro , '--------------------------------------------------
tiré de l'aide : http://www.mentalis.org/apilist/sndPlaySound.shtml
Flags for playing the sound. The following values are defined: SND_ASYNC The sound is played asynchronously and the function returns immediately after beginning the sound. To terminate an asynchronously played sound, call sndPlaySound with lpszSoundName set to NULL.
Sub fermoi() SndPlaySound Null Application.DisplayAlerts = False Application.Quit End Sub
-- ;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
DC
Rebonjour Modeste,
J'ai éxactement fait ce qu'il y a dans ta modification de macro, et la réponse, est l'ouverture d'une fenêtre VBA " Erreur de compilation, Sub ou Fonction non définie " , '-------------------------------------------------------- Sub fermoi() SndPlaySound Null ( SndPlaySound, en surbrillance ) Application.DisplayAlerts = False Application.Quit End Sub '-------------------------------------------------------- Le dommage c'est que moi et l'Anglais, c'est très très difficile ! et peut -être que la solution est dans t'es explications, mais là je nage complètement ! Merci d'avance ! Cordialement ! DC
"Modeste" a écrit dans le message de news:
Bonsour® DC avec ferveur ;o))) vous nous disiez :
je n'arrive pas à faire l'arrêt automatique de la musique en même temps que le programme "anniversaire" qui lui est géré par le "OK" qui éxécute la macro , '--------------------------------------------------
tiré de l'aide : http://www.mentalis.org/apilist/sndPlaySound.shtml
Flags for playing the sound. The following values are defined: SND_ASYNC The sound is played asynchronously and the function returns immediately after beginning the sound. To terminate an asynchronously played sound, call sndPlaySound with lpszSoundName set to NULL.
Sub fermoi() SndPlaySound Null Application.DisplayAlerts = False Application.Quit End Sub
-- ;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
Rebonjour Modeste,
J'ai éxactement fait ce qu'il y a dans ta modification de macro, et la
réponse, est l'ouverture d'une fenêtre VBA " Erreur de compilation, Sub ou
Fonction non définie " ,
'--------------------------------------------------------
Sub fermoi()
SndPlaySound Null ( SndPlaySound, en surbrillance )
Application.DisplayAlerts = False
Application.Quit
End Sub
'--------------------------------------------------------
Le dommage c'est que moi et l'Anglais, c'est très très difficile ! et
peut -être que la solution est dans t'es explications, mais là je nage
complètement ! Merci d'avance !
Cordialement ! DC
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
eDB0q8RPGHA.668@TK2MSFTNGP11.phx.gbl...
Bonsour® DC avec ferveur ;o))) vous nous disiez :
je n'arrive pas à faire l'arrêt automatique de la
musique en même temps que le programme "anniversaire" qui lui est géré
par
le "OK" qui éxécute la macro ,
'--------------------------------------------------
tiré de l'aide :
http://www.mentalis.org/apilist/sndPlaySound.shtml
Flags for playing the sound. The following values are defined:
SND_ASYNC
The sound is played asynchronously and the function returns immediately
after beginning the sound.
To terminate an asynchronously played sound, call sndPlaySound with
lpszSoundName set to NULL.
Sub fermoi()
SndPlaySound Null
Application.DisplayAlerts = False
Application.Quit
End Sub
--
;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
J'ai éxactement fait ce qu'il y a dans ta modification de macro, et la réponse, est l'ouverture d'une fenêtre VBA " Erreur de compilation, Sub ou Fonction non définie " , '-------------------------------------------------------- Sub fermoi() SndPlaySound Null ( SndPlaySound, en surbrillance ) Application.DisplayAlerts = False Application.Quit End Sub '-------------------------------------------------------- Le dommage c'est que moi et l'Anglais, c'est très très difficile ! et peut -être que la solution est dans t'es explications, mais là je nage complètement ! Merci d'avance ! Cordialement ! DC
"Modeste" a écrit dans le message de news:
Bonsour® DC avec ferveur ;o))) vous nous disiez :
je n'arrive pas à faire l'arrêt automatique de la musique en même temps que le programme "anniversaire" qui lui est géré par le "OK" qui éxécute la macro , '--------------------------------------------------
tiré de l'aide : http://www.mentalis.org/apilist/sndPlaySound.shtml
Flags for playing the sound. The following values are defined: SND_ASYNC The sound is played asynchronously and the function returns immediately after beginning the sound. To terminate an asynchronously played sound, call sndPlaySound with lpszSoundName set to NULL.
Sub fermoi() SndPlaySound Null Application.DisplayAlerts = False Application.Quit End Sub
-- ;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
Modeste
Bonsour® DC avec ferveur ;o))) vous nous disiez :
J'ai éxactement fait ce qu'il y a dans ta modification de macro, et la réponse, est l'ouverture d'une fenêtre VBA " Erreur de compilation, Sub ou Fonction non définie " ,
comme tu ne précisais pas la procedure d'activation du son, et qu'il était question à un moment de "tada.wav" j'ai supposé que tu utilisais l'API sndplaysound qui "devrait" dorénavant etre utilisé en lieu et place de l'API Playsound
mais dans le principe cela reste le meme : http://www.mentalis.org/apilist/PlaySound.shtml To terminate an asynchronously played waveform sound, call PlaySound with pszSound set to NULL.
Sub fermoi() call PlaySound Null Application.DisplayAlerts = False Application.Quit End Sub
-- ;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® DC avec ferveur ;o))) vous nous disiez :
J'ai éxactement fait ce qu'il y a dans ta modification de macro, et la
réponse, est l'ouverture d'une fenêtre VBA " Erreur de compilation, Sub ou
Fonction non définie " ,
comme tu ne précisais pas la procedure d'activation du son,
et qu'il était question à un moment de "tada.wav"
j'ai supposé que tu utilisais l'API sndplaysound qui "devrait" dorénavant
etre utilisé en lieu et place de l'API Playsound
mais dans le principe cela reste le meme :
http://www.mentalis.org/apilist/PlaySound.shtml
To terminate an asynchronously played waveform sound, call PlaySound with
pszSound set to NULL.
Sub fermoi()
call PlaySound Null
Application.DisplayAlerts = False
Application.Quit
End Sub
--
;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
J'ai éxactement fait ce qu'il y a dans ta modification de macro, et la réponse, est l'ouverture d'une fenêtre VBA " Erreur de compilation, Sub ou Fonction non définie " ,
comme tu ne précisais pas la procedure d'activation du son, et qu'il était question à un moment de "tada.wav" j'ai supposé que tu utilisais l'API sndplaysound qui "devrait" dorénavant etre utilisé en lieu et place de l'API Playsound
mais dans le principe cela reste le meme : http://www.mentalis.org/apilist/PlaySound.shtml To terminate an asynchronously played waveform sound, call PlaySound with pszSound set to NULL.
Sub fermoi() call PlaySound Null Application.DisplayAlerts = False Application.Quit End Sub
-- ;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
DC
Bonsoir Modeste,
Je suis navré, de me retrouver dans l'obligation de te dire, que ce changement n'à pas fait évoluer le problème, c'est exactement la même chose, mais peut-être quand te précisant que le fichier "music anniversaires" qui se trouve dans le fichier de "démarage" ouvre en même temps le "Lecteur Windows Media", peut-être que ce sera plus limpide pour toi, Merci de ton dévouement ! '------------------------------------------------- Sub fermoi() call PlaySound Null Application.DisplayAlerts = False Application.Quit End Sub '------------------------------------------------ Cordialement ! DC
"Modeste" a écrit dans le message de news: OB56$
Bonsour® DC avec ferveur ;o))) vous nous disiez :
J'ai éxactement fait ce qu'il y a dans ta modification de macro, et la réponse, est l'ouverture d'une fenêtre VBA " Erreur de compilation, Sub ou Fonction non définie " ,
comme tu ne précisais pas la procedure d'activation du son, et qu'il était question à un moment de "tada.wav" j'ai supposé que tu utilisais l'API sndplaysound qui "devrait" dorénavant etre utilisé en lieu et place de l'API Playsound
mais dans le principe cela reste le meme : http://www.mentalis.org/apilist/PlaySound.shtml To terminate an asynchronously played waveform sound, call PlaySound with pszSound set to NULL.
Sub fermoi() call PlaySound Null Application.DisplayAlerts = False Application.Quit End Sub
-- ;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
Bonsoir Modeste,
Je suis navré, de me retrouver dans l'obligation de te dire, que ce
changement n'à pas fait évoluer le problème, c'est exactement la même chose,
mais peut-être quand te précisant que le fichier "music anniversaires" qui
se trouve dans le fichier de "démarage" ouvre en même temps le "Lecteur
Windows Media", peut-être que ce sera plus limpide pour toi, Merci
de ton dévouement !
'-------------------------------------------------
Sub fermoi()
call PlaySound Null
Application.DisplayAlerts = False
Application.Quit
End Sub
'------------------------------------------------
Cordialement ! DC
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
OB56$ZUPGHA.1360@TK2MSFTNGP10.phx.gbl...
Bonsour® DC avec ferveur ;o))) vous nous disiez :
J'ai éxactement fait ce qu'il y a dans ta modification de macro, et la
réponse, est l'ouverture d'une fenêtre VBA " Erreur de compilation, Sub
ou
Fonction non définie " ,
comme tu ne précisais pas la procedure d'activation du son,
et qu'il était question à un moment de "tada.wav"
j'ai supposé que tu utilisais l'API sndplaysound qui "devrait" dorénavant
etre utilisé en lieu et place de l'API Playsound
mais dans le principe cela reste le meme :
http://www.mentalis.org/apilist/PlaySound.shtml
To terminate an asynchronously played waveform sound, call PlaySound with
pszSound set to NULL.
Sub fermoi()
call PlaySound Null
Application.DisplayAlerts = False
Application.Quit
End Sub
--
;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
Je suis navré, de me retrouver dans l'obligation de te dire, que ce changement n'à pas fait évoluer le problème, c'est exactement la même chose, mais peut-être quand te précisant que le fichier "music anniversaires" qui se trouve dans le fichier de "démarage" ouvre en même temps le "Lecteur Windows Media", peut-être que ce sera plus limpide pour toi, Merci de ton dévouement ! '------------------------------------------------- Sub fermoi() call PlaySound Null Application.DisplayAlerts = False Application.Quit End Sub '------------------------------------------------ Cordialement ! DC
"Modeste" a écrit dans le message de news: OB56$
Bonsour® DC avec ferveur ;o))) vous nous disiez :
J'ai éxactement fait ce qu'il y a dans ta modification de macro, et la réponse, est l'ouverture d'une fenêtre VBA " Erreur de compilation, Sub ou Fonction non définie " ,
comme tu ne précisais pas la procedure d'activation du son, et qu'il était question à un moment de "tada.wav" j'ai supposé que tu utilisais l'API sndplaysound qui "devrait" dorénavant etre utilisé en lieu et place de l'API Playsound
mais dans le principe cela reste le meme : http://www.mentalis.org/apilist/PlaySound.shtml To terminate an asynchronously played waveform sound, call PlaySound with pszSound set to NULL.
Sub fermoi() call PlaySound Null Application.DisplayAlerts = False Application.Quit End Sub
-- ;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
