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

extraire Durée fichier mp3

Créer une discussion

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 !

S'inscrire
P

Patience

XLDnaute Nouveau
Bonjour à tous,

Je suis nouvelle sur le forum, j'ai quelques notion d'excel et suis débutante en VBA.
Mon pb: J'ai des fichiers mp3 sur un clé USB (G:\);
J'ai réussi à bidouiller différents morceaux de code pour les lister (sans lister les sous-dossiers ce qui est tout à fait ce que je souhaite), en extraire le nom et la date de création. je voudrais également avoir la durée mais je bloque.
J'ai cherché et tester différentes macros mais je ne m'en sors pas.
Je fais un post en désespoir de cause.
Je bloque au niveau de la ligne en violet et ne sais pas quoi mettre pour récupérer la durée du fichier mp3
En espérant que vous pourrez m'aider.

voici mon code :
Sub ScanClasseurs()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String, CeFichier As String, ExtFichier As String
Dim TabDossiers As Variant
Dim L As Long, D As Long
Chemin = "G:\"
If Chemin = "" Then Exit Sub
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Test").Range("A2:B65536").Delete Shift:=xlUp
CeFichier = ThisWorkbook.Name
ExtFichier = UCase(Trim(ThisWorkbook.Sheets("Test").Range("Extension").Text))
L = 1
'Création du tableau des sous-dossiers existants
TabDossiers = lstDossiers(Chemin, True)
'Chemin du dossier (ou sous-dossier) à analyser
Chemin = "G:\"
If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
'Analyse du dossier (ou sous-dossier)
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Dossier.Files
If Fichier.Name <> CeFichier Then
If ExtFichier = "" Or UCase(Right(Fichier.Name, 3)) = ExtFichier Then
'Liste les fichiers
L = L + 1
'MAJ feuille résultats
With ThisWorkbook.Sheets("Test")
.Cells(L, 1).Value = Fichier.Name
.Cells(L, 2).Value = Fichier.DateCreated
.Cells(L, 3).Value = Fichier.????????
End With
End If
End If
Next
Set Dossier = Nothing
'Rétablit l'alerte de lien éventuelle dans les options Excel
Application.ScreenUpdating = True

End Sub

Private Function lstDossiers(Chemin As String, Optional Debut As Boolean) As Variant
Dim Dossier As Object, SD As Object, D As Object
Static TabTemp() As String
If Debut Then
ReDim TabTemp(1 To 1)
TabTemp(1) = Chemin
End If
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
'examen du dossier courant
For Each D In Dossier.subfolders
ReDim Preserve TabTemp(1 To UBound(TabTemp) + 1)
TabTemp(UBound(TabTemp)) = D.Path
Next

End Function
 
Trier par date Trier par votes
Re : extraire Durée fichier mp3

Bonjour phlaurent55,

Avant d'embêter avec mes questions, j'ai fais des recherches sur le forum et j'ai testé le code dont vous donnez le lien.
Malheureusement, chez moi, ca donne une erreur : erreur de compilation : Membre de méthode ou de données introuvables à la li 115, Col 41 et ca souligne en bleu le "items" dans la phrase For Each strFileName In objFolder.Items

et je suis bien trop débutante pour voir d'où ca peut venir.

Mais merci de votre réponse rapide.
Bonne journée
 
Dernière édition:
Vote positif 0 Vote négatif
Re : extraire Durée fichier mp3

Bonjour Patience, Philippe, le forum,

Voici un code à placer dans un module :
VB: 
Option Explicit
Public Enum FilePropType
Name = 0
Size = 1
FileType = 2
DateModified = 3
DateCreated = 4
DateAccessed = 5
Attributes = 6
Status = 7
Owner = 8
Author = 9
Title = 10
Subject = 11
Category = 12
Pages = 13
Comments = 14
Copyright = 15
Artist = 16
AlbumTitle = 17
Year = 18
TrackNumber = 19
Genre = 20
Duration = 21
BitRate = 22
Protected = 23
CameraModel = 24
DatePictureTaken = 25
Dimensions = 26
Company = 30
Description = 31
FileVersion = 32
ProductName = 33
ProductVersion = 34
End Enum

Public Function GetFileProperty(filePath As String, idx As FilePropType) As String
Dim objFolder As Object, theFile As Object
Set theFile = CreateObject("Scripting.FileSystemObject").GetFile(filePath)
Set objFolder = CreateObject("Shell.Application").Namespace(CStr(theFile.ParentFolder))
GetFileProperty = objFolder.GetDetailsOf(objFolder.ParseName(theFile.Name), idx)
Set objFolder = Nothing: Set theFile = Nothing
End Function

Ensuite, il faut l'utiliser comme ça :
VB: 
laDuree = GetFileProperty("C:\MaMusique.mp3",Duration)


La fonction renvoit un string du type "00:04:19".
A+
 
Vote positif 0 Vote négatif
Re : extraire Durée fichier mp3

Bonjour mromain,

et merci de votre réponse,

j'ai mis donc ce que vous m'avez donné dans un module.

et dans le code que j'avais déjà, j'ai changé et mis (cf police violette), sachant que les mp3 se trouvent à la racine de ma clé USB, en espérant avoir bien suivi vos indications :

