Juke-Box et Tags Mp3

[claudio54]

Bonjour à tous

Je me suis concocté un petit juke box pour mp3 et je coince sur un problème qui me cause bien des soucis.
J'ai une petite "mp3thèque" classée par album et malheureusement les titres ne sont pas dans l'ordre original de l'album mais comme de bien entendu par ordre alphabétique.
Je sais extraire quelques infos du mp3 mais pas le numéro du morceau

WindowsMediaPlayer1.currentMedia.getItemInfo("Name")
WindowsMediaPlayer1.currentMedia.getItemInfo("author")
WindowsMediaPlayer1.currentMedia.getItemInfo("Title")
WindowsMediaPlayer1.currentMedia.getItemInfo("Album")
WindowsMediaPlayer1.currentMedia.getItemInfo("copyright")
WindowsMediaPlayer1.currentMedia.getItemInfo("Artist")
WindowsMediaPlayer1.currentMedia.getItemInfo("Genre")
WindowsMediaPlayer1.currentMedia.getItemInfo("Bitrate") / 1000 & " kbps"

j'ai essayé avec WindowsMediaPlayer1.currentMedia.getItemInfo("TrackNumber") et quelques qutres syntaxes sans succès.

Quelqu'un connait-il la commande à employer ?
Par avance merci et bonne fêtes à tous

 

[Staple1600]

Re : Juke-Box et Tags Mp3

Bonjour à tous

Tu as vu ce qu'il y a tout en bas la page?
Notamment ceci
https://www.excel-downloads.com/threads/recuperer-les-tags-mp3-sur-excel.144564/

 

[MJ13]

Re : Juke-Box et Tags Mp3

Bonjour Claudio, Jean-Marie

Tu peux essayer mon appli, voir son ma signature 🙂.

En cochant la case Scan plus de champs dans la feuille Param, tu devrais voir tous les champs renseignés.

 

[claudio54]

Re : Juke-Box et Tags Mp3

Merci à Stapple1600 et MJ13

Stapple, j'avais effectivement déjà épluché les codes du lien proposé, mais je n'y ai pas trouvé mon bonheur.

MJ13, en regardant ton code, j'ai extrait la partie qu'il me fallait et pour ceux que ça interesse, la voici :

Sub ExtractNumPiste()

Dim objShell As Shell
Dim objFolder As Folder
Dim strFileName As FolderItem
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ActiveCell.Value)
Set strFileName = objFolder.Items.Item(ActiveCell.Offset(0, 1).Value)

NumPiste = objFolder.GetDetailsOf(strFileName, 26)

End Sub

Encore merci et bonnes fêtes