Sub ListeFichiers1()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String, I As Long, Lig As Long, Tablo, Tablo1
Application.ScreenUpdating = False
With Sheets("Feuil2")
.Range("A4:B10000").ClearContents
'Chemin du dossier à analyser (à adapter au besoin)
Chemin = "\\CDPA500\PSI$\pandémie\"
'Attribue une référence d'objet à la variable
I = 1
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Dossier.Files
If Fichier.Name <> ThisWorkbook.Name Then
If Right(Fichier.Name, 4) = ".xls" Then
I = I + 1
.Cells(I, 1) = Fichier.Name
Sheets("Feuil3").Cells(I, 1) = Fichier.Name
Workbooks.Open Fichier ' Ouvre le fichier
With ActiveWorkbook
Tablo = Sheets("Processus").Range("F3").Value ' Récupère la valeur souhaitée
Tablo1 = Sheets("Processus").Range("A11:F28").Value ' Récupère la valeur souhaitée
Application.DisplayAlerts = False
.Close ' Referme le fichier
Application.DisplayAlerts = True
End With
.Cells(I, 2) = Tablo ' Reporte de la valeur dans la colonne B
Sheets("Feuil3").Cells(I, 2) = Tablo1 ' Reporte de la valeur dans la colonne B
End If
End If
Next
End With
End Sub