Aide sur macro pour rechercher dossier

      Nbr = Nbr + 1: ReDim Preserve TDos(1 To Nbr): TDos(Nbr) = XNom: End If
   Exit Sub: End If
   For N = 1 To Nbr: TMsg(N) = N & ": """ & TDos(N) & """,": Next N
   If (GetAttr(Racine & XNom) And vbDirectory) = vbDirectory Then
   If N < 1 Or N > Nbr Then Exit Sub
   MsgBox "Le client n'existe pas.", vbCritical, "Nom"
   N = 0: On Error Resume Next: N = InputBox(Join(TMsg, vbLf), "Nom", 1): On Error GoTo 0
   N = 1
   ReDim TMsg(0 To Nbr): TMsg(0) = "Lequel voulez vous ? (1 à " & Nbr & ")"
   XNom = Dir: Loop
   XNom = TDos(N)
Const Racine = "D:\Test\" ' "C:\Documents and Settings\luck\Mes documents\" '
Dim XNom As String, TDos() As String, Nbr As Long, TMsg() As String, N As Long
Do While XNom <> ""
Else
ElseIf Nbr = 1 Then
End Sub
If Nbr > 1 Then
If XNom = "" Then Exit Sub
Shell "C:\WINDOWS\explorer.exe " & Racine & TDos(N), vbMaximizedFocus
'Shell "C:windowsexplorer.exe " & Racine & TDos(N), vbMaximizedFocus ' Ne fonctionne pas chez moi.
Sub RechercherDossier()
XNom = Dir(Racine & "*" & XNom & "*", vbDirectory)
XNom = InputBox("Quel client recherchez vous", "Nom")

Const Racine = "D:\Test\" ' "C:\Documents and Settings\luck\Mes documents\" '

Rem. —— Déclaration de constante et de variables.
Rem. —— Saisie du nom désiré.
 ' Abandon si aucune réponse fournie.
Rem. —— Recherche du 1er nom, puis boucle sur les suivants.
 ' Tant que que le nom rendu par Dir n'est pas vide :
 ' S'il s'agit bien d'un répertoire :
 ' … on l'ajoute dans la table
 ' Nom suivant
Rem. —— Test selon le nombre de noms trouvés
 ' S'il y a plus d'un :
 ' On fabrique un tableau avec un élément 0 devant,
 ' … et qui reprend ceux du 1er précédés de leur numéros
 ' On saisit le numéro désiré.
 ' Abandon si aucune réponse valide fournie.
 ' S'il y en a exactement 1 :
 ' On se met dans le même cas que s'il avait été répondu 1 à la saisie du numéro.
 ' Si donc il n'en exste aucun :
 ' on le dit …
 ' … et on Abandonne la procédure.
Rem. —— Épilogue : exécution de l'exploreur