mp3 dosyası çalma Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
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

Benzer Sonuçlar
No	Makro Adı
1	mp3 dosyası çalma
2	mp3 dosyasının süresini hesaplatın (dosya yolunu yazın ve o hücreyi seçin)
3	wav dosyası çalma 3
4	wav dosyası çalma 5
5	wav dosyası çalma 1
6	wav dosyası çalma 4
7	midi dosyası çalma
8	wav dosyası çalma 2
9	bulunduğun dizinde wav dosyası çalmak için
10	açık iki excel dosyasından sadece birini kapatmak.
11	text dosyasından veri alma a sütununa yazma
12	yedek alma ile ilgili
13	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
14	text dosyasından veri alma (alt alta, tüm veriler)
15	txt dosyasını sayfada açıp içeriğini alma, txt dosyasının adı sayfa adı olur
16	dosya arama 2
17	mükemmel mp3 çaldırma
18	Dosyayı kim açtı 2
19	excel dosyası belirli bir tarihten sonra açılmasın
20	Excel dosyasını kaydetmeyi engelleme işlemi

Benzer Sonuçlar

Makro Adı

mp3 dosyası çalma

mp3 dosyasının süresini hesaplatın (dosya yolunu yazın ve o hücreyi seçin)

bulunduğun dizinde wav dosyası çalmak için

açık iki excel dosyasından sadece birini kapatmak.