Après avoir récupéré tous les noms de fichiers du chemin, au moment de sortir de la boucle, une erreur survient au niveau de la ligne surlignée:
Argument ou appelle de procédure incorecte
voila mon code:
Sub ListeFichierRep(chemin, form)
If Right(chemin, Len(chemin) - (Len(chemin) - 1)) <> "\" Then
form.List1.AddItem (Dir(chemin & "\" ))
If (Dir(chemin & "\" )) = "" Then
Exit Sub
End If
Else
form.List1.AddItem (Dir(chemin))
If (Dir(chemin)) = "" Then
Exit Sub
End If
End If
While Dir() <> ""
form.List1.AddItem (Dir())
Wend
End Sub