1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Sub Open_CSV()
'Mettre tout le texte dans la variable "lignes"
Dim lignes() As String = File.ReadAllLines("C:\Test.csv")
'Mettre le nombre de ligne dans la variable "nlignes"
Dim nlignes As Integer = lignes.Count
'Mettre le texte de la dernière ligne dans la variable "ligne"
Dim ligne As String = lignes(nlignes - 1)
'Mettre le texte de la dernière ligne dans la variable "tableau" pour permettre l'extraction des champs souhaités du CSV
Dim tableau() As String = Split(ligne, ";")
'Exemple : 2eme champs de la dernière ligne du CSV
Dim Champ2 As String = tableau(1)
MsgBox(Champ2)
End Sub |
Partager