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

Signaler
Messages postés
2
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
26 décembre 2002
-
Messages postés
2
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
26 décembre 2002
-
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

Messages postés
2
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
26 décembre 2002

<s>JGR</s>
0