Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Comment lire sous excel un fichier *.MP3

6 réponses
Avatar
Bonjour,

Deja je voudrai dire que ce forum repond exactement à mes reponses, et cela
fait vraiment plaisir.

Je voudrai savoir avec une macro comment lire sous une feuille excel un
fichier *.MP3 si la cellule C3 est egale à 5

Est ce possible si oui comment ?

_

6 réponses

Avatar
michdenis
Bonjour,

Un petit exemple simple :

Dans le module de la feuille où l'action se déroule, tu
copies ce qui suit.

Si tu saisis dans la cellule le chiffre 5, ceci lancera le fichier
MP3 situé dans la cellule A1.
Évidemment, en A1, tu dois avoir le chemin et le nom du
fichier MP3 que tu veux faire jouer !
Tu dois adapter le chemin de l'exécutable "wmplayer.exe"
si besoin.

'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("C3") = 5 Then
Shell ("C:Program FilesWindows Media Playerwmplayer.exe """ & Range("A1") & "")
End If

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



<_> a écrit dans le message de groupe de discussion :
4b843d98$0$23903$
Bonjour,

Deja je voudrai dire que ce forum repond exactement à mes reponses, et cela
fait vraiment plaisir.

Je voudrai savoir avec une macro comment lire sous une feuille excel un
fichier *.MP3 si la cellule C3 est egale à 5

Est ce possible si oui comment ?

_
Avatar
Merci !

"michdenis" a écrit dans le message de news:

Bonjour,

Un petit exemple simple :

Dans le module de la feuille où l'action se déroule, tu
copies ce qui suit.

Si tu saisis dans la cellule le chiffre 5, ceci lancera le fichier
MP3 situé dans la cellule A1.
Évidemment, en A1, tu dois avoir le chemin et le nom du
fichier MP3 que tu veux faire jouer !
Tu dois adapter le chemin de l'exécutable "wmplayer.exe"
si besoin.

'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("C3") = 5 Then
Shell ("C:Program FilesWindows Media Playerwmplayer.exe """ &
Range("A1") & "")
End If

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



<_> a écrit dans le message de groupe de discussion :
4b843d98$0$23903$
Bonjour,

Deja je voudrai dire que ce forum repond exactement à mes reponses, et
cela
fait vraiment plaisir.

Je voudrai savoir avec une macro comment lire sous une feuille excel un
fichier *.MP3 si la cellule C3 est egale à 5

Est ce possible si oui comment ?

_



Avatar
Bonjour

Y a t'il moyen de refermer le logiciel wmplayer.exe apres utilisation ?


"michdenis" a écrit dans le message de news:

Bonjour,

Un petit exemple simple :

Dans le module de la feuille où l'action se déroule, tu
copies ce qui suit.

Si tu saisis dans la cellule le chiffre 5, ceci lancera le fichier
MP3 situé dans la cellule A1.
Évidemment, en A1, tu dois avoir le chemin et le nom du
fichier MP3 que tu veux faire jouer !
Tu dois adapter le chemin de l'exécutable "wmplayer.exe"
si besoin.

'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("C3") = 5 Then
Shell ("C:Program FilesWindows Media Playerwmplayer.exe """ &
Range("A1") & "")
End If

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



<_> a écrit dans le message de groupe de discussion :
4b843d98$0$23903$
Bonjour,

Deja je voudrai dire que ce forum repond exactement à mes reponses, et
cela
fait vraiment plaisir.

Je voudrai savoir avec une macro comment lire sous une feuille excel un
fichier *.MP3 si la cellule C3 est egale à 5

Est ce possible si oui comment ?

_






_
Avatar
isabelle
bonjour,

Option Explicit
Dim ret As Long, mp3file As String, mp3shortfile 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
Private Declare Function GetShortPathName Lib "kernel32" Alias
"GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath
As String, ByVal cchBuffer As Long) As Long

Sub jouerMP3sansOCX()
If Range("C3") = 5 Then
mp3file = Range("A1")
mp3shortfile = Space(Len(mp3file))
ret = GetShortPathName(mp3file, mp3shortfile, Len(mp3file))
mp3shortfile = Left(mp3shortfile, ret)
ret = mciSendString("OPEN " & mp3shortfile & " Alias Sonido", 0, 0, 0)
'ouvre
ret = mciSendString("Play sonido", 0, 0, 0) 'Joue
End If
End Sub 'http://webzone.webhostme.com/

