lister les éléments d'un dossier

[gildas lechat]

Bonsoir le forum,

J'aimerai ,à l'aide d'un user form présenté sous le fichier ci joint,lister l'ensemble des dossiers présent sous un fichier.

L'explication est donnée sur le fichier joint

Cette demande a pour but de compléter une macro déjas existante.
Si vous pouvez m'aider,
Merci d'avance
Gildas

 

[Staple1600]

Re : lister les éléments d'un dossier

Bonsoir

Regardes en bas de la page
dans Discussions similaires

 

[gildas lechat]

Re : lister les éléments d'un dossier

merci Staple 1600

Je suis moi même originaire de Rennes....

je ne voie pas comment adapter les proposition a mon besoin.
En fait il faut impérativement passer par un user form pour rester unifom par ratpport au restant de la macro déjas en place..
gildas

 

[Staple1600]

Re : lister les éléments d'un dossier

Re


Tu peux aussi utiliser le moteur de recherche


Il y a plein d'exemples relatifs à cette problématique sur le forum.

 

[gildas lechat]

Re : lister les éléments d'un dossier

Bonjour,

Comme conseiller dans la réponse ci dessus, j'ai cherher des solutions a mon problèmes (et j'ai partiellement trouvé🙂), mais là j'ai besoin d'un coup de main

Vous trouverez ci joint un essai une macro pour lister les éléments d'un dossier.
La première partie de l'userform fonctionne correctement.

Public dossierRapportdatecode As String
Public DossierRapportDeMicrosection As String
Public DossierChoisiRapportDateCode As String

Private Sub CommandButton1_Click()

DossierRapportDeMicrosection = "Z:\Rapport de microsection"

Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(DossierRapportDeMicrosection)
Set fc = f.SubFolders

For Each f1 In fc
If TextBox1.Value = f1.Name Then
DossierChoisiRapportDateCode = f1
Label1.Caption = f1
found = True
End If
Next f1

If found = False Then
Label1.Caption = "Pas de code article correpondant au nom specifie"
End If


End Sub

La seconde doit permettre d'afficher l'ensemble des dossiers du fichier selectionné dans la 1ere partie dans le label2.
Actuellement, il ne m'affiche que un seul dossier.

Private Sub CommandButton2_Click()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
'Chemin du dossier à analyser (à adapter au besoin)
Chemin = "Z:\Rapport de microsection\" & TextBox1.Text
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
' Boucle sur les fichiers

For Each Fichier In Dossier.Files

Label2 = I + 1
Label2 = Left(Fichier.Name, InStr(Fichier.Name, ".") - 1)

Next
End Sub

A oui, excuser moi d'avance des erreurs possible dans la macro , j'avance mais doucement..😱

Gildas

 

[gildas lechat]

Re : lister les éléments d'un dossier

Bonjour le forum,

Les réponses ne pleuvent pas🙁
J'essai de préciser le problème:
La macro a pour but d'afficher tout les résultats d'une recherche de fichier présent dans un dossier dans un label ( Userorm).
Je n'obtient que l'affichage de 1 dossier, mais pas de l'ensemble des dossiers présent dans le fichier

Je pense que le problème est situé sur le boucle si dessous :

For Each Fichier In Dossier.Files

Label2 = I + 1
Label2 = Left(Fichier.Name, InStr(Fichier.Name, ".") - 1)

Next

Merci de votre aide
Gildas

 

[Pierrot93]

Re : lister les éléments d'un dossier

Bonjour à tous,

la suite ici :https://www.excel-downloads.com/threads/recherche-de-dossier.137961/

@+