Manon

Bonsoir MichelXld, Charly, le forum


Je crois que tu as trouvé le problème. Il ne reste qu'à trouver la solution.

J'ai fait le test macro en le modifiant parce que j'ai WinXP

Option Explicit

Sub ListFichiers()
Dim ThisBookPath As String
Dim SearchFile As FileSearch
Dim ThePath As String
Dim i As Integer

Set SearchFile = Application.FileSearch
ThePath = 'C:\\Mes documents\\' '<< 0 Then
With .FoundFiles
For i = 1 To .Count
Cells(i, 1) = Dir(.Item(i))
Next i
End With
Else
MsgBox 'No File Found ' & ThePath
End If

Curieusement, il trouve tout sur le C mais rien sur mon D.

Quelqu'un a peut-être la solution ?
Comment puis-je régler ça. J'ai dû faire quelque chose à mon ordi parce que ce code fonctionnait très bien avant.

Merci

Manon