isabelle

Le 2010-02-24 12:37, _ a écrit :

Bonjour

Y a t'il moyen de refermer le logiciel wmplayer.exe apres utilisation ?
Avatar
michdenis
Bonjour,

'Api dans le haut d'un module standard :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long _
, lParam As Any) As Long

'----------------------------------
Sub Fermer_Lecteur_Windows_Media()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, "Windows Media Player")
If hWnd Then PostMessage hWnd, &H10, 0&, 0&
End Sub
'----------------------------------




<_> a écrit dans le message de groupe de discussion :
4b8563f3$0$20738$
Bonjour

Y a t'il moyen de refermer le logiciel wmplayer.exe apres utilisation ?


"michdenis" a écrit dans le message de news:

Bonjour,

Un petit exemple simple :

Dans le module de la feuille où l'action se déroule, tu
copies ce qui suit.

Si tu saisis dans la cellule le chiffre 5, ceci lancera le fichier
MP3 situé dans la cellule A1.
Évidemment, en A1, tu dois avoir le chemin et le nom du
fichier MP3 que tu veux faire jouer !
Tu dois adapter le chemin de l'exécutable "wmplayer.exe"
si besoin.

'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("C3") = 5 Then
Shell ("C:Program FilesWindows Media Playerwmplayer.exe """ &
Range("A1") & "")
End If

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



<_> a écrit dans le message de groupe de discussion :
4b843d98$0$23903$
Bonjour,

Deja je voudrai dire que ce forum repond exactement à mes reponses, et
cela
fait vraiment plaisir.

Je voudrai savoir avec une macro comment lire sous une feuille excel un
fichier *.MP3 si la cellule C3 est egale à 5

Est ce possible si oui comment ?

_






_
Avatar
isabelle
bonjour,

Dim ret As Long, mp3file As String, mp3shortfile 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
Private Declare Function GetShortPathName Lib "kernel32" Alias
"GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath
As String, ByVal cchBuffer As Long) As Long

Sub PlaySong()
mp3file = Range("A1")
mp3shortfile = Space(Len(mp3file))
ret = GetShortPathName(mp3file, mp3shortfile, Len(mp3file))
mp3shortfile = Left(mp3shortfile, ret)
ret = mciSendString("OPEN " & mp3shortfile & " Alias Sonido", 0, 0, 0)
'ouvre
ret = mciSendString("Play sonido", 0, 0, 0) 'Joue
End Sub 'http://webzone.webhostme.com/

Sub PauseSong()
ret = mciSendString("Stop sonido", 0, 0, 0) 'Pause (si on fait lecture
ca reprendra la)
End Sub

Sub StopSong()
ret = mciSendString("Close sonido", 0, 0, 0) 'Arret (si on fait lecture
ca recommence au debut)
End Sub

isabelle

Le 2010-02-24 12:37, _ a écrit :
Bonjour

Y a t'il moyen de refermer le logiciel wmplayer.exe apres utilisation ?


"michdenis" a écrit dans le message de news:


Bonjour,

Un petit exemple simple :

Dans le module de la feuille où l'action se déroule, tu
copies ce qui suit.

Si tu saisis dans la cellule le chiffre 5, ceci lancera le fichier
MP3 situé dans la cellule A1.
Évidemment, en A1, tu dois avoir le chemin et le nom du
fichier MP3 que tu veux faire jouer !
Tu dois adapter le chemin de l'exécutable "wmplayer.exe"
si besoin.

'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("C3") = 5 Then
Shell ("C:Program FilesWindows Media Playerwmplayer.exe """&
Range("A1")& "")
End If

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



<_> a écrit dans le message de groupe de discussion :
4b843d98$0$23903$
Bonjour,

Deja je voudrai dire que ce forum repond exactement à mes reponses, et
cela
fait vraiment plaisir.

Je voudrai savoir avec une macro comment lire sous une feuille excel un
fichier *.MP3 si la cellule C3 est egale à 5

Est ce possible si oui comment ?

_






_