Discussion :

[fafabzh6]

Bonjour,
Voilà je voudrais lire le contenu d'un fichier txt par programmation.
En effet ce fichier contient x ligne et je souhaiterai récupérer la n(ième) ligne de ce fichier.
Merci de votre aide.

[avigeilpro]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim Adresse As String
Dim Contenu As String
Dim Ligne() As String
Dim n As Integer
 
'adresse du fichier à lire
Adresse = "C:\MonFichier.txt"
 
If Dir(Adresse) <> "" Then
    Contenu = Space(FileLen(Adresse))
 
    'réccupère le contenu du fichier
    Open Adresse For Binary As #1
        Get #1, , Contenu
    Close #1
 
    Ligne = Split(Contenu, vbCrLf)  '"découpe" chaque ligne
 
    n = 5 'attention : la première ligne a l'indice 0
    MsgBox Ligne(n) 'affiche la 6eme ligne
End If

[fafabzh6]

Ok merci je vais tester.

[fafabzh6]

ca marche nikel.
Merci bien avigeilpro