Bonjour Ronibo, le Forum,
Ci-dessous le code pour ton besoin. Il ressort dans un message d'information le 1ier Dossier se trouvant sur un chemin donné.
Sub Dossier()
Chemin = "C:\Users\X_Cellus\Suite\" 'A personnaliser
RechDos = Dir(Chemin, vbDirectory)
Do While RechDos <> ""
If InStr(1, RechDos, ".") = 0 And (GetAttr(Chemin & RechDos) And vbDirectory) = vbDirectory Then PremDos = RechDos: Exit Do
RechDos = Dir
Loop
Rep = MsgBox(PremDos, vbInformation, "Premier Dossier")
End Sub
Tu peux évidemment te passer de l'avant-dernière ligne (MsgBox) et utiliser PremDos dans ton label.
Bons tests, bonne continuation.