XL 2016 VBA - Range to HTML incluant les objets de la feuille (boutons, images, ...)

[Dudu2]

Bonjour,

Je n'ai rien trouvé qui fonctionne pour convertir un Range en HTML qui inclurait tout ce qu'il y a dans le Range en question.

J'ai bien récupéré la fonction de Ron de Bruin omni-présente sur le Web qui fonctionne uniquement pour les valeurs de cellules et leurs formats, sauf pour les tableaux structurés qui ne sont pas en exclusivité dans le Range qui perdent alors leurs formats (qui n'en sont pas vraiment !).

 

[Dudu2]

ET le Control WebBrowser ne peut pas faire l'affaire ?

 

[patricktoulon]

ben non l'ocx est installé en même temps que IE
met toi la 10 et on en parles plus

 

[Dudu2]

Tu ne veux vraiment pas m'envoyer C:\Windows\SysWOW64\mshtml.tlb ?
J'aimerais faire un essai en remplacement du mien.

 

[patricktoulon]

c'est la IEframe.dll pour le webbrowser
le mshtml.dll fait plus de 3 mega il est trop lourd

 

[Dudu2]

Si tu connais les DLL nécessaires place-les en ZIP sur https://www.cjoint.com/ qui accepte 15 Mo / document

 

[patricktoulon]

re
Bonjour @Dudu2
alors tu en est ou avec tes méthodes

 

[Dudu2]

Bonjour @patricktoulon,
J'en suis nulle part. Je suppose que si j'installe IE 10 ça va marcher, y a pas de raison. je te fais confiance.
Mais encore une fois, tous les gens qui ont installé les mises à jour Windows ont eu l'upgrade vers IE11.
Et si j'utilise ton code pour ma ressource Outlook, je ne peux pas décemment imposer aux gens un rétropédalage et dire qu'il faut, pour l'utiliser, revenir sur ou installer IE 10. C'est trop compliqué / lourd.
Donc pour Outlook, je vais rester sur un Publish même s'il n'est pas fiable.

 

[patricktoulon]

ok
question a tu le webbrowser dispo ou non dans ton environnement
parce que depuis hier je te fait une version early pour le htmldocument et pour la création des shapes dans outlook je ne le fait plus avec un htmldocument mais un xmldomdocument en early lui aussi n'a pas de versionning
dis moi si tu a le webbrowser et si tu sais l'activer

 

[Dudu2]

J'ai le Control, mais est-ce que tu parles de ça ou d'autres chose ?

 

[patricktoulon]

oui tu la dans ta liste mais a tu essayé d'en mettre un dans un userform?

 

[Dudu2]

Oui...

 

[patricktoulon]

ok donc le capturex 2.0 devrait fonctionner chez toi
lance la sub test0
et regarde sur ton bureau

 

[Dudu2]

Toujours ce problème... Mais maintenant c'est sur l'instruction d'appel de la fonction du UserForm.
Donc faut que je trace pour savoir où exactement.

 

[Dudu2]

C'est sur cette instruction, sur la 1ère Shape toto

 

[Dudu2]

Div.innerhtml =
<table width="240" style="width: 180pt; border-collapse: collapse;" border="0" cellspacing="0" cellpadding="0">

