Retagger des mp3 sur excel

[Chris57]

Bonjour à tous,

j'ai trouvé ce code sur la toile :

Type MP3Tag
  ID As String * 3
  Title As String * 30
  Artist As String * 30
  Album As String * 30
  Year As String * 4
  Comment As String * 28
  ID3Tag As Byte
  TrackNumber As Byte

End Type
 
 Sub Test()
 Const cRecordLen = 128
 Dim strfile As String, lngFileLen As Long
 Dim tag As MP3Tag, intFF As Integer
 
  strfile = "C:\Users\Administrateur\Desktop\EDX  -  Embrace (original club mix)  -  2011.mp3"
  lngFileLen = FileLen(strfile)
 
  intFF = FreeFile
  Open strfile For Binary Access Read As intFF
 
  Get intFF, lngFileLen - cRecordLen + 1, tag
 
  If tag.ID = "TAG" Then
    Debug.Print tag.Album; Tab; tag.TrackNumber; Tab; tag.Title
  End If
 
  Close intFF
  
 [A1] = "tag.ID"
 [A2] = "tag.Title"
 [A3] = "tag.Artist"
 [A4] = "tag.Album"
 [A5] = "tag.Year"
 [A6] = "tag.Comment"
 [A7] = "tag.ID3Tag"
 [A8] = "tag.TrackNumber"

 
 
 
 [B1] = tag.ID
 [b2] = tag.Title
 [b3] = tag.Artist
 [b4] = tag.Album
 [b5] = tag.Year
 [b6] = tag.Comment
 [b7] = tag.ID3Tag
 [b8] = tag.TrackNumber

 
 End Sub

celui-ci permet d'afficher les tags d'un fichier mp3

Ce que je voudrais c'est modifier les tags à partir d'excel.
Un spécialiste pourrai me donner une méthode ?

 

[JNP]

Re : Retagger des mp3 sur excel

Bonjour Chris57 🙂,
D'après l'aide de la méthode Open

Open, instruction
Permet d'exécuter une opération d'Entrée/Sortie (E/S) sur un fichier.
Syntaxe
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
La syntaxe de l'instruction Open comprend les éléments suivants :
Élément Description
pathname : Expression de chaîne indiquant un nom de fichier — peut comprendre un nom de répertoire ou de dossier et un nom de lecteur.
mode : Mot clé indiquant le mode d'ouverture du fichier : Append, Binary, Input, Output ou Random. S'il n'est pas indiqué, le fichier est ouvert en mode Random.
access : Facultatif. Mot clé indiquant les opérations autorisées sur le fichier ouvert : Read, Write ou Read Write.
lock : Facultatif. Mot clé indiquant les opérations restreintes sur le fichier ouvert par d'autres processus : Shared, Lock Read, Lock Write et Lock Read Write.
filenumber : Numéro de fichier valide compris entre 1 et 511, inclus. Utilisez la fonction FreeFile pour obtenir le prochain numéro de fichier disponible.
reclength : Facultatif. Nombre inférieur ou égal à 32 767 (octets). Pour les fichiers ouverts en mode Random, cette valeur représente la longueur de l'enregistrement. Pour les fichiers séquentiels, elle représente le nombre de caractères contenus dans la zone tampon.

il devrait te suffire de l'ouvrir en mode Read Write 🙄...
Bonne journée 😎

 

[Chris57]

Re : Retagger des mp3 sur excel

ay ! Trop complexe pour moi !
Ce forum m'a déjà aidé à créer un fichier permettant de renommer un liste de mp3 à la volée :

' Ouverture d'un dossier au choix et récupération des fichiers s'y trouvant, dans la feuille "Renommeur"

Function ChoixDossier()
' Fonction pour ouverture popup Dossiers
    If Val(Application.Version) >= 10 Then
       With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = [L9] & "\"
        '.Filename = [L9] & "\"
        '.InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count > 0 Then
           ChoixDossier = .SelectedItems(1)
        Else
           ChoixDossier = ""
        End If
       End With
     Else
       ChoixDossier = InputBox("Répertoire?")
     End If
     
[L9] = ChoixDossier

End Function

Sub CHOIX()
  Range("B2:E500").ClearContents
  Range("D6:D500").Interior.ColorIndex = xlNone
  Range("L19").ClearContents

  [L10].ClearContents

    Range("B1").ColumnWidth = 30
    Range("D1").ColumnWidth = 30
    Range("C1").ColumnWidth = 0
  
    ' Ouverture popup dossiers
        ChDir ThisWorkbook.path   ' répertoire de l'appli
        Dossier = ChoixDossier()
        If Dossier = "" Then Exit Sub

        
    ' Récupérations des noms des fichiers selon extention choisie
        Ligne = 2
        nf = Dir("*." & [L3])
        Do While nf <> ""
          Cells(Ligne, 2) = nf
          'Cells(Ligne, 10) = FileDateTime(nf)   ' décocher si on veut la date de création
          Ligne = Ligne + 1
          nf = Dir                  ' suivant
        Loop
 
    ' Mise en page
        Columns("B:B").Columns.AutoFit
        Columns("D:D").Columns.AutoFit

Compter
        NOMdossier

Application.ScreenUpdating = True
ActiveWindow.SmallScroll Down:=-500
End Sub

Sub RENOMMER()

' Affiche le message.
Response = MsgBox("Etes vous sur de vouloir renommer les fichiers ?", vbYesNo + vbCritical + vbDefaultButton2, "RENOMMER LES FICHIERS")
If Response = vbYes Then    '
    GoTo RENOMMER
Else
    GoTo ANNULER
End If


RENOMMER:

' Renomme les fichiers sur le DD
    For Each c In Range([b2], [b2].End(xlDown))
       If c.Offset(0, 2) <> "" Then
         c.Select
         Name c.Value As c.Offset(0, 2).Value
       End If
    Next c
    
ANNULER:

End Sub

Il m'affiche les titres des mp3 dans la colonnes B, je les modifie avec diverses macros dans la colonne D et il me les renomme avec la macro RENOMMER.

J'aurai aimé pouvoir modifier en même temps les TAGs, ce qui m'éviterai d'ouvrir à chaque fois un autre logiciel, et surtout profiter des macros d'excel !