scinder code html recuperer dans 2 cellules

salut

voici mon code pour recuperer le code html d'un site

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True   IE.Navigate "https://june.metals.aspx" Do Until IE.ReadyState = READYSTATE_COMPLETE DoEvents Loop Application.WindowState = xlMaximized   Contenu = IE.Document.documentElement.innerHTML Sheets("Feuil2").Select: Range("a1").Value = Contenu IE.Quit

---

le probleme c'est que je ne peux pas afficher dans une cellule excel plus de 32767 caracteres le code html que je recupere en fait plus

comment puis je scinder le code html pour en recuperer une partie en cellule a1 et l autre en cellule b1 de maniere a recuperer la totalité ?

merci

bonjour

Tu peux tester

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim i As Long Dim Tableau() As String   Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True   IE.Navigate "https://june.metals.aspx" Do Until IE.ReadyState = 4 DoEvents Loop   Tableau = Split(IE.Document.documentElement.innerHTML, Chr(10)) IE.Quit   For i = 0 To UBound(Tableau) Sheets("Feuil2").Cells(i + 1, 1) = Tableau(i) Next i

---

michel

je viens de tester ton code
il divise bien le code mais le probleme c'est qu'il prends seulement les 141 premiers caracteres dans la cellule a1 et 65 caracters dans la cellule a2

en fait ma question est la suivante
est il possible de mettre les 32747 premiers caracteres en a1 et le reste en a2 ?
merci

Rebonjour

Ce lien pourra certainement t'aider

http://silkyroad.developpez.com/VBA/...nesCaracteres/


michel

ok merci pour ce code