Bonjour,

Est il possible d'utiliser ce code là mais en bouclant sur l'ensemble des lignes du fichier ouvert ? Ce code fonctionne bien mais uniquement pour la première ligne du fichier... :

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
Dim intFic As Integer
Dim project As tProject
Dim strLigne As String
 
 
onglet = "FEUIL2"
 
With Worksheets(onglet)
.Cells.Clear
End With
 
intFic = FreeFile
 Open "d:\temp\fichier_test.txt" For Random As intFic Len = Len(project)
 
Get intFic, 1, project
Sheets(onglet).Cells(1, 1) = project.RRR
Get intFic, 1, project
Sheets(onglet).Cells(1, 2) = project.AAA
Get intFic, 1, project
Sheets(onglet).Cells(1, 3) = project.BBB