scinder code html recuperer dans 2 cellules

**ricoree78** · 14/05/2007, 15h41

salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**SilkyRoad** · 14/05/2007, 16h15

bonjour

Tu peux tester

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
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

**ricoree78** · 14/05/2007, 16h27

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