OVH Cloud OVH Cloud

lecture de fichier audio

9 réponses
Avatar
j0b
Bonsoir =E0 vous tous, je cherche une commande pour pouvoir=20
lire des fichiers audio wave ou mp3 avec excel. Je cherche=20
pas a cr=E9er un lecteur mais juste pouvoir =E9couter ce=20
fichier quand j'=E9x=E9cute la proc=E9dure. merci bien pour le=20
coup de pouce.

9 réponses

Avatar
Clément Marcotte
Bonjour,

Pour un waw, cela doit être jouable directement en passant par api
Windows. Il doit y avoir quelque chose là-dessus sur Excel ou sur la
FAQ.

Pour un M, je ne vois pas grand chose d'autre que oc du lecteur
Windows médias, sur un UserForm gardé invisible. (À moins que Winnipeg
ou ses concurrents puissent lancer automatiquement un fichier, dans
une commande Shell. ) Tout cela en supposant que la macro puisse se
continuer le temps que la zizique joue; et que cela puisse être un
tant soit peu synchronisé. Mais, là j'ai la flemme et je sens venir
l'usine à gaz...





"j0b" a écrit dans le message de
news:026f01c4a64e$bf206e10$
Bonsoir à vous tous, je cherche une commande pour pouvoir
lire des fichiers audio wave ou mp3 avec excel. Je cherche
pas a créer un lecteur mais juste pouvoir écouter ce
fichier quand j'éxécute la procédure. merci bien pour le
coup de pouce.
Avatar
Clément Marcotte
Maudit correcteur, reprenons:

Bonjour,

Pour un wav, cela doit être jouable directement en passant par l'API
Windows. Il doit y avoir quelque chose là-dessus sur Excelabo ou sur
la
FAQ.

Pour un mp3, je ne vois pas grand chose d'autre que l'ocx du lecteur
Windows médias, sur un UserForm gardé invisible. (À moins que WinAmp
ou ses concurrents puissent lancer automatiquement un fichier, dans
une commande Shell. ) Tout cela en supposant que la macro puisse se
continuer le temps que la zizique joue; et que cela puisse être un
tant soit peu synchronisé. Mais, là j'ai la flemme et je sens venir
l'usine à gaz...
Avatar
michdenis
Bonjour j0b,


Dans un module standard, copie ce qui suit :


'Déclaration Api dans le haut du module
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Sub jouer_SON()
Call PlaySound("C:WINDOWSMEDIAringin.wav", 0&, SND_ASYNC Or SND_FILENAME)
End Sub


La commande SendKeys "%O" n'est peut être pas obligatoire... cela dépend du lecteur par défaut de ta machine

'----------------------------------
Sub PlayMP3()

With ActiveSheet.OLEObjects.Add _
(Filename:="G:My Musicavril_lavigne-slipped_away-mvp.mp3", _
Link:úlse, DisplayAsIcon:úlse)
SendKeys "%O"
.Verb Verb:=xlPrimary

End With
End Sub
'----------------------------------


Salutations!




"j0b" a écrit dans le message de news:026f01c4a64e$bf206e10$
Bonsoir à vous tous, je cherche une commande pour pouvoir
lire des fichiers audio wave ou mp3 avec excel. Je cherche
pas a créer un lecteur mais juste pouvoir écouter ce
fichier quand j'éxécute la procédure. merci bien pour le
coup de pouce.
Avatar
michdenis
Bonjour Clément,

Ceci devrait être suffisant .... pas testé !


A = Shell("C:Program FilesWinampwinamp.exe C:My Musicavril_lavigne-slipped_away-mvp.mp3", vbMaximizedFocus)


Salutations!



"Clément Marcotte" a écrit dans le message de news:
Maudit correcteur, reprenons:

Bonjour,

Pour un wav, cela doit être jouable directement en passant par l'API
Windows. Il doit y avoir quelque chose là-dessus sur Excelabo ou sur
la
FAQ.

Pour un mp3, je ne vois pas grand chose d'autre que l'ocx du lecteur
Windows médias, sur un UserForm gardé invisible. (À moins que WinAmp
ou ses concurrents puissent lancer automatiquement un fichier, dans
une commande Shell. ) Tout cela en supposant que la macro puisse se
continuer le temps que la zizique joue; et que cela puisse être un
tant soit peu synchronisé. Mais, là j'ai la flemme et je sens venir
l'usine à gaz...
Avatar
Clément Marcotte
Bonjour,

Comme je n'ai pas WinAmp, je te fais confiance... ;-)


"michdenis" a écrit dans le message de
news:
Bonjour Clément,

Ceci devrait être suffisant .... pas testé !


