mp3 file playback Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByValuReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Declare Function GetShortPathName Lib "kernel32" Alias _
"GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As _
String, ByVal cchBuffer As Long) As Long

Sub LanceMP3()
X = ThisWorkbook.Path
joueMP3 (X & "monfichier.mp3")
End Sub

Public Sub joueMP3(ByVal Mp3 As String) Dim Tmp As Long, Tmp2 As String
'Screen.MousePointer = vbHourglass

Tmp2 = NomCourt(Mp3)
Tmp = mciSendString("close MP3_Device", vbNullString, 0&, 0&)
Tmp = mciSendString("open " & Tmp2 & " type MPEGVideo alias MP3_Device", _
vbNullString, 0&, 0&)
If Tmp = 0 Then
Tmp = mciSendString("play Mp3_Device", vbNullString, 0&, 0&)

If Tmp  0 Then
Screen.MousePointer = 0
MsgBox "Incapable de jouer ce Mp3"
'Else
' Tmp = mciSendString("close MP3_Device", vbNullString, 0&, 0&)
End If
Else
'Screen.MousePointer = 0
MsgBox "Incapable de jouer ce Mp3"
End If

'Screen.MousePointer = 0
End Sub

Public Sub StopMP3()
Dim Tmp As Long
Tmp = mciSendString("close MP3_Device", vbNullString, 0&, 0&)
End Sub

Private Function NomCourt(ByVal Fichier As String) As String
Dim Tmp As String * 255, Tmp2 As Byte
Tmp2 = GetShortPathName(Fichier, Tmp, Len(Tmp))

If Tmp2 > 0 Then
NomCourt = Left(Tmp, Tmp2)
End If
End Function

No	Macro Name
1	mp3 file playback
2	perfect mp3 playback
3	Calculate the duration of the mp3 file (type the file path and select that cell)
4	file search 2
5	wav file playback 3
6	wav file playback 5
7	wav file playback 1
8	wav file playback 4
9	midi file playback
10	midi playback
11	close only one of the two excel files open.
12	excel operators hk
13	backup encrypting
14	change password with save as
15	save as macro only save the specified sheet / page
16	backups and saves the workbook (to the current directory) --- per-author
17	browse folder xls list
18	Save as action
19	image preview in userform
20	the data that I specify as a folder filename

Excel Free Macros (VBA)

Mp3 File Playback

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords