Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Help API sous XP

Help API sous XP

4 réponses
Avatar
Patrick Morel
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? Merci par avance


PM
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
LeSteph
bonsoir Patrick,
Inutile de creer un autre fil,
tu as 4 réponses au moins sur celui d'hier.

lSteph

"Patrick Morel" a écrit dans le message de news:

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? Merci par avance


PM





Avatar
Patrick Morel
bonsoir Sur mon ordi je vois pas le premier fil et les réponses non plus!!!
PM
"LeSteph" a écrit dans le message de news:
#
bonsoir Patrick,
Inutile de creer un autre fil,
tu as 4 réponses au moins sur celui d'hier.

lSteph

"Patrick Morel" a écrit dans le message de news:

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? Merci par avance


PM









Avatar
LeSteph
Bonsoir Patrick ,
tu devrais utiliser msnews.microsoft.com
pour te connecter à mpfe tu n'aurais plus ce pb.
Voir les messages réguliers de Philippe R
et les indications de Excelabo.net

voici le recap des différentes solutions qui t'ont été proposées:

de Michel Pierron:
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

de Misange:

bonjour,
regarde ici :
http://www.excelabo.net/moteurs/compteclic.php?nom=multi-sonsi
"ou plutôt:" dans le re,>
http://www.excelabo.net/xl/sortir.php#mp3

et reviens si ça va pas

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

on 21/11/2004 12:05:

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

de GD
---
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)))
@+
--
traduire JW
John Walkenbach
--
et enfin
de Daniel J

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" a écrit dans le message de news:
%
bonsoir Sur mon ordi je vois pas le premier fil et les réponses non
plus!!!
PM
"LeSteph" a écrit dans le message de news:
#
bonsoir Patrick,
Inutile de creer un autre fil,
tu as 4 réponses au moins sur celui d'hier.

lSteph

"Patrick Morel" a écrit dans le message de news:

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? Merci par avance


PM













Avatar
Patrick Morel
Grand merci à tout le monde .je vais de ce pas potasser.
PM