Help API sous XP

Bonjour Patrick;
AMHA, cela vient plutôt de la façon dont tu l'utilises ou de la
configuration de ta carte son car cette fonction marche parfaitement avec
XP.
Essaie pour voir:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
_
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

Sub Test()
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
ret& = waveOutGetNumDevs
If ret& Then
sndPlaySound "d:rockpoule.wav", SND_ASYNC Or SND_NODEFAULT
Else
MsgBox "No soundcard detected !"
End If
End Sub

MP

"Patrick Morel" <pmorelajc@wanadoo.fr> a écrit dans le message de
news:u9Hzco7zEHA.576@TK2MSFTNGP14.phx.gbl...

Bonjour,

Sous W98, j'utilise la fonction SoundPlaySound sans problème ( à partir de
winmm.dll).



Declare Function DLLOut Lib Private Declare Function sndPlaySound Lib
"winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal
uFlags As Long) As Long





Sous XP winmm.dll existe bien, mais la fonction ne marche pas.

Quelqu'un connaîtrait-il la solution?



PM

bonjour,
regarde ici :
http://www.excelabo.net/moteurs/compteclic.php?nom=multi-sonsi
et reviens si ça va pas

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 21/11/2004 12:05:

Bonjour,

Sous W98, j'utilise la fonction SoundPlaySound sans problème ( à partir de
winmm.dll).



Declare Function DLLOut Lib Private Declare Function sndPlaySound Lib
"winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal
uFlags As Long) As Long





Sous XP winmm.dll existe bien, mais la fonction ne marche pas.

Quelqu'un connaîtrait-il la solution?



PM

Bonjour,
'************Sourcede la fonction Alarm MPFE ou EXCELABo, sais plus
'*******Rend grace à son auteur GD je crois
'*******Adapté par bibi: leSteph

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long


Function Alarm(Cell, Condition, wav)
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
If Evaluate(Cell.Value & Condition) Then
WAVFile = wav
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Alarm = True
Exit Function
End If
ErrHandler:
Alarm = False
End Function
'***rajouté ceci pour lister les wav sur le rep courant***
Sub messons()

Dim cpt
Dim f
cpt = 1
f = Dir("*.wav")
Do While Len(f) > 0
cpt = cpt + 1
ActiveSheet.Cells(cpt, 1) = f
f = Dir
Loop


End Sub
'************
'lSteph

"Patrick Morel" <pmorelajc@wanadoo.fr> a écrit dans le message de news:
u9Hzco7zEHA.576@TK2MSFTNGP14.phx.gbl...

Bonjour,

Sous W98, j'utilise la fonction SoundPlaySound sans problème ( à partir de
winmm.dll).



Declare Function DLLOut Lib Private Declare Function sndPlaySound Lib
"winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal
uFlags As Long) As Long





Sous XP winmm.dll existe bien, mais la fonction ne marche pas.

Quelqu'un connaîtrait-il la solution?



PM

re
en fait c'était surtout cette adresse que je voulais t'indiquer :
http://www.excelabo.net/xl/sortir.php#mp3
(que je viens de corriger pour les auteurs, pardon Michel... )

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 21/11/2004 12:05:

Bonjour,

Sous W98, j'utilise la fonction SoundPlaySound sans problème ( à partir de
winmm.dll).



Declare Function DLLOut Lib Private Declare Function sndPlaySound Lib
"winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal
uFlags As Long) As Long





Sous XP winmm.dll existe bien, mais la fonction ne marche pas.

Quelqu'un connaîtrait-il la solution?



PM

Bonsour ®,LeSteph
Comme je l'avais noté dans le fil original,
si grace il y a à rendre : "modestement" toute ma dévotion va à JW,
dont c'était l'adaptation d'un code trouvé chez lui !!!

;o)))
@+

wrote:

Bonjour,
'************Sourcede la fonction Alarm MPFE ou EXCELABo, sais plus
'*******Rend grace à son auteur GD je crois
'*******Adapté par bibi: leSteph

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long


Function Alarm(Cell, Condition, wav)
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
If Evaluate(Cell.Value & Condition) Then
WAVFile = wav
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Alarm = True
Exit Function
End If
ErrHandler:
Alarm = False
End Function
'***rajouté ceci pour lister les wav sur le rep courant***
Sub messons()

