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
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 ?
_
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$426a34cc@news.free.fr...
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
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 ?
_
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 ?
_
Merci !
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OZnzHVNtKHA.4220@TK2MSFTNGP05.phx.gbl...
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$426a34cc@news.free.fr...
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
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 ?
_
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 ?
_
_
Bonjour
Y a t'il moyen de refermer le logiciel wmplayer.exe apres utilisation ?
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OZnzHVNtKHA.4220@TK2MSFTNGP05.phx.gbl...
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$426a34cc@news.free.fr...
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
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 ?
_
_
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 ?
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 ?
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
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 ?
_
_
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$426a34cc@news.free.fr...
Bonjour
Y a t'il moyen de refermer le logiciel wmplayer.exe apres utilisation ?
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OZnzHVNtKHA.4220@TK2MSFTNGP05.phx.gbl...
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$426a34cc@news.free.fr...
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
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 ?
_
_
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 ?
_
_
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"<michdenis@hotmail.com> a écrit dans le message de news:
OZnzHVNtKHA.4220@TK2MSFTNGP05.phx.gbl...
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$426a34cc@news.free.fr...
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
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
