Copier du HTML dans une cellule

Version imprimable

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:

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 ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Const DATAOBJECT_BINDING As String = "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"
 
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
   Sheets("html").Range("B1")=PressePapier     'update to cell you want converted HTML pasted in ou
    IE.Quit
End Sub
Public Property Let PressePapier(Value)
    With CreateObject(DATAOBJECT_BINDING)
        .SetText Value
        .PutInClipboard
    End With
End Property
 
 
Public Property Get PressePapier()
    With CreateObject(DATAOBJECT_BINDING)
        .GetFromClipboard
        PressePapier = .GetText
    End With
End Property

13/06/2018, 07h19
Qwazerty

Salut

Peux-tu donne plus d'information sur ce que tu cherches à faire plus globalement ?
Il y a peut-être d'autres méthodes

++
Qwaz

Citation:

Envoyé par dysorthographie

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Const DATAOBJECT_BINDING As String = "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"
 
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
   Sheets("html").Range("B1")=PressePapier     'update to cell you want converted HTML pasted in ou
    IE.Quit
End Sub
Public Property Let PressePapier(Value)
    With CreateObject(DATAOBJECT_BINDING)
        .SetText Value
        .PutInClipboard
    End With
End Property
 
 
Public Property Get PressePapier()
    With CreateObject(DATAOBJECT_BINDING)
        .GetFromClipboard
        PressePapier = .GetText
    End With
End Property

Hello Dysorthographie,

ça fonctionne en partie :
Cela tient bien en une seule cellule, mais toute le mise en forme est perdue.

Pour l'instant j'ai donc deux alternatives :
Soit j'ai la mise en forme mais sur plusieurs cellules
Soit j'ai une seule cellule mais pas de mise en fome

Y aurait-il un moyen de conserver le mise en forme ?

13/06/2018, 10h16
sendgroups
Citation:

Envoyé par Qwazerty

Salut

Peux-tu donne plus d'information sur ce que tu cherches à faire plus globalement ?
Il y a peut-être d'autres méthodes

++
Qwaz

Hello Qwazerty

J'ai un fichier excel qui pilote tout un tas d'outils :
- d'autres fichiers excel
- des powerpoint
- des site intranet
- et envoi des mails
Le corps du mail est généré en HTML
Je cherche à voir le résultat de ce HTML au sein même de ce fichier.

La longueur du mail étant variable, je ne veux pas écraser d'autres éléments quelques lignes plus bas parce que le mail était plus long.

Le plus propre est d'avoir une grande cellule qui contient ce mail, quelque soit sa longueur.

Je ne sais si je suis très clair. N'hésite pas à me le dire si ça ne l'est pas.
13/06/2018, 12h04
Invité

Bonjour,
Non sauf intégré un wisiwig qui afficherait le html
13/06/2018, 17h49
Qwazerty

Salut

Peut-on voir le code que tu utilises pour récupérer le html du mail.
Il est sans doute possible de stocker ça dans une variable plutôt que sur la feuille Excel et ensuite de transférer dans ton instance d'IE.

SI ça doit se faire en deux temps, utilise un fichier tmp dans lequel tu vient placer le contenu html, puis tu le récupères quand tu en a besoin.

++
Qwaz

1 pièce(s) jointe(s)

re
salut
si je comprends bien tu a du code source html dans A1 et tu voudrais le voir comme dans un html en B1 c'est ca?

c'est un exemple que j'ai donné tant de fois

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub ViewHTML()
    Dim IE As Object
    With CreateObject("htmlfile")
        .parentWindow.clipboardData.setData "Text", "<html><body>" & Sheets("html").Range("A1").Value & "</body></html>    'update to the cell that contains HTML you want converted"
        'Copy them
        With Sheets("html")
            .Activate
            .Range("B1").Select: .Paste
        End With
    End With
End Sub

Pièce jointe 388572

14/06/2018, 07h41
Invité

Bonjour,

Oui Patrick sauf pour les retours lignes.
Il veut que la page entière ce trouve dans une cellule et respecte la mise en forme.

Une cellule au format Wysiwyg!