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
8 nov. 2006 à 12:40
8 nov. 2006 à 11:33
28 janv. 2006 à 01:49
Je vais enquetter... si vous avez une idee... je suis prenneur...
Bonne prog,
AbriBus
27 janv. 2006 à 00:39
Bon bah je reviendrais faire la mise a jour quand j'aurais reglé ce probleme de boite de dialogue (merci encore!)
26 janv. 2006 à 17:18
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.
+++
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.