delf_2811
Messages postés jeudi 29 mars 2007Date d'inscription
9 mai 2007
Dernière intervention
-
4 mai 2007 à 17:17 - Dernière réponse : delf_2811
Messages postés jeudi 29 mars 2007Date d'inscription
9 mai 2007
Dernière intervention
- 9 mai 2007 à 16:42
Je travaille sous excel, et je chercher à lister tous les dossiers et non les fichier car je doit parcourir certain dossier et pas d'autre.
J'ai essayer avec la fonction DIR mais cela ne fonctionne pas.
Insère donc un contrôle DirlistBox nommé Dir1 et un bouton de commande nommé Command1 et ce code
Lance, clique sur command1
Clique ensuite sur un dossier
Vois...
Et Prends là-dedans (fais le ménage) ce qui t'intéresse ...
Private Sub Command1_Click()
Dir1.Path = "d:\monoutil" 'ici ton chemin à toi, bien sur ...
For i = 1 To Dir1.ListCount
MsgBox Dir1.List(i)
Next
End Sub
Private Sub Dir1_Click()
MsgBox Dir1.List(Dir1.ListIndex)
End Sub
Bonne nuit.
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
cs_JMO1838
Messages postés jeudi 23 mai 2002Date d'inscription
1 avril 2018
Dernière intervention - 4 mai 2007 à 23:16
0
Utile
Bonjsoir,
L'exemple ci-dessous existe surement en vb6.
Option Explicit
Dim objFso, objRootFolder
Dim strRootPath, strSubFolder, strResult
strRootPath = "D:\Mes_scripts_VBFrance"
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objRootFolder = objFso.GetFolder(strRootPath)
Call SearchFolders(objRootFolder)
Msgbox strResult,,"Enumératon Sous-Répertoire(s) de " & strRootPath
Set objRootFolder = Nothing
Set objFso = Nothing
Sub SearchFolders(ArgFolder)
For Each strSubFolder In ArgFolder.SubFolders
On Error Resume Next ' permission
Call SelectFolder(strSubfolder)
Call SearchFolders(strSubfolder)
Next
End Sub
Sub SelectFolder(ArgFolder)
strResult = strResult &vbCrLf& ArgFolder
End Sub
mortalino6812
Messages postés vendredi 16 décembre 2005Date d'inscription
21 décembre 2011
Dernière intervention - 5 mai 2007 à 06:21
0
Utile
Salut Exploreur ;)
Merci pour mon code Hélas, WMI est gourmand en ressource. Pour ce qu'il souhaite, je lui conseille mon Snippet
Sub Cherche_Fichiers_Dans_Dossier()
Dim strMessage As String
Dim i As Long
Set fs = Application.FileSearch
With fs
.LookIn = "C:" ' *** mettre ici le dossier voulu !
.SearchSubFolders = True
.Filename = "*.exe" ' *** extension à
modifier
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "Il y a " & .FoundFiles.Count & _
" fichier(s) trouvé(s)."
For i = 1 To .FoundFiles.Count
Cells(i, 1).Value = .FoundFiles(i)
'
*** attention à la localisation. Modifie au besoin
Next i
Else
MsgBox "Il n'y a aucun fichier."
End If
End With
End Sub
~
<small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>
Bonne journée à tous
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
Pas de dirlistbox en VBA ?
Bon...
On utilise alors la finction DIR
Un bouton de commande Command1 et une listbox List1
on lance, on clique sur commande1, on choisit un dossier
Private repprinc As String
Private Sub Command1_Click()
repprinc = "d:\monoutil" ' ici le dossier principal à scanner
reptrouv = Dir(repprinc, vbDirectory)
List1.Clear
Do While reptrouv <> ""
If reptrouv <> "." And reptrouv <> ".." Then
If (GetAttr(repprinc & reptrouv) And vbDirectory) = vbDirectory Then
List1.AddItem reptrouv
End If
End If
reptrouv = Dir
Loop
End Sub
Private Sub List1_Click()
MsgBox repprinc & List1.List(List1.ListIndex)
End Sub
Je vois par ailleurs que tbbuim1 a fait ce qu'il fallait pour palier cette carence de VBA.
On trouvera ici sa source, accompagnée des OCX prêts à l'emploi dans VBA, dont le DirlistBox.OCX
delf_2811
Messages postés jeudi 29 mars 2007Date d'inscription
9 mai 2007
Dernière intervention - 9 mai 2007 à 09:53
0
Utile
bonjour,
Merci a tous pour vos réponses mais jej suis toujours bloquée.
jmfmarques j'ai essayée ta méthode mais j'ai une info qui me dit : Membre de méthode ou de données introuvable en ce qui concerne .Path dans la 1ere ligne du code:
Private Sub CommandButton1_Click()
Dir1.Path = "C:\Documents and Settings\Mes documents"
For i = 1 To Dir1.ListCount
MsgBox Dir1.List(i)
Next
End Sub
cs_MPi3863
Messages postés mardi 19 mars 2002Date d'inscription
13 mars 2018
Dernière intervention - 9 mai 2007 à 10:53
0
Utile
Pour que ce soit plus simple à écrire, copie les fichiers OCX (ainsi que les DEP, DLL, et autres bizzareries fournies) dans le répertoire System32 de Windows.
Ensuite, bouton Démarrer / Exécuter
Dans la fenêtre qui s'ouvre, tape
regsvr32 "NomDuOcx.ocx"
Tu devrais recevoir un message te disant que l'enregistrement a réussi.
