Recherche User en VBA

Bonjour,
On va essayer de réaliser cela par étape.
Voici, pour commencer un code qui te permet de lister les sous répertoires d'un répertoire.
Tu n'as qu'à remplacer "E:\Utilisateurs\" par le chemin d'accès à ton répertoire, celui qui contient les dossiers aux noms de chaque Users...
Adapte également : Col = 1 en fonction de la col ou tu veux cette liste.

Sub ChercherRépertoire()
Dim Liste() As String, Chemin As String, NomRep As String
Dim i As Integer, Col As Integer

i = 0
Col = 1 'la liste des Users apparaitra donc colonne A
Columns(Col).ClearContents
Chemin = "E:\Utilisateurs\" 'à adapter.

NomRep = Dir(Chemin, vbDirectory)
Do While NomRep <> ""
    If NomRep <> "." And NomRep <> ".." Then
        If (GetAttr(Chemin & NomRep) And vbDirectory) = vbDirectory Then
            ReDim Preserve Liste(i)
            Liste(i) = NomRep
            i = i + 1
        End If
    End If
    NomRep = Dir
Loop

For i = 0 To UBound(Liste)
    Cells(i + 1, 1) = Liste(i)
Next
End Sub

--
Cordialement,
Franck P

Bonjour ,

c'est quoi l'intérêt de lister tous les sous repertoire d'un repertoire?
je peux récupérer tous les user en faisant: user.Aduser a travers l'Api de l'appli.

cdt