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>
A voir également:
Transfert de données sous forme de taleau depuis une page Web
