[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} )
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
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
- [vba] liste de fichier sous excel
- [Catégorie encore modifiée VB6 --> VBA] Rechercher un fichier avec excel VBA ✓ - Forum - Visual Basic 6
- Creation d'une boucle sur une liste de fichiers dans exel ✓ - Forum - Visual Basic 6
- Imprimer une liste de fichiers pdf et word via vba excel ✓ - Forum - Visual Basic 6
- Vba ouvrir un fichier excel sans l'afficher ✓ - Forum - Visual Basic 6
- Visual Basic / VB.NET : Liste des fichiers et sous répertoires pour verser dans excel - CodeS - Guide
Commentaires
- Messages postés
-
492
- Date d'inscription
- jeudi 28 août 2003
- Statut
- Membre
- Dernière intervention
- 25 avril 2007
5- Messages postés
-
492
- Date d'inscription
- jeudi 28 août 2003
- Statut
- Membre
- Dernière intervention
- 25 avril 2007
5Je 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
5Bon 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
2Voilà 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.