Bonjour à tous,

J'ai un code qui me permet de passer d'une cellule source qui contient du code HTML,
à une cellule cible qui contient le même code HTML, mais interprété cette fois-ci.

D'un côté le code, de l'autre l'affichage :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Sub ViewHTML() 
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False
    IE.navigate "about:blank"
    IE.Document.Body.innerHTML = Sheets("html").Range("A1").Value 'update to the cell that contains HTML you want converted
    IE.ExecWB 17, 0                                               'Select all contents in browser
    IE.ExecWB 12, 2                                               'Copy them
    ActiveSheet.Paste Destination:=Sheets("html").Range("B1")     'update to cell you want converted HTML pasted in
    IE.Quit
End Sub
Mon petit souci est le suivant :

Le code HTML source est bien contenu dans une seule cellule (A1),
par contre le code interprété, s'il y a des retour à la lignes, s'affiche sur plusieurs lignes (B1, B2...)

Je voudrais que les retours à la lignes se fassent au sein de la cellule B1.

Comment faire ?