Discussion :

[patricktoulon]

Bonjour a tous
dans le cadre d'une de mes petites astuce j'aurais besoins de ce satané spreedsheet, manque de bol je ne l'ai pas
d'autant plus qu'il y a plusieurs versions différentes d'après ce que j'ai compris en fonction de la version d'office

quelqu'un connaitrait le lien pour télécharger celui pour office 2007 pro plus 32 bit
merci pour le retour

[Invité]

Il est téléchargeable gratuitement chez Microsoft.

[patricktoulon]

re
ok rdurupt
a tu essayé mon module?

[Invité]

Bonjour Patrick,
tu trouvera spreedsheet ici: http://www.microsoft.com/fr-fr/downl...s.aspx?id=9468

comme nous faisons des recherche sur le même sujet, je te livre ma première mouture!

je n'arrive pas encore à charger les icônes dans ma page HTML, mais je ne désespère pas! si tu as une idée je suis preneur!

[patricktoulon]

Bonjour Rdurupt
merci pour le spreedsheet nikel je l'ai maintenant

pour ton editeur je pense savoir pourquoi

on a encore un probleme de location

quand tu simplifie l'url d'un fichier images dans le src " background-image:url(images/icons.png)"cela veut dire que ton icon.png est dans un sous dossier du dossier image qui est lui meme au meme endroit que le fichier html (page web)


sauf que la ta page web est dynamique et n'a donc pas de location tout du moins en dossier physique

change les url image par lzeur adress complete

au pire ajoute une balise meta comme je le fait pour les image dans mes mail CDO

[Invité]

Oui Patrick, j'en étais arrivé à la conclusion que j'étais déréférencé d'un répertoire racine!

J'imaginais un délire du genre set imageHtml = me.pictureboxPour que le WisiWig soit vraiment portable!

Ensuite il faudra que je modifie le javascript pour gérer l'insertion du spreedsheet qui lui donne de l'HTML directement!

[patricktoulon]

c'est pour cela que je prefere le mien d'editeur les icons sont des div arrangés

apres picture box dans un userform heu... pas trop non


maintenant pour la portabilité si les icons commandbars ne te déplaisent pas trop il est facile de dynamiquement enregistrer les faces id en image sur disque et voila non ??

comme ca pas de fichier volatile pas de fichier du tout meme a transporter les icons seraient dynamique

[Invité]

Si non j'envisage un autre option, utiliser des images dans le UserFome a la place du html et injecter du javascript dans le WebBroser!

Si je ne perds pas la position du curseur dans me WisiWig.

[patricktoulon]

c'est la methode de mon projet
mes boutons ne sont pas dans le html

comment j'ai fait ?:

en fait dans mon richtext dont je t'ai donner un exemplaire la dernieres fois il y avait des boutons

j'ai ajouter du vbscript dans le html masquant le div de la barre de bouton ( je n'ai plus que le carré de visible )

ensuite j'ai reproduit le meme nombre de bouton( avec le meme nom ou id important!!!!!! ) dans mon userform avec les faceid des commandbars exel (tu trouvera dans dvp un de mes exemplaire du comment je met le faceid d'un control de commandbar dans un control image dans un userform)

et au click de chaque bouton du userform

