Discussion :

[casavba]

Bonjour,

Y a - t - il un moyen pour lister les propriètés d'un fichier audio ?

merci

[SilkyRoad]

bonjour

Quel format de fichier ?


bonne journée
michel

[Gabout]

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

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 Sub

Le lancement se fait par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Recuperer_proprietes(CheminEtNomFichier)

A+

[casavba]

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

[Gabout]

Re,

Je viens de tester sur Excel 2000 et cela fonctionne normalement.... à voir donc !

[ucfoutu]

Bonjour,

rien ne me parait manquer ici :
http://silkyroad.developpez.com/VBA/...aPlayer/#LII-L