HEL : Lister en excel mes MP3..!!???

Bonsoir,

"J-Michel" <zphilou@hotmail.com> a écrit dans le message de news:
410bda21$0$30088$636a15ce@news.free.fr...

Bonjour à tous ( je débarque tout nouvellement sur ce forum ) :

Quelqu'un aurait-il une solution simple (et bien entendu gratuite) pour me
permettre de confectionner une base de données, voir même un classeur
Excel,

à partir de mon répertoire Windows-XP.
Depuis 2 jours, j'ai fait le tour (via Google et Altavista) de quelques
solutions progicielles, mais...souvent limitées car Shareware ( limitant
le

nb d'album ou le nb de titres, sachant que j'compte aujourd'hui environ
4000

titres persos (et je n'en suis qu'à la moitié)....

Bref une solution me permettant de lister Artiste-Album-Titre-N° piste, me
conviendrait à minima...Merci par avance...!!!

Où sont répertoriés les infos "Artiste-Album-Titre-N° piste" ?
Dans les tag des mp3 ou dans le nom des fichiers ou également au niveau des
répertoires ?
L'archivage dans les dossiers est significatif (par artiste, album etc ...)
?

Quel est ton problème exactement, car Excel permet jusqu'à 60000 lignes (de
mémoire) ??
Ton problème est l'outil, la méthode ou la rapidité de mise en place (ou de
récup des infos) ?
Tu veux un outil de classement / enregistrement des infos ou une "véritable"
gestionnaire de base de données simplifié, type Access de Microsoft ?

Cordialement,

FDDKDR

Bonjour ...J-Michel qui nous as a dit

* Bonjour à tous ( je débarque tout nouvellement sur ce forum ) :
* Cordialement . ( Adresse émail = zphilou@hotmail.com )

ça c'est une grosse bêtise de mettre son adresse réelle sur un forum...
tu vas reçevoir pleind Spams et virus ;-(
regarde la mienne ;-)
regarde si printDIRprn sur mon site est la solution
http://jceel.free.fr/ptdirprn.zip


--
@++++Jceel - MVP Win, I E, Media Player

En vérité je te le dis mais sous O E
internaute indécis pour le HacheuTeuMeuLeu
seul le click droit Control+F deux
la lumière t'apportera C'est ce qu'il y a de mieux
netevangile..selon Jceel.livre du windows.psaume alt-255..verset ÿp
Jceel http://jceel.free.fr l'hyper du gratuit du net
Founding Chairman of the International Pebkac Busters Company

Salut,
peut-être que cette archive peu t'aider ?

-----------------
Bonjour Albator

colle ces deux macro dans un module de ton classeur et execute "mondir"

isabelle
p/s je ne me souvient plus qui est l'auteur de cette excellente macro
si
quelqu'un le sait pourriez-vous me le rappeler, merci !)



Sub remplir(RepertParent, ExtFichier)
' Remplit la feuille courante avec le contenu du répertoire
RepertParent
' Les noms de répertoires sont placés dans la colonne active à partir
de
la
' cellule active
' Les noms de fichiers correspondants à ExtFichier sont affichés dans
la
' colonne de gauche
' il reste a écrire la section date et heure 14/02/2000 18:30

Dim Compteur As Integer
Dim NbreRepert As Integer
Dim LeFichier As String
Dim LeDossier As String
Dim ExtLocale As String
Dim ParentLocal As String
Dim LeDossierLocal() As String