set doc =me.webbrowser1.document
doc.getelementbyID("nom du control cliqué de l'userform ).click

pour les select bien entendu pareil avec un combobox en indicant les index si ils ne sont pas syncro

et le tour est joué

[Invité]

Dans mon exemple c'est encore plus facile, la gestion ce fait par une classe javascript, injecte le nom de la fonction dans WebBroser comme pour le bouton Envoi Html!

[patricktoulon]

Bonjour Rdurupt
oui mais si je ne me trompe pas tes boutons n'ont pas d' ID ou de name ,il va te falloir repérer le nom de chaque fonctions correspondant a chaque bouton

pour la palette couleur tu va bien rigoler

[patricktoulon]

Bonjour

tiens comme ca a l'arache
j'ai ajouté 30 boutons( 2 a 30) invisible dans le userform

dans chaque bouton j'ai mis en chaneant leur nom bien entendu

Code :

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

Private Sub CommandButton2_Click(): Set doc = Me.WebBrowser1.Document: doc.getelementbyid(CommandButton2.Caption).Click: End Sub

ensuite

apres le refresh du document dans le activate du userform

jai fait une boucle sur tout les controls du richtext qui avaient la class "tecontrol"

je récupere leur title et je leur met comme id et je met le title comme caption de chaque bouton dans le userform

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
Private Sub UserForm_Activate()
Dim doc
Set doc = Me.WebBrowser1.Document
i = 1
For Each elem In doc.all
If elem.classname = "tecontrol" Then
elem.ID = elem.Title
i = i + 1
With Me.Controls("CommandButton" & i)
.Visible = True
.Caption = elem.Title
End With
End If
Next
End Sub

résultat tu a tes boutons dans le userform
on pourrait utiliser une classe boutons mais pour la transportabilité il faudrait emporter aussi le module classe alors je l'ai fait comme ca

parcontre il n'y a pas de control couleur dans le richtext ou est elle ??

[Invité]

Bonjour Patrick,
c'est génial, simple et je n'y ai même pas pensé!

[patricktoulon]

c'est ce que j'ai essayé de te dire hier c'est comme ca que je fait avec le mien sauf que moi j'ai ajouté un array dans le meme ordre dans le quel je met des ID de bouton exel et je met l'icon dans chaque bouton avec

par commandbar add.....temp

set bouton =mabarr.add commandbarbutton balabla

monton .faceid=array(X)
me.controls(monbouton.name).picture=monbouton.picture

dans les propriété tu le regle a aguche
et voila tu a des boutons dans ton userform avec la caption et l'icon correspondant

tu n'y avais pas pensé par ce que dans le tiens de richtext tes bouton n'on pas de name ou id pour les distinguer il fallait passer par cela
dans le mien ils ont un id

voila maintenant met nous ca au propre a la rdurupt

il faut toujours regler le soucis de la palette couleur chez toi

[patricktoulon]

un truc que j'oubliais aussi je peut te montrer comment j'ai ajouté un bouton "ajout image" mais du disque dur pas d'une url

il te sufit de distinguer le div qui contient le codehtml du texte tapé

code=element.innerhtml
image="<img src="c:\blablabla></img>
elemen.innehtml = code &"<BR>" & image
le tout avec une boite de dialog meme celles de excel conviennent tres bien

[patricktoulon]

re
bon ne m'en veut pas mais j'ai un peu laisser mon catana trainer sur le fils de ton code

j'ai plomber tes deux fonctions ( virrée)

j'ai remplacer le tout par un text box servant de memoire pour le codehtml de base

ensuite pour le reload ( range("A2") ,j'ai tout simplement mis dans le code html de base pour la valeur du textarea "blablablabla" et au load du userform je fait un replace sur le code par range("A2")

du coup tes fonction de creation de code et boutons sont devenue inutiles

j'ai aussi commencer a adapter ce que j'ai fait pour le mien bien que pas facile mais on y arrive
tu a donc maintenant les 2 comboboxs font family et font size tu pourrait faire pareil pour la balises select "style"( heading 1,2,3,4,5,6)

par contre je suis préoccupé par le fait qu'il n'y aie pas de palette couleur pour le texte


j'ai donc retranscrit le code html dans un fichier du meme nom et effectivement tu a du tronquer quelque chose dans le code quand tu l'a retranscrit

c'est bien dommage car sinon je pourrais te le finir au poil ton truc
capture de l'arborescence (comme tu vois il n'y a pas de table (palette couleur )


en suite
voila le classeur en l'etat pour le moment

voila dis moi ce que tu en pense

[Invité]

J'ai ajouté un label pour contenir les icones que j'enregistre sur ThisWorkbook.

Je vais rajouter une class javascript pour gérer les autres icones!

Ceci dit je ne réinvente pas l'eau chaude, tout existe déjà mais dans un fichiers lié au fichier HTML.

[patricktoulon]

a tu regardé ma derniere version ??


dis moi exactement ce que tu veux comme icone (excel/autre )

je comprends pas tres bien a quoi va te servir ta classe java script

pourla palette couleur peut etre ???

dans ce cas la il va faloir l'integrer dans linstance de l'editor et ca c'est pas une mince affaire

je suis en train de chercher la variable contenant l'object a chaque action (selction,elemt,ligne) etc... dans le javascript

mais bon donne plus de precision car la je comprends pas

au mieux donne moi l'image qui contient une barre d'icon tout acroché

[Invité]

J'ai pas encore regardé ton dernier poste, les autre oui.

Comme je te l'ai dit plus haut, ce wisiwig prévois énormément de choses, li est même possible d'y ajouter des plugin,

Un compilateur par exemple.

Il dispose en natif tout ce qu'il faut, c'est juste un travail d documentation et de retranscription!

[patricktoulon]

heu tout ce qu'il faut heu.. nan nan ..

il n'a absolument pas de palette couleur pour le texte ou alors tu a sacrément scalper les plugins en JS dans le code javascript

une palette couleur pour le texte c'est un minimum je crois non ?,

aurais tu le code initial du html et js

en ce qui concerne l'ajout des plugins oui j'ai cru comprendre dans le code d'ailleur j'ai ajouté des font family il est vrai que le tien est plus facile a modifier que le mien car le tien utilise le textearea comme memoire tampon

le mien les deux le textatarea et div ou iframe de subtitution sont dynamiques