bonsoir
voila ou j'en suis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Open "c:\SR_6_8_4_GARANTI_5.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, textline
TextBox1.Text = TextBox1.Text & textline & vbCrLf
 
'MsgBox textline
Loop
Close #1
End Sub
mon fichier text d'origine ressemble à cela

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
Type : Systme rducteur
Longueur des combinaisons : 2
Nombre de numros : 16
Nombre de combinaisons de base : 120
Nombre de combinaisons rduites : 8
Garantie du systme rducteur : 1/2
 
C 1	:    01    02    
C 30	:    03    04    
C 55	:    05    06    
C 76	:    07    08    
C 93	:    09    10    
C 106	:    11    12    
C 115	:    13    14    
C 120	:    15    16
je cherche donc a extraire et a mettre dans une feuille excel un chiffre par cellule les donnees situees apres les C1:, c30:, etc

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
C 1	:    01    02    
C 30	:    03    04    
C 55	:    05    06    
C 76	:    07    08    
C 93	:    09    10    
C 106	:    11    12    
C 115	:    13    14    
C 120	:    15    16
ex pour la ligne txt C1: on met en cellule B1 le chiffre 01, en C1 le chiffre 02
C30 : B2 le chiffre 03, en C2 le chiffre 04

etc .....

merci de votre aide