[VBA] LISTE DE FICHIER SOUS EXCEL
cs_letrust
Messages postés
9
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
25 janvier 2005
-
25 janv. 2005 à 10:07
cs_AbriBus Messages postés 492 Date d'inscription jeudi 28 août 2003 Statut Membre Dernière intervention 25 avril 2007 - 8 nov. 2006 à 12:40
cs_AbriBus Messages postés 492 Date d'inscription jeudi 28 août 2003 Statut Membre Dernière intervention 25 avril 2007 - 8 nov. 2006 à 12:40
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/29061-vba-liste-de-fichier-sous-excel
https://codes-sources.commentcamarche.net/source/29061-vba-liste-de-fichier-sous-excel
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.
+++
26 janv. 2006 à 17:13
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
26 janv. 2006 à 17:06
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 :))))
31 janv. 2005 à 02:55
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.
27 janv. 2005 à 00:30
Bonne prog...
'BriBus.
25 janv. 2005 à 18:24
AbriBus
25 janv. 2005 à 18:12
C'est possible d'organiser les infos receuillies
par groupe, un peu comme une tree view ? (Groupées)
Merci
Afyn - Navedac
25 janv. 2005 à 17:22
letrust> merci pour ton engouement pour ce bout de source... ca fait plaisir ;-)
25 janv. 2005 à 10:07