Option Explicit 'd'après JB sur XLD
Sub ListeFichiers()
Dim Dossier As String, Ligne As Byte, NF As String
Range("A2:B65000").ClearContents
ChDir ActiveWorkbook.Path
Dossier = ChoixDossier()
If Dossier = "" Then Exit Sub
Ligne = 2
NF = Dir("*.*")
'With Application
' .Calculation = xlCalculationManual
' .ScreenUpdating = 0
'End With
Do While NF <> "" And Right(NF, 4) = ".csv"
Cells(Ligne, 1) = NF
Cells(Ligne, 2) = FileDateTime(NF)
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & NF
Columns(1).TextToColumns Range("A1"), , , , , True
ActiveSheet.Name = "Data"
Windows("Synthèse JaCaVol.xlsm").Activate
Ligne = Ligne + 1
NF = Dir
Loop
Windows("Synthèse JaCaVol.xlsm").Activate
Columns("A:J").AutoFit
Range("A1").Select
'With Application
' .Calculation = xlCalculationAutomatic
' .ScreenUpdating = 1
'End With
End Sub
Function ChoixDossier()
If Val(Application.Version) >= 10 Then
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = ActiveWorkbook.Path
.Show
If .SelectedItems.Count > 0 Then
ChoixDossier = .SelectedItems(1)
Else
ChoixDossier = ""
End If
End With
Else
ChoixDossier = InputBox("Répertoire?")
End If
End Function