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