Bonjour,
Y a - t - il un moyen pour lister les propriètés d'un fichier audio ?
merci
Bonjour,
Y a - t - il un moyen pour lister les propriètés d'un fichier audio ?
merci
bonjour
Quel format de fichier ?
bonne journée
michel
Bonjour,
J'ai trouvé quelque chose que j'ai testé sous Access 2000 avec un fichier MP3.
Deux références à ajouter :
- Windows Media Player
- le fichier C:\Windows\System32\wmp.dll
Le lancement se fait par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Sub Recuperer_proprietes(ByVal Filename As String) Dim Mn As Integer, Sd As Integer Dim media As New WMPLib.WindowsMediaPlayer media.settings.Mute = True media.Url = Filename While media.PlayState <> WMPPlayState.wmppsTransitioning 'à fouiller Wend MsgBox ("Nom : " & media.currentMedia.getItemInfo("Name")) MsgBox ("Auteur : " & media.currentMedia.getItemInfo("author")) MsgBox ("Titre : " & media.currentMedia.getItemInfo("Title")) MsgBox ("Album : " & media.currentMedia.getItemInfo("Album")) MsgBox ("Copyright : " & media.currentMedia.getItemInfo("copyright")) MsgBox ("Artiste : " & media.currentMedia.getItemInfo("Artist")) MsgBox ("Genre : " & media.currentMedia.getItemInfo("Genre")) MsgBox ("Taux d'échantillonnage : " & (media.currentMedia.getItemInfo("BitRate") / 1000) & " kbps") MsgBox ("Bitrate : " & media.currentMedia.getItemInfo("bitRate")) Mn = Int(media.currentMedia.getItemInfo("duration") / 60) Sd = media.currentMedia.getItemInfo("duration") Mod 60 MsgBox ("Durée : " & Mn & "'" & Sd) media.Controls.Stop media.Close End SubA+
Code : Sélectionner tout - Visualiser dans une fenêtre à part Recuperer_proprietes(CheminEtNomFichier)![]()
Michel, le format du fichier audio est MP3.
Gabout, merci pour ta réponse mais ça ne marche pas chez moi (j'ai activé les réferences mais en vain) --> ACCESS 2003 et EXCEL aussi
J'ai une erreur d'automation et erreur non spécifié.
Cordialement
Re,
Je viens de tester sur Excel 2000 et cela fonctionne normalement.... à voir donc !![]()
Bonjour,
rien ne me parait manquer ici :
http://silkyroad.developpez.com/VBA/...aPlayer/#LII-L
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager