Transfert de données sous forme de taleau depuis une page Web

cs_jgr Messages postés 2 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 26 décembre 2002 - 26 déc. 2002 à 03:59
cs_jgr Messages postés 2 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 26 décembre 2002 - 26 déc. 2002 à 04:00
j'utilise se code pour extraire les données pacées sous forme de tableau ds une page Web Jeffectue un copie coller vers un richtextbox tout và très bien avec Windows 2000 mais sous Xp le caratere de tabulation CHR(9) n'apparait pas. Que faire ?

Sub extraire
If Mid(RitchPerso1.Text, x, 1) = Chr(10) Then

ligne = ligne + 1
If prn <> "" Then prnt
ElseIf Mid(RitchPerso1.Text, x, 1) = Chr(9) Then
colone = colone + 1
If prn <> "" Then prnt
ElseIf Mid(RitchPerso1.Text, x, 1) = Chr(13) Then
colone = 0
If prn <> "" Then prnt
Else
prn = prn & Mid(RitchPerso1.Text, x, 1)
End If
Next x

End Sub

Sub prnt()
If prn <> spc1 Then If colone 0 Then colone 1
XlSheet.Cells(ligne, colone) = prn
End If
prn = ""
End Sub

Merci A tous

<s>JGR</s>

1 réponse

cs_jgr Messages postés 2 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 26 décembre 2002
26 déc. 2002 à 04:00
<s>JGR</s>
0
Rejoignez-nous