begin process at 2012 02 13 20:47:02
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBA

 > [VBA] LISTE DE FICHIER SOUS EXCEL

[VBA] LISTE DE FICHIER SOUS EXCEL


 Information sur la source

Note :
8,5 / 10 - par 2 personnes
8,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBA Niveau :Initié Date de création :25/01/2005 Date de mise à jour :28/01/2006 01:32:01 Vu / téléchargé :15 674 / 2 304

Auteur : AbriBus

Ecrire un message privé
Commentaire sur cette source (13)
Ajouter un commentaire et/ou une note

 Description

Heu... c'est assez inhabituel mais j'avais besoin d'une liste de Mp3 sous excel... et comme il y en avait beaucoup, c'est mieu quand ca se fait tout seul... il y a vraiment rien de tres extraordinaire au niveau du language mais j'ai trouvé ca drole... pis je me suis dit, peut etre que ca peut servir a quelqu'un... alors j'ai mis des commentaire sur toutes les lignes de code (peu nombreuses ;o} )


 Conclusion

Si vous avez des remarques au sujet de ce que ca pourrait faire de plus... ben hesitez pas... Cette source n'a aucune pretention et ne sert qu'à :
1/ donner des idees
2/montrer aux debutants (il y en a encore) comment ca marche sans le compilateur Vb (plustrop d'actualité)
3/ le vba ca m'ammuse :p

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • AbriMp3.xlsTélécharger ce fichier [Réservé aux membres club]429 568 octets

Télécharger le zip


 Historique

25 janvier 2005 17:49:32 :
mise a jour presentation
25 janvier 2005 20:43:18 :
Voila, j'ai ajouté la récupération des auteurs dans le MP3 tag... je me suis fortement inspiré du code de Steffiaume (http://www.vbfrance.com/code.aspx?ID=8095) qui fonctionne tres bien chez moi du moin mais qui ne contient pour ainsi dire pas de commentaires... les commentaire sur la partie MP3 Tag dans la prochaine mise a jour...
27 janvier 2005 00:28:35 :
Gestion d'erreur et commentaires
28 janvier 2006 01:32:02 :
heu... j'ai gardé le meme principe mais la version précédente etait beaucoup plus succinte

 Sources du même auteur

Source avec Zip FENETRE QUI "CLIGNOTE"
Source avec Zip Source avec une capture GRAPHIQUE, COURBES...
Source avec Zip Source avec une capture IPPARAPI
Source avec Zip Source avec une capture PINGER ET RÉCUPÉRER LES OCTETS

 Sources de la même categorie

Source avec Zip GESTION PERSONNEL par oudlarbi
Source avec Zip Source avec une capture CALENDRIER EN VBA POUR EXCEL 2010 par nounou94
Source avec Zip Source avec une capture MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai
Source avec Zip Source avec une capture COLLECTION ID par Le Pivert
Source avec Zip Source avec une capture VBA MASQUE DE SAISIE NUMÉRIQUE par acive

Commentaires et avis

Commentaire de letrust le 25/01/2005 10:07:14

merci pr cette source, javais justement un probleme avec le filedialog pour charger un dossier complet... mais dis moi est-il possible que dans la boite de dialogue (filedialog) on ne click qu'une seul fois sur OK... je pense que c'est au niveau du For Each... mais apparement on ne peut pas trop...  ! sinon merci bcp cette source est tres bien faites à mon gout.

Commentaire de AbriBus le 25/01/2005 17:22:07

Hâ c'est vrai, pour un peu j'allais oublier d'en parler... innexplicablement, il faut appuyer deux fois sur "Ok" dans la boite de dialogue sélectionnant le repertoire choisi... Je n'ai aucune idee du pourquoi (je souligne ici que je ne suis pas le createur de cette magnifique boite appartenant a Micro$oft). Je suis toujours dessus mais si quelqu'un a une idee... ou mieu, une solution... je suis prenneur.

letrust> merci pour ton engouement pour ce bout de source... ca fait plaisir ;-)

Commentaire de Afyn le 25/01/2005 18:12:08

Trés bien ...
C'est possible d'organiser les infos receuillies
par groupe, un peu comme une tree view ? (Groupées)

Merci

Afyn - Navedac

Commentaire de AbriBus le 25/01/2005 18:24:31

