[XL-2003] copier une ligne d'un fichier txt vers une cellule

[hatemhatem]

Bonjour,
j'ai un fichier text.txt et j'aimerai bien copier la troisième ligne de ce fichier vers une cellule de mon classeur, quelles commandes dois-je utiliser?????

[Qwazerty]

Salut
Voici un exemple de code permettant de lire le contenu d'un fichier.

Code :

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
Option Explicit
 
Sub NMEA_Convert()
 
Dim PathSource As String
Dim FileNumS As Integer
Dim TmpStr As String
 
'Recupere le chemin du fichier au format 1 (NMEA)
PathSource = Application.GetOpenFilename(FileFilter:="(*.txt),*.txt", Title:="Sélectionnez le fichier Txt a ouvrir")
If PathSource = "Faux" Then Exit Sub 'si pas de sélection faite on quite
 
'Ouvrir le fichier Source
FileNumS = FreeFile
Open PathSource For Input As #FileNumS
 
'On ignore les 2 1eres lignes
Line Input #FileNumS, TmpStr
Line Input #FileNumS, TmpStr
 
Line Input #FileNumS, TmpStr
 
range("A1").value = TmpStr
 
'On ferme le fichier
Close #FileNumS

J'ai modifié un code que j'avais écris pour quelqu'un, je pense qu'il doit fonctionner et faire ce que tu demandes mais je ne l'ai pas testé
A++
Qwaz