Dim cpt
Dim f
cpt = 1
f = Dir("*.wav")
Do While Len(f) > 0
cpt = cpt + 1
ActiveSheet.Cells(cpt, 1) = f
f = Dir
Loop


End Sub
'************
'lSteph

"Patrick Morel" <pmorelajc@wanadoo.fr> a écrit dans le message de
news: u9Hzco7zEHA.576@TK2MSFTNGP14.phx.gbl...

Bonjour,

Sous W98, j'utilise la fonction SoundPlaySound sans problème ( à
partir de winmm.dll).



Declare Function DLLOut Lib Private Declare Function sndPlaySound Lib
"winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,
ByVal uFlags As Long) As Long





Sous XP winmm.dll existe bien, mais la fonction ne marche pas.

Quelqu'un connaîtrait-il la solution?



PM

Bonjour GD,
Alors c'est parfait car je ne saurais inventer une règle pour mesurer
l'estime que je porte à ceux qui ne font que nous aider .
En plus cela me conforte dans l'idée que j'ai bien fait d'acheter son
livre.
Dont la lecture seule d'ailleurs suffit à cet effet.
Mais tu es toujours aussi "modeste", tu l'as quand même bien adaptée cette
fonction!
:-) chapeau bas.
lSteph

"GD" <nomail@nomail.net> a écrit dans le message de news:
uUcWLG9zEHA.1264@TK2MSFTNGP12.phx.gbl...

Bonsour ®,LeSteph
Comme je l'avais noté dans le fil original,
si grace il y a à rendre : "modestement" toute ma dévotion va à JW,
dont c'était l'adaptation d'un code trouvé chez lui !!!

;o)))
@+

wrote:

Bonjour,
'************Sourcede la fonction Alarm MPFE ou EXCELABo, sais plus
'*******Rend grace à son auteur GD je crois
'*******Adapté par bibi: leSteph

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long


Function Alarm(Cell, Condition, wav)
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
If Evaluate(Cell.Value & Condition) Then
WAVFile = wav
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Alarm = True
Exit Function
End If
ErrHandler:
Alarm = False
End Function
'***rajouté ceci pour lister les wav sur le rep courant***
Sub messons()

Dim cpt
Dim f
cpt = 1
f = Dir("*.wav")
Do While Len(f) > 0
cpt = cpt + 1
ActiveSheet.Cells(cpt, 1) = f
f = Dir
Loop


End Sub
'************
'lSteph

"Patrick Morel" <pmorelajc@wanadoo.fr> a écrit dans le message de
news: u9Hzco7zEHA.576@TK2MSFTNGP14.phx.gbl...

Bonjour,

Sous W98, j'utilise la fonction SoundPlaySound sans problème ( à
partir de winmm.dll).



Declare Function DLLOut Lib Private Declare Function sndPlaySound Lib
"winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,
ByVal uFlags As Long) As Long





Sous XP winmm.dll existe bien, mais la fonction ne marche pas.

Quelqu'un connaîtrait-il la solution?



PM

Bonjour
Pour du MP3:

Sub PlayMP3() 'ok XP xl2003
With ActiveSheet.OLEObjects.Add _
(Filename:="c:ajetertam.mp3", _
Link:úlse, DisplayAsIcon:úlse)
SendKeys "%O"
.Verb Verb:=xlPrimary
End With
End Sub


--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm

"Patrick Morel" <pmorelajc@wanadoo.fr> a écrit dans le message de news: u9Hzco7zEHA.576@TK2MSFTNGP14.phx.gbl...
| Bonjour,
|
| Sous W98, j'utilise la fonction SoundPlaySound sans problème ( à partir de
| winmm.dll).
|
|
|
| Declare Function DLLOut Lib Private Declare Function sndPlaySound Lib
| "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal
| uFlags As Long) As Long
|
|
|
|
|
| Sous XP winmm.dll existe bien, mais la fonction ne marche pas.
|
| Quelqu'un connaîtrait-il la solution?
|
|
|
| PM
|
|