Sub ImporterFichiersTextes()
Dim A As Integer, Elt As Variant
Dim T As Variant, Arr As Variant
Dim Chemin As String, Sep As String
Dim WholeLine As String, FName As String
Dim NFeuille As String, B As Integer, DerLig As Long
Application.ScreenUpdating = False
'Chemin où sont les 2 fichiers
Chemin = "C:\Users\DM\Documents\"
'Nom des fichiers à importer
Arr = Array("scale1.log", "scale2.log")
'Séparateur du fichier texte
Sep = Chr(3)
'Nom de la feuille de calcul où
'tu veux importer les données
NFeuille = "Feuil1"
B = 0
For Each Elt In Arr
With Worksheets(NFeuille)
A = 1
FName = Chemin & Elt
Open FName For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
T = Split(WholeLine, Sep)
.Range("A" & A).Offset(, B).Resize(, UBound(T) + 1) = T
A = A + 1
Wend
Stop
DerLig = .Cells(65536, B + 1).End(xlUp).Row
With .Range(.Cells(1, B + 1), .Cells(DerLig, B + 1))
.NumberFormat = "H:MM:SS.000"
.Replace " ", ""
.Replace ">", ""
.Item(4, 1).Delete (xlUp)
End With
With .Range(.Cells(1, B + 2), .Cells(DerLig, B + 2))
.NumberFormat = "# ##0.0""kg"""
.Replace " ", ""
.Replace Chr(10), ""
.Replace "kg", ""
.Replace ",", "."
If B + 2 = 4 Then .Item(4, 1).Value = 0
End With
Close #1
End With
B = B + 2
Next
With Worksheets(NFeuille)
.Rows("1:3").Delete
.Range("A1").EntireRow.Insert
.Range("A:D").EntireColumn.AutoFit
.Rows.EntireRow.AutoFit
.Range("A:D").EntireColumn.ColumnWidth = 15
.Range("A1,C1") = "Temps"
.Range("B1,D1") = "Poids"
.Range("A1:D1").Font.Size = 16
.Range("A1:D1").Font.Bold = True
.Range("A1:D1").HorizontalAlignment = xlCenter
End With
End Sub