[vba] liste de fichier sous excel

Soyez le premier à donner votre avis sur cette source.

Vue 17 561 fois - Téléchargée 2 458 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
492
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
25 avril 2007
5
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 ;)
Messages postés
1
Date d'inscription
mardi 25 juillet 2006
Statut
Membre
Dernière intervention
8 novembre 2006

C'est vraiment du beau boulot. Chapeau au programmeur et merci car ca m'a bien aidé!
Messages postés
492
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
25 avril 2007
5
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
Messages postés
492
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
25 avril 2007
5
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!)
Messages postés
169
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
7 avril 2008
2
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.

+++
Afficher les 13 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.