oui on peut, mais c'est un peu dlicat car il faut creer un objet OLAP pour en faire un CubeField qui est une structure de base de donnees simplifiée (enfin, perso je trouve qu'il y a rien de simple la dedant). Bref, on peut mais d'une part c'est tres statique (difficilement modifiable et repondant a des critères initiaux stricts) aussi me parrait-il urgent de définir une arborescence logique et solide du treeview (je pensais metre ca en oeuvre plus tard s'il m'est possible d'implementer la lecture des MP3 tags)

AbriBus

Commentaire de AbriBus le 27/01/2005 00:30:55

Voila, alors je viens de metre les commentaires sur la partie Mp3Tag que je devrais probablement encore metre a jour plus tard... pour aller chercher davantage d'informations du Tag...

Bonne prog...
'BriBus.

Commentaire de 2pme le 31/01/2005 02:55:09

«innexplicablement, il faut appuyer deux fois sur "Ok" dans la boite de dialogue sélectionnant le repertoire choisi... Je n'ai aucune idee du pourquoi»

Dans la procédure

Private Sub CommandButton1_Click()
  fd.Show
   With fd
          If .Show = -1 Then...
tu fais ouvrir deux fois le formulaire de recherche de dossiers.  Pour éviter la chose pose une variable

Dim rep as long

rep = fd.Show
  with fd
    if rep = -1 then ...

La variable rep porte la réponse de l'utilisateur, pas besoin de l'ouvrir deux fois avec la méthode .Show.

Voilà, d'autres commentaires suivront.

Commentaire de kalobit le 26/01/2006 17:06:10

salut,

l'instruction
        If .Show = -1 Then

test la valeur de .show et donc réaffiche le dialog.

donc inutile de l'afficher la première fois.
Il faut supprimer
fd.Show

de ton code.

Sinon, c'est cool. Moi j'utilise un autre dialog mais je trouve celui ci mieux. en plus, il permet d'utiliser les dossier favoris :))))

Commentaire de AbriBus le 26/01/2006 17:13:40

Hehe... il est a noter que quand j'ai programmé ce vba la premiere fois, j'utilisai Excel 2003... j'ai du repasser a Excel 2000 et la... malheure, la boite de dialogue genere une erreur... :'(

En tout cas, j'ai repris ce code en main... et je ne vais pas tarder a le mettre a jour, et je vous promet ici que vous risquez bien de le trouver... changé ^^

la principale innovation de la derniere version est la possibilité de lire un mp3 dans le fichier excel... (bon, va falloir que je vois comment je vais faire parceque juste avec les plugins dans la macro, le .xls fait plus de 1.5Mo) Nix, ca va passer ? :D

A tres bientot...
AbriBouffe

Commentaire de kalobit le 26/01/2006 17:18:59

salut,

Voilà mon dialog (API)

Option Explicit

'32-bit API declarations
Declare Function SHGetPathFromIDList Lib "shell32.dll" _
  Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Declare Function SHBrowseForFolder Lib "shell32.dll" _
  Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
  
Public Type BROWSEINFO
  hOwner As Long
  pidlRoot As Long
  pszDisplayName As String
  lpszTitle As String
  ulFlags As Long
  lpfn As Long
  lParam As Long
  iImage As Long
End Type

et la fonction

Function GetDirectory(Optional Msg) As String
    Dim bInfo As BROWSEINFO
    Dim path As String
    Dim r As Long, x As Long, pos As Integer

' Root folder = Desktop
    bInfo.pidlRoot = 0&

' Title in the dialog
    If IsMissing(Msg) Then
        bInfo.lpszTitle = "Select a folder."
    Else
        bInfo.lpszTitle = Msg
  End If

' Type of directory to return
    bInfo.ulFlags = &H1

' Display the dialog
    x = SHBrowseForFolder(bInfo)

' Parse the result
    path = Space$(512)
    r = SHGetPathFromIDList(ByVal x, ByVal path)
    If r Then
        pos = InStr(path, Chr$(0))
        GetDirectory = Left(path, pos - 1)
    Else
        GetDirectory = ""
  End If
End Function

Si ça t'interrese, j'ai fait un classeur dans ce style pour créer mes playlistes M3U.

+++

Commentaire de AbriBus le 27/01/2006 00:39:31

Ha oui, ca m'interresse meme pas mal!! Merci Kalobit pour ce sympatique bout de code qui pourrait bien m'etre plus qu'utile (pour la peine, je venais faire la mise a jour... ca attendra... :D) Creer les playliste M3U ca c'est cooool... et ca marche bien ? parceque justement, je suis en train d'essayer de gerer les playliste dans le playeur du fichier... mais si tu le voulais bien, ca pourrait bien etre un module tres sympa pour ce fichier .xls...
Bon bah je reviendrais faire la mise a jour quand j'aurais reglé ce probleme de boite de dialogue (merci encore!)

Commentaire de AbriBus le 28/01/2006 01:49:16

Par contre, j'ai un autre petit probleme maintenant (dont je ne m'etait pas rendu compte et pour cause...) j'ai l'impression que maintenant il faut avoir un runtime vb... parceque ca marche nikel sur mon poste de dev mais sur un poste qui n'a pas Vb6 ca tourne pas (ca a peut etre rien a voir...) ca me fait une erreur sur la variable "NbrCell" :s
Je vais enquetter... si vous avez une idee... je suis prenneur...
Bonne prog,
AbriBus

Commentaire de bryann le 08/11/2006 11:33:25

C'est vraiment du beau boulot. Chapeau au programmeur et merci car ca m'a bien aidé!

Commentaire de AbriBus le 08/11/2006 12:40:13

Merci bryann, je suis en train de regler deux ou trois probleme de compatibilité entre les versions, mais je devrais faire une mise a jour sous peu de cette source ;)

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,290 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales