1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
|
Sub Importation()
Dim StrLigne As String
Dim i As Long
Dim strSplit() As String
i = 2
Open "C:\meteo.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, StrLigne
StrLigne = Trim(StrLigne)
strSplit = Split(StrLigne, " ")
Select Case LCase(Trim(Left(StrLigne, 5)))
Case "relev"
i = i + 1 'changement de ligne a la nouvelle date trouvée
Range("B" & i).Value = strSplit(3) & "-" & strSplit(4)
Range("C" & i).Value = strSplit(5)
Case "tempé"
Range("D" & i).Value = strSplit(UBound(strSplit) - 1) & " " & strSplit(UBound(strSplit))
Case "humid"
Case "vent"
Case "préci"
End Select
Loop
Close #1
End Sub |
Partager