aide pour code qui ne marche plus

Option Explicit

Sub import_données_mini_maxi()
' ----------------------------------------
' - téléchargement des données mini maxi -
' ----------------------------------------

Dim myDir$, fn$, txt$, sepa$, A(), N As Long, i As Long, ff As Integer
sepa = ";"
myDir = UserForm.Données_minimaxi_txt.Value 'Worksheets("Config").[h4]
fn = Dir(myDir & "dayfile.txt")
Do While fn <> ""
ff = FreeFile
Open myDir & fn For Input As #ff
Do While Not EOF(ff)
Line Input #ff, txt
N = N + 1: ReDim Preserve A(1 To N)
A(N) = Split(txt, sepa)
Loop
Close #ff
fn = Dir()
Loop
With Worksheets("données_mini_maxi").[A2]
For i = 1 To N
.Offset(i - 1).Resize(, UBound(A(i)) + 1).Value = A(i)
Next
End With
Call Feuil4.format1
End Sub

Cliquez pour agrandir...