Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Juke-Box et Tags Mp3

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

claudio54

XLDnaute Junior
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
 
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.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…