<colgroup><col width="80" style="width: 60pt;" span="3">
<tbody><tr height="20" style="height: 15pt;">
<td width="80" height="20" align="left" valign="top" style="border: 0px black; width: 60pt; height: 15pt; background-color: transparent;"><span style="margin: 1px auto auto 26px; width: 150px; height: 98px; position: absolute; z-index: 3; mso-ignore: vglayout;"><img width="150" height="98" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAJYAAABiCAYAAACyAirtAAAAAXNSR0ICQMB9xQAAAAlwSFlzAAAOxAAADsQBlSsOGwAAABl0RVh0U29mdHdhcmUATWljcm9zb2Z0IE9mZmljZX/tNXEAAAVuSURBVHja7d3fT1tlHMdx/gx/xET/BhMvRDinheHEDtiARS1s/ogxLt2hpzWwCxOtGQxQN5nBcjjntJsmu/Jm08l0Y0YDQky80gE2WUz8PTbFuF8yoo/POS2lIRmD9bTQ9n3xSbhryXnl83162uc5VT7dEmrXqFC0EbIJaThwQvgj5uuxWKyqnFLloGrqOyPah6ZE6+EJUrRMitYjk6IxdlKoYaP8YCmaIdokqr3HL4rOxPekaEmJzmRKBHrHRK0WL09YrUcm3H82aF4gRcuMCFozInDwE2ARYAELWMACFrAIsIAFLGABC1gEWMACFrCABSwCLGABC1jAAhYBFrCABSxgAYsAC1jAAhawgEWABayKh1WvGfeoUeNhYAHL0yg9xkN+3fxG1e0gsIDlXWP1DN3vi1g/+qPJfySuFmAByztYUXuuMXZK+KPHFhTNbAIWsLyBpVtzbe98JVoGxoX8+69C4QJWBcJqPzotOu050XTorJCj8U81ZDwJLGB50FhT7hZ/5300HfrMaa4FVfcWF7AqFFaHbKwO+fpZXGFLrrmMRmA
BK29Y7vuwZtO4+pzmsq8ouvkEsICVPyyZbHP1fSrULnNBCeWPC1jAyuCaXcGlW5f9IaMBWCUOSwnFXysGrOqe/ntvBysX1w6Jyxc2/6jR4o8DC1jrgGWsCWt1c/kj9iVFM7cBqwRhbX/1Q1EbGk4pWvwjmdOFSu3+kY9rQ++NK9rItV1vfXFbWC4uO7e5rCt3MxaBtclpGTjvngHr3AkvdJr7z4kdvWfE7ne/zn4aXAvXM6Pp5pK45ms0ow5YJRTnE5lzEZ0RVPBkXsdty/W8N7e5vnMx+nTzkroBXMAid4C/gkvtMufletAPLOINLncsZnDp1m+qHleBRbxrrmVcXaPzijbsAxbxDNdyc8kF/S/STi2wiHe4smuu0d/lgl4BFvG2uQ6Oyeayf1a14WpgEc8W9MEMLtlcv8rmegxYxMNPi9+mcemm01yPAot4isv5zlMNWz8tj0VgEW9uRcgFfcBZ0IfNy2rUfgRYxANY6a+lmvvPCn8ksahEzW3AIvnFaSvrQgaVfU2utdoYhST/ESjbyvnVhC9i/10TMtpYvJM8m2rGHYEtA+ecTRg3FC2+m9sNJO81VTCDSo6/q6tRAYvc3UI9p6lq9sWf4isdkvf4y2mq60rIeJovoYmH4y+xJipgkXXfUuhYaaqbaige5Id+xKM11bioiySv14TiHfw0uVQu3BbdTBHMQSWbalGOvz1spiiR5G7/ai5gNrz9KxdVNHlD0Yb3sP2rJLJqw+r+kVOF3LDqbIjNbFi9eqcNq8FMi2ZO/VuS4+9ZNqyWGCx3i722lbbYz7jjsmXQbaqb8r09xxb7UoW1RQ4Fya6pBt011S1V33hTAWsLwdoKxxilb34uN1ViUdHjz3OMEbDyg5UZfzsHz4u6aFJ++ht+gYPXgJXnUZHphbqDSo6/JTmWX+SoSGDlfbhttqleObboFSpgVTIseb2XUcmm+leieonjuIGV3wMEhqbdc953vvm5c0vhlqJ5iwpYlQrr6LTY9faXwq8n/pNN9TKPPA
GWBw9pSswG3jgt6rvfX5LXfh8PaQKWB7CM+2Rj/VDf/YFQC4gKWBUGa3vUftCvWylVt7sL/VrAqiBY1T3GA2rUDBTjtYBVQbCKGWABC1jAAhYBFrCABSxgAYsAC1jAAhawgEWABSxgAQtYwCLA4mIDC1jAAhYBFhccWMACFrAIsAiwvILVNjQl9h6/6OIixUpKdCZTItA7Vp6w1K5R9wzMdomr9fAEKVom5aSYFI2xk0ING+UHy6dbzjN9haKNkE1Iw4ETwh8xyw7W/5rG3+a7bM5eAAAAAElFTkSuQmCC" v:shapes="toto"></span><span style="mso-ignore: vglayout2;"><font face="Calibri">
</font><table cellspacing="0" cellpadding="0"><font face="Calibri">
</font><tbody><tr><font face="Calibri">
</font><td width="80" height="20" style="border: 0px black; width: 60pt; height: 15pt; background-color: transparent;"></td><font face="Calibri">
</font></tr><font face="Calibri">
</font></tbody></table><font face="Calibri">
</font></span></td>
<td width="80" style="border: 0px black; width: 60pt; background-color: transparent;"></td>
<td width="80" style="border: 0px black; width: 60pt; background-color: transparent;"></td>
</tr>
<tr height="20" style="height: 15pt;">
<td height="20" style="border: 0px black; height: 15pt; background-color: transparent;"></td>
<td style="border: 0px black; background-color: transparent;"></td>
<td style="border: 0px black; background-color: transparent;"></td>
</tr>
<tr height="20" style="height: 15pt;">
<td height="20" style="border: 0px black; height: 15pt; background-color: transparent;"></td>
<td style="border: 0px black; background-color: transparent;"></td>
<td style="border: 0px black; background-color: transparent;"></td>
</tr>
<tr height="20" style="height: 15pt;">
<td height="20" style="border: 0px black; height: 15pt; background-color: transparent;"></td>
<td style="border: 0px black; background-color: transparent;"></td>
<td style="border: 0px black; background-color: transparent;"></td>
</tr>
<tr height="20" style="height: 15pt;">
<td height="20" style="border: 0px black; height: 15pt; background-color: transparent;"></td>
<td style="border: 0px black; background-color: transparent;"></td>
<td style="border: 0px black; background-color: transparent;"></td>
</tr>

</tbody></table>