Bonjour tout le monde,

Ce post vient à la suite du premier, en fait la chaîne que je récupère à partir du fichier est trsè dense. Et j'ai besoin de couper cette chaîne avec Split pour récupérer certains éléments précis.
Le problème c'est que quand je fais Split, eh bah ça fait rien du tout, je n'ai mm pas de message d'erreur du style, dépassement de capacité....

Une idée?
voici le code! merci!

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
 
Sub test() 
Dim fp As Integer 
Dim fichier, fic, monTab(), machaine(), chemin As String 
fic = "" 
chemin = "C:\...\relation.txt" 
On Error Resume Next 
fp = FreeFile 
 
Open chemin For Input As #fp 
While Not EOF(fp) 
Line Input #fp, fichier 
fic = fic & fichier 
Wend 
Close #fp 
 
monTab = Split(fic, "<") 'Split(fic, "detailler(") 
MsgBox monTab(1) 
machaine = Split(Mid(monTab(1), 1), "'") 
MsgBox machaine(0) 
End Sub
quand je fais MsgBox de monTab(1), il n'ya rien qui s'affcihe la message box n'apparaît même pas!

Merci d'avance à tous!