Sub Liste_Fichiers()
'Liste des Fichiers d'un dossier avec le nom du dossier en B1
Range(Cells(2, 1), Cells(65536, 2)).Clear
Dim i As Integer, z As String
ChDrive Left(Cells(1, 2), 1)
ChDir Cells(1, 2).Value
i = 1
z = Dir("*.*", 1)
While z <> ""
ActiveSheet.Cells(i + 1, 1).Value = z
i = i + 1
z = Dir
Wend
End Sub
Sub ExtraitC5Bis()
'Sélectionner les noms des fichiers à extraire
Application.ScreenUpdating = False
pfile = Cells(1, 2) & "\"
For Each cell In Selection
nfile = cell
Workbooks.Open Filename:=Cells(1, 2) & "\" & cell
'INSERTION D'UNE CONDITION CI-DESSOUS
If Worksheets("FORMULAIRE").Range("A5").Value = "" Then
Workbooks(ThisWorkbook.Name).Sheets(1).Range(cell.Address).Offset(0, 1) = "='" & pfile & "[" & nfile & "]FORMULAIRE'!$C$6"
Else
Workbooks(ThisWorkbook.Name).Sheets(1).Range(cell.Address).Offset(0, 1) = "='" & pfile & "[" & nfile & "]FORMULAIRE'!$C$5"
End If
ActiveWindow.Close False
Next
Application.ScreenUpdating = True
End Sub