Option Explicit

Sub ScanClasseurs()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String, CeFichier As String, ExtFichier As String
Dim TabDossiers As Variant
Dim L As Long, D As Long
Chemin = "G:\"
If Chemin = "" Then Exit Sub
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Test").Range("A2:B65536").Delete Shift:=xlUp
CeFichier = ThisWorkbook.Name
ExtFichier = UCase(Trim(ThisWorkbook.Sheets("Test").Range("Extension").Text))
L = 1
'Création du tableau des sous-dossiers existants
TabDossiers = lstDossiers(Chemin, True)
'Chemin du dossier (ou sous-dossier) à analyser
Chemin = "G:\"
If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
'Analyse du dossier (ou sous-dossier)
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Dossier.Files
If Fichier.Name <> CeFichier Then
If ExtFichier = "" Or UCase(Right(Fichier.Name, 3)) = ExtFichier Then
'Liste les fichiers
L = L + 1
'MAJ feuille résultats
With ThisWorkbook.Sheets("Test")
.Cells(L, 1).Value = Fichier.Name
.Cells(L, 2).Value = Fichier.DateCreated
.Cells(L, 3).Value = GetFileProperty("G:\.mp3", Duration)

End With
End If
End If
Next
Set Dossier = Nothing
'Rétablit l'alerte de lien éventuelle dans les options Excel
Application.ScreenUpdating = True

End Sub

Private Function lstDossiers(Chemin As String, Optional Debut As Boolean) As Variant
Dim Dossier As Object, SD As Object, D As Object
Static TabTemp() As String
If Debut Then
ReDim TabTemp(1 To 1)
TabTemp(1) = Chemin
End If
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
'examen du dossier courant
For Each D In Dossier.subfolders
ReDim Preserve TabTemp(1 To UBound(TabTemp) + 1)
TabTemp(UBound(TabTemp)) = D.Path
Next

End Function


Maleureusement, ca ne convient pas à Excel. Lorsque j'execute la macro, il bloque, met un message : "Erreur d'exécution '53' : fichier introuvable et surligne en jaune (position Li 10, Col 1) dans le module où j'ai copié ce que vous m'avez donné
Set theFile = CreateObject("Scripting.FileSystemObject").GetFile(filePath)

Qu'est ce que j'ai mal fait ?

Je joins le fichier si ca peut aider.

Je précise que pour que la macro ne me liste que les mp3, je dois remplir une case dans la feuille test, sinon, il liste tous les types de fichiers.

encore merci de votre temps...
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : extraire Durée fichier mp3

Bonjour Michel,

Ce fichier marche effectivement parfaitement. Merci beaucoup.

Je vais essayer de voir si je peux l'intégrer à ma macro déjà existante car j'aurais aimé pouvoir extraire d'un coup pour les fichiers mp3 présents sur la racine de ma clé USB leur nom, leur date de création et leur durée afin de pouvoir des trier du plus ancien au plus récent et les copier ensuite à la suite d'une liste déjà existante mais je crois qu'il ne faut pas trop en demander 😛.

En tout cas, merci beaucoup !

et bon week-end à tous.
 
Vote positif 0 Vote négatif
Re : extraire Durée fichier mp3

Bonjour Patience

En tout cas, merci beaucoup !
Cliquez pour agrandir...

Mais de rien, cela faisant longtemps que je cherchais ce code 🙂.

leur date de création et leur durée afin de pouvoir des trier du plus ancien au plus récent
Cliquez pour agrandir...

Normalement en modifiant ce code, en ajoutant la boucle For..Next, tu devrais y arriver.

Code: 
Cells(cell.Row, 2) = objFolder.GetDetailsOf(strFileName, 27)
 For j = 1 To 5
 Cells(cell.Row, j + 2) = objFolder.GetDetailsOf(strFileName, j)
 Next
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Question Question
XL 2021 Ouvrir une application et vérifier si elle est déjà ouverte
Réponses
4
Affichages
120
Jojo973
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
162
job75
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
532
Simon 1234
S
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
556
telemarrk
T
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
444
Webperegrino
W
C
  • Résolu(e)
XL 2021 Sauvegarder répertoire/sous répertoire un peu volumineux 2 Go
Réponses
7
Affichages
305
Claudinedu13
C
N
  • Question Question
Microsoft 365 connexion ado vers access office 2024 64 bits
Réponses
2
Affichages
269
nabilexcel2007
N
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
393
firecarl
F
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
365
VBA_dev_Anne_Marie
I
  • Résolu(e)
Microsoft 365 Ouvrir le dossier téléchargement avec Macro
Réponses
3
Affichages
588
patricktoulon
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
1 K
Thomi
T
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
283
JJ69
J
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
270
Phil69970
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
312
fanch55
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
264
un internaute
U
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
541
tnion
T
M
  • Question Question
Autres remplir auto. l'objet de l'email avec nom PJ dans Outlook (et si pas de pj alors aucun objet)
2
Réponses
29
Affichages
471
TooFatBoy
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
708
Gestionnaire_rh
G
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
480
Oneida
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
212
kiki29
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…