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
Partager