Comment lire sous excel un fichier *.MP3

Le
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 ?

_
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #21255761
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 ?

_
Le #21255931
Merci !

"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 ?

_



Le #21260211
Bonjour

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


"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 ?

_






_
isabelle
Le #21263131
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 ?
michdenis
Le #21263181
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"
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 ?

_






_
isabelle
Le #21266341
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"

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 ?

_






_





Publicité
Poster une réponse
Anonyme