A = Shell("C:Program FilesWinampwinamp.exe C:My
Musicavril_lavigne-slipped_away-mvp.mp3", vbMaximizedFocus)



Salutations!



"Clément Marcotte" a écrit dans le
message de news:

Maudit correcteur, reprenons:

Bonjour,

Pour un wav, cela doit être jouable directement en passant par
l'API

Windows. Il doit y avoir quelque chose là-dessus sur Excelabo ou sur
la
FAQ.

Pour un mp3, je ne vois pas grand chose d'autre que l'ocx du lecteur
Windows médias, sur un UserForm gardé invisible. (À moins que WinAmp
ou ses concurrents puissent lancer automatiquement un fichier, dans
une commande Shell. ) Tout cela en supposant que la macro puisse se
continuer le temps que la zizique joue; et que cela puisse être un
tant soit peu synchronisé. Mais, là j'ai la flemme et je sens venir
l'usine à gaz...





Avatar
Michel Pierron
Bonsoir j0b;
Option Explicit
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
Private Declare Function GetShortPathName Lib "kernel32" Alias _
"GetShortPathNameA" (ByVal lpszLongPath As String _
, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
Private Song As String

Sub PlayOn()
Song = ThisWorkbook.Path & "Dire Straits - Calling Elvis.mp3"
Call PlaySong(True)
End Sub

Sub PlayOff()
Call PlaySong(False)
End Sub

Sub PlayPauseReprise()
Dim msg As String * 255
Static iPos As Long
Static nb As Integer
If nb Then
PlaySong True, iPos
Else
mciSendString "status MPFE position", msg, 255, 0
iPos = Str(msg)
mciSendString "Pause MPFE", 0, 0, 0
End If
nb = Not nb
End Sub

Private Sub PlaySong(Play As Boolean, Optional Reprise As Long = 0)
On Error Resume Next
Call mciSendString("Stop MPFE", 0&, 0, 0)
Call mciSendString("Close MPFE", 0&, 0, 0)
If Not Play Then Exit Sub
If Song = "" Or Dir(Song) = "" Then Exit Sub
Song = GetShortPath(Song)
Call mciSendString("Open " & Song & " Alias MPFE", 0&, 0, 0)
Call mciSendString("play MPFE from " & Reprise, 0&, 0, 0)
End Sub

Private Function GetShortPath(strFileName As String) As String
Dim lngRes As Long, strPath As String
strPath = String(165, 0)
lngRes = GetShortPathName(strFileName, strPath, 164)
GetShortPath = Left(strPath, lngRes)
End Function

L'appel de la macro PlayPauseReprise met en pause; un second appel execute
la reprise. Tu peux associer 3 boutons à ces macros.
MP

"j0b" a écrit dans le message de
news:026f01c4a64e$bf206e10$
Bonsoir à vous tous, je cherche une commande pour pouvoir
lire des fichiers audio wave ou mp3 avec excel. Je cherche
pas a créer un lecteur mais juste pouvoir écouter ce
fichier quand j'éxécute la procédure. merci bien pour le
coup de pouce.
Avatar
Sitting Hoax \(BM\)
Bonjour,
ce fichier de Robert Dezan sur Exelabo utilise les fichiers Midi.
http://www.excelabo.net/moteurs/compteclic.php?nom=rd-filament2
celui ci les fichiers Wav
http://www.excelabo.net/moteurs/compteclic.php?nom=ld-lalanimo

Pour que ça marche bien, récupère les fichiers et mets les dans un
répertoire, il faut que le fichier excel soit dans le même répertoire que
les fichiers son.
pour simplifier, essaye cette macro:
colle ceci dans un module
en ayant bien sûr un son (que j'ai nommé "son" ici,
dans le même répertoire que le fichier excel
(ThisWorkbook.Path)
'*************
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Sub lire()
chemin = ThisWorkbook.Path
PlaySound chemin & "son" & "" & ".Wav", 0, 1 'lecture du mot
End Sub
'***************

Amicalement
Sitting Hoax

"j0b" a écrit dans le message de
news:026f01c4a64e$bf206e10$
Bonsoir à vous tous, je cherche une commande pour pouvoir
lire des fichiers audio wave ou mp3 avec excel. Je cherche
pas a créer un lecteur mais juste pouvoir écouter ce
fichier quand j'éxécute la procédure. merci bien pour le
coup de pouce.
Avatar
Philippe
Salut

tu trouvera ton bonneur la
http://dj.joss.free.fr/media.htm

sinon y a toujours ceci ^^
http://www.excelabo.net/xl/broll.php#clairdelalune

a bientot

"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

Comme je n'ai pas WinAmp, je te fais confiance... ;-)


"michdenis" a écrit dans le message de
news:
Bonjour Clément,

Ceci devrait être suffisant .... pas testé !


A = Shell("C:Program FilesWinampwinamp.exe C:My
Musicavril_lavigne-slipped_away-mvp.mp3", vbMaximizedFocus)



Salutations!



"Clément Marcotte" a écrit dans le
message de news:

Maudit correcteur, reprenons:

Bonjour,

Pour un wav, cela doit être jouable directement en passant par
l'API

Windows. Il doit y avoir quelque chose là-dessus sur Excelabo ou sur
la
FAQ.

Pour un mp3, je ne vois pas grand chose d'autre que l'ocx du lecteur
Windows médias, sur un UserForm gardé invisible. (À moins que WinAmp
ou ses concurrents puissent lancer automatiquement un fichier, dans
une commande Shell. ) Tout cela en supposant que la macro puisse se
continuer le temps que la zizique joue; et que cela puisse être un
tant soit peu synchronisé. Mais, là j'ai la flemme et je sens venir
l'usine à gaz...








Avatar
merci à vous pour l'ensemble de vos réponses. Encore merci