ExtLocale = ExtFichier
LeFichier = Dir(RepertParent & ExtFichier)
If Len(LeFichier) = 0 Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(1, 0).Select
End If
Do While Len(LeFichier) <> 0
ActiveCell.Value = RepertParent
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = LeFichier
ActiveCell.Offset(1, -1).Select
LeFichier = Dir
Loop
'Compter le nombre de sous-répertoires
NbreRepert = 0
LeDossier = Dir(RepertParent, vbDirectory)
Do While LeDossier <> ""
If LeDossier <> "." And LeDossier <> ".." Then
If (GetAttr(RepertParent & LeDossier) And vbDirectory) vbDirectory Then
NbreRepert = NbreRepert + 1
End If
End If
LeDossier = Dir
Loop
ReDim LeDossierLocal(NbreRepert + 1)
Compteur = 1
LeDossierLocal(Compteur) = Dir(RepertParent, vbDirectory)
Do While LeDossierLocal(Compteur) <> ""
If LeDossierLocal(Compteur) <> "." And LeDossierLocal(Compteur) <>
".." Then
If (GetAttr(RepertParent & LeDossierLocal(Compteur)) And
vbDirectory) = vbDirectory Then
Compteur = Compteur + 1
End If
End If
LeDossierLocal(Compteur) = Dir
Loop
For Compteur = 1 To UBound(LeDossierLocal()) - 1
ParentLocal = RepertParent & LeDossierLocal(Compteur) & ""
Call remplir(ParentLocal, ExtLocale)
Next
End Sub

Sub mondir()
Dim LeChemin As String
Dim Lextension As String
Dim LeTitre As String
Dim LeMessage As String
Dim Arret As Boolean

LeTitre = "Répertoires et sous-répertoires"
LeMessage = "Taper le nom complet du répertoire"
Arret = False

Do
LeChemin = InputBox(LeMessage, LeTitre, LeChemin)
If Len(LeChemin) = 0 Then
Arret = True
Else
If Mid(LeChemin, Len(LeChemin), 1) <> "" Then
LeChemin = LeChemin + ""
End If
If Len(Dir(LeChemin, vbDirectory)) <> 0 Then
Lextension = InputBox("Taper le type de fichier à afficher",
LeTitre, "*.*")
Call remplir(LeChemin, Lextension)
Arret = True
Else
LeMessage = "Répertoire introuvable...Recommencer ?"
End If
End If
Loop Until Arret
End Sub

voici:

sur mon hd je compile tout mes cd en mp3 et je présente comme ceci:

répertoire que je nomme ainsi:

ARTISTE - Titre de l'album

ds ce répertoire c'est le mm principe mais pour les titres:

ARTISTE - titre de la piste xx

maintenant j'en arrive à ce que je voudrai faire, c'est à dire créer un
catalogue par ex sous excel pour être libre de la mise en forme d'autres
bricoles...
mais pour l'instant je ne parviens pas à commencer par la base !

je m'explique comment procéder pour que les fichier et/ou répertoires soit
pris en compte par excel en txt ? c juste ca qui me bloque en fait ?
y'a des prg spécialisés pour transformer le contenu de l'explorateur windows
en txt ? ca me perméttrai de coller ds excel & ensuite de faire un
nétoyage...

le top serai que quelqu'un me fasse partager son savoir ds ce domaine si
déjà vécu/résolu...
je pense qu'en an 2000 cela doit être possible ! sinon à quoi ca sert
l'informatique ???

merci pour toutes réponse pouvant faire avancer la solution....
----------------

sinon, voit sur http://www.excelabo.net/

ou demander des esseuplication (c'est comme ça qu'on le dit sur MPFE)
microsoft.public.fr.excel


Match
============== samedi , J-Michel nous disait :

Bonjour à tous ( je débarque tout nouvellement sur ce forum ) :

Quelqu'un aurait-il une solution simple (et bien entendu gratuite) pour me
permettre de confectionner une base de données, voir même un classeur Excel,
à partir de mon répertoire Windows-XP.
Depuis 2 jours, j'ai fait le tour (via Google et Altavista) de quelques
solutions progicielles, mais...souvent limitées car Shareware ( limitant le
nb d'album ou le nb de titres, sachant que j'compte aujourd'hui environ 4000
titres persos (et je n'en suis qu'à la moitié)....

Bref une solution me permettant de lister Artiste-Album-Titre-N° piste, me
conviendrait à minima...Merci par avance...!!!

Cordialement . ( Adresse émail = zphilou@hotmail.com )

--
adresse anti-spam.
Désolé !