Mais où donc trouver ce satané spreedsheets

**patricktoulon** · 06/01/2016, 14h01

Bonjour Robert
c'est vraiment bizarre jai moi aussi windows 7 pro et premium 64 bits et office 32 bits 2007 et ca fonctionne tres bien sur les deux systems

pour le reste je vais examiner
peut etre modifier le doctype alors ???

et

Code :

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

.Width = Me.insideWidth: .Height = Me.insideHeight - fond.Height

et oui maintenant que la mecanique commence a rouler correctement des ajustements vont etres fait je l'entends bien

oupss!!! j'ai cocrrigé

**patricktoulon** · 06/01/2016, 19h42

bonsoir robert
on a un soucis avec les images en bases 64 elle ne sont pas placer ou est le curseur elle se placent toujours en dernier

j'ai donc essayer avec ma fonction d'origine "insertimg" et pareil

j'ai aussi netoyé ton code
il y a maintenant qu'une fonction "img64"
j'ai aussi garder la possibilité d'injecter l'image en url fichier
le bouton qui cache le combobox

Code :

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

1
2
3
4
5
Private Sub INSErTimage_Click()
formatinsertimg.Clear
    formatinsertimg.List = Array(, "URL", "base64")
    formatinsertimg.DropDown
End Sub

dans le combobox

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
16
17
Private Sub formatinsertimg_Click()'ceci est un combobox
    Dim fileToOpen, t As String
    fileToOpen = Application.GetOpenFilename("Fichiers Images (*.jpg;*.gif;*.bmp;*.png;*.jpeg),(*.jpg;*.gif;*.bmp;*.png;.jpeg)")
    If fileToOpen <> False Then
        'fileToOpen = Replace(fileToOpen, "\", "/")
        With WebBrowser1
            If formatinsertimg.Value = "URL" Then
                WebBrowser1.Document.parentWindow.execScript "insertimg(""" + Replace(fileToOpen, "\", "/") + """)"
            ElseIf formatinsertimg.Value = "base64" Then
                .Document.getElementByid("editeur").innerhtml = .Document.getElementByid("editeur").innerhtml & "<p>&nbsp;</p>"
                t = img64(fileToOpen)
                .Document.parentWindow.execScript "insertimg(""data:image/gif;base64," & Replace(t, Chr(10), Chr(34) & " +" & Chr(10) & Chr(34)) & """)"  'là ça marche pas!
            End If
        End With
    End If
formatinsertimg.Clear
End Sub

la fonction img64

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
16
17
18
19
Function img64(Fichier)
    Dim Buffer() As Byte, intFileNumber, Fso As Object, objXML As Object, objNode As Object
    intFileNumber = FreeFile
    Set Fso = CreateObject("Scripting.FileSystemObject")
    ReDim Buffer(Fso.GetFile(Fichier).size)
    Set Fso = Nothing
    Open Fichier For Binary As #intFileNumber
    While Not EOF(intFileNumber)
        Get #intFileNumber, , Buffer
    Wend
    Close #intFileNumber
    Set objXML = CreateObject("MSXML2.DOMDocument")    '.DOMDocument
    Set objNode = objXML.createElement("b64") 'MSXML2.IXMLDOMElement
    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = Buffer
    img64 = objNode.Text
    Set objNode = Nothing
    Set objXML = Nothing
End Function

et la fonction javascript

Code javascript :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
////////////////////////////////////////////////////////////////////////////////////
 function insertimg(fichier)
   {
   var ids="image" +document.getElementsByTagName ("img").length+1
 
                             var selection = selectionne_text();
   var selectedText = selection.extractContents();
            var baliseimg = document.createElement("img");
   baliseimg.appendChild(selectedText);
   /*baliseimg.src=fichier;*/
                             baliseimg.id=ids;  
                             selection.insertNode(baliseimg);
 
document.getElementById (ids).src=fichier
document.getElementById (ids).width= document.getElementById (ids).width /2  /* pour ne pas avoir une image trop grande au depart */ 
 
}
 
/////////////////////////////////////////////////////////////////////////////////

tu aurais une solution ???? pour que l'image se place ou est le curseur meme si il n'y a rien de selectionnéde la meme maniere qu'avec l'url fichier

Invité · 06/01/2016, 20h19

Moi l'image place bien sur me curseur. Ceci dit j'avais fait un méthode plus haut avec un replace, là ou tu avais rigoler!
http://www.developpez.net/forums/d15...s/#post8487273

**patricktoulon** · 06/01/2016, 20h26

re
j'ai essayé le tiens tel que tu me l'a donné et ben non !!!.

sur un nouveau document ecrit 2 ou 3 ligne et place ton curseur ou tu veux entre les ligne et met une image en 64 tu verra ca la met en dernier
par contre si le document est vide meme si il y des "<p>" l'image se met en haut

et oui j'avais rigolé parce que cette methode ne gere pas les balises entrecroisées de meme que le mode appendchild il faut utiliser un regex c'etait mes premieres versions mais il y a tellement de possibilités que le regex faisait 3 kmettres alors j'ai laissé le mode appendchild tomber tout du moins pour les basic

**patricktoulon** · 06/01/2016, 21h58

re
c'est bon je perdais le focus j'ai maintenant les deux possibilités (url fichier/base 64) dans le src
Nom : Capture.JPG
Affichages : 215
Taille : 143,5 Ko

**patricktoulon** · 15/01/2016, 14h05

Bonjour robert

une simple question
afin d'avoir un seul code pour avoir cet editeur dans un userform ou un htm ou un document html je conjugue les methodes
d'apres toi
pour un bouton appercu du document c'est mieux
ceci dans le bouton du userform

Code :

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

1
2
3
Private Sub apperciwin_Click()
    WebBrowser1.Document.parentWindow.execScript ("appercu()")
End Sub

et ceci dans le javascript

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
//////////////////////////////////////////////////////////////////////////////////////////////////////////  
function appercu() {
  var codehtml=document.getElementById("editeur").innerHTML;
 var fenetre = window.open("","_blank","menubar=yes,toolbar=no,location=no,scrollbars=yes");
 fenetre .document.open();
  fenetre .document.write("<!doctype html><html><head><title>Appercut<\/title><\/head><body >" + codehtml+ "<\/body><\/html>");
 /* si on veut ouvrir le menu d'impression avec 
  fenetre .document.write("<!doctype html><html><head><title>Appercut<\/title><\/head><body onload=\"print();\">" + codehtml+ "<\/body><\/html>");
*/
 fenetre .document.close();
}

ou simplement ceci dans le bouton du userform

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub appercuIE_Click()
    Dim IE
    Set IE = CreateObject("internetexplorer.application")
    With IE: .Visible = True:
    .MenuBar = False:
    .Toolbar = False:
    .Navigate "about:blank"
        '.FullScreen = True 'attention plus de caption de la fenetre IE
        .Document.write WebBrowser1.Document.getelementbyid("editeur").innerhtml
    End With
End Sub

Invité · 15/01/2016, 17h02

Bonjour Patrick,
Moi j'utiliserais ua autre webbroser masquer qui occuperait tout le UserForm et j'enverrais le div.innerhtml du webb1 dans le webb2!

Tu utilise le survole de la souris pour afficher le message double click pour sortir!
WebBroser2.visible True/false!

Au fait les image envoyé par mail sont lisible sur mon Pc mais pas sur WindowsPone!

J'ai bien avancé sur mon contrôle HtmlEditeur.Ocx je fait des testes en ce moment!

**patricktoulon** · 15/01/2016, 17h14

re
ca fait un peu brouillon non? 2 webbrowser

et au fait moi aussi j'avance sur le mien

j'ai ajouter le marquee

ajout de div(layer)ainsi que toute leur propriétés

ainsi que le bouton appercu

j'ai aussi avancé sur une methode appendchild pour la toolbar dynamique dans le document ce qui pour moi reste la solution ideal pour une intégration dans exel,hta,html,vb

et en plus les iconnes sont en base 64 donc pas de soucis avec la portabilité

Invité · 15/01/2016, 17h20

On doit pouvoir envoyer le résultat dans un autre traget du webbroser comme un popop?

La je ne sais pas mais si c'est possible on referme la popop et on revient sur l'éditeur.

**patricktoulon** · 15/01/2016, 17h59

re
et ben!!!!!! la fonction javascript fait le meme effet on peut meme la resizer si tu veux

Code :

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

1
2
3
4
5
6
7
8
9
 
function appercu() {
  Var codehtml=document.getElementById("editeur").innerHTML;
  /* ICI on determine la taille et on supprime tout les option de la fentre 
  var popup= window.open("","_blank","width=450,height=470,left=400,top=100,menubar=yes,toolbar=no,location=no,scrollbars=yes");
  popup.document.open();
  popup.document.write("<!doctype html><html><head><title>appercu<\/title><\/head><body>" + codehtml+ "<\/body><\/html>");
 
}

Nom : Capture.JPG
Affichages : 324
Taille : 236,4 Ko

Invité · 15/01/2016, 18h56

Ça je savais pas c'est génial.

**patricktoulon** · 15/01/2016, 20h58

et oui meme si le pseudo ruban est pas mal ca reste du code dans le userform donc proprietaire tandis que du code javascript dans le textbox pourra etre monter sur nimporte quel userform existant tu comprends

un exemple du menu en dur dans le html je suis en train de le faire pour qu'il se construise a l'ouverture

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
<div id="toolBar1">
<select onchange="formatDoc('formatblock',this[this.selectedIndex].value);this.selectedIndex=0;">
<option selected>- formatting -</option>
<option value="h1">Title 1 &lt;h1&gt;</option>
<option value="h2">Title 2 &lt;h2&gt;</option>
<option value="h3">Title 3 &lt;h3&gt;</option>
<option value="h4">Title 4 &lt;h4&gt;</option>
<option value="h5">Title 5 &lt;h5&gt;</option>
<option value="h6">Subtitle &lt;h6&gt;</option>
<option value="p">Paragraph &lt;p&gt;</option>
<option value="pre">Preformatted &lt;pre&gt;</option>
</select>
<select onchange="formatDoc('fontname',this[this.selectedIndex].value);this.selectedIndex=0;">
<option class="heading" selected>- font -</option>
<option>Arial</option>
<option>Arial Black</option>
<option>Courier New</option>
<option>Times New Roman</option>
</select>
<select onchange="formatDoc('fontsize',this[this.selectedIndex].value);this.selectedIndex=0;">
<option class="heading" selected>- size -</option>
<option value="1">Very small</option>
<option value="2">A bit small</option>
<option value="3">Normal</option>
<option value="4">Medium-large</option>
<option value="5">Big</option>
<option value="6">Very big</option>
<option value="7">Maximum</option>
</select>
<select onchange="formatDoc('forecolor',this[this.selectedIndex].value);this.selectedIndex=0;">
<option class="heading" selected>- color -</option>
<option value="red">Red</option>
<option value="blue">Blue</option>
<option value="green">Green</option>
<option value="black">Black</option>
</select>
<select onchange="formatDoc('backcolor',this[this.selectedIndex].value);this.selectedIndex=0;">
<option class="heading" selected>- background -</option>
<option value="red">Red</option>
<option value="green">Green</option>
<option value="black">Black</option>
</select>
</div>
<div id="toolBar2">
<img class="intLink" title="Clean" onclick="if(validateMode()&&confirm('Are you sure?')){oDoc.innerHTML=sDefTxt};" src="data:image/gif;base64,R0lGODlhFgAWAIQbAD04KTRLYzFRjlldZl9vj1dusY14WYODhpWIbbSVFY6O7IOXw5qbms+wUbCztca0ccS4kdDQjdTLtMrL1O3YitHa7OPcsd/f4PfvrvDv8Pv5xv///////////////////yH5BAEKAB8ALAAAAAAWABYAAAV84CeOZGmeaKqubMteyzK547QoBcFWTm/jgsHq4rhMLoxFIehQQSAWR+Z4IAyaJ0kEgtFoLIzLwRE4oCQWrxoTOTAIhMCZ0tVgMBQKZHAYyFEWEV14eQ8IflhnEHmFDQkAiSkQCI2PDC4QBg+OAJc0ewadNCOgo6anqKkoIQA7" />
<img class="intLink" title="Print" onclick="printDoc();" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABYAAAAWCAYAAADEtGw7AAAABGdBTUEAALGPC/xhBQAAAAZiS0dEAP8A/wD/oL2nkwAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9oEBxcZFmGboiwAAAAIdEVYdENvbW1lbnQA9syWvwAAAuFJREFUOMvtlUtsjFEUx//n3nn0YdpBh1abRpt4LFqtqkc3jRKkNEIsiIRIBBEhJJpKlIVo4m1RRMKKjQiRMJRUqUdKPT71qpIpiRKPaqdF55tv5vvusZjQTjOlseUkd3Xu/3dPzusC/22wtu2wRn+jG5So/OCDh8ycMJDflehMlkJkVK7KUYN+ufzA/RttH76zaVocDptRxzQtNi3mRWuPc+6cKtlXZ/sddP2uu9uXlmYXZ6Qm8v4Tz8lhF1H+zDQXt7S8oLMXtbF4e8QaFHjj3kbP2MzkktHpiTjp9VH6iHiA+whtAsX5brpwueMGdONdf/2A4M7ukDs1JW662+XkqTkeUoqjKtOjm2h53YFL15pSJ04Zc94wdtibr26fXlC2mzRvBccEbz2kiRFD414tKMlEZbVGT33+qCoHgha81SWYsew0r1uzfNylmtpx80pngQQ91LwVk2JGvGnfvZG6YcYRAT16GFtW5kKKfo1EQLtfh5Q2etT0BIWF+aitq4fDbk+ImYo1OxvGF03waFJQvBCkvDffRyEtxQiFFYgAZTHS0zwAGD7fG5TNnYNTp8/FzvGwJOfmgG7GOx0SAKKgQgDMgKBI0NJGMEImpGDk5+WACEwEd0ywblhGUZ4Hw5OdUekRBLT7DTgdEgxACsIznx8zpmWh7k4rkpJcuHDxCul6MDsmmBXDlWCH2+XozSgBnzsNCEE4euYV4pwCpsWYPW0UHDYBKSWu1NYjENDReqtKjwn2+zvtTc1vMSTB/mvev/WEYSlASsLimcOhOBJxw+N3aP/SjefNL5GePZmpu4kG7OPr1+tOfPyUu3BecWYKcwQcDFmwFKAUo90fhKDInBCAmvqnyMgqUEagQwCoHBDc1rjv9pIlD8IbVkz6qYViIBQGTJPx4k0XpIgEZoRN1Da0cij4VfR0ta3WvBXH/rjdCufv6R2zPgPH/e4pxSBCpeatqPrjNiso203/5s/zA171Mv8+w1LOAAAAAElFTkSuQmCC">
<img class="intLink" title="Undo" onclick="formatDoc('undo');" src="data:image/gif;base64,R0lGODlhFgAWAOMKADljwliE33mOrpGjuYKl8aezxqPD+7/I19DV3NHa7P///////////////////////yH5BAEKAA8ALAAAAAAWABYAAARR8MlJq7046807TkaYeJJBnES4EeUJvIGapWYAC0CsocQ7SDlWJkAkCA6ToMYWIARGQF3mRQVIEjkkSVLIbSfEwhdRIH4fh/DZMICe3/C4nBQBADs=" />
<img class="intLink" title="Redo" onclick="formatDoc('redo');" src="data:image/gif;base64,R0lGODlhFgAWAMIHAB1ChDljwl9vj1iE34Kl8aPD+7/I1////yH5BAEKAAcALAAAAAAWABYAAANKeLrc/jDKSesyphi7SiEgsVXZEATDICqBVJjpqWZt9NaEDNbQK1wCQsxlYnxMAImhyDoFAElJasRRvAZVRqqQXUy7Cgx4TC6bswkAOw==" />
<img class="intLink" title="Remove formatting" onclick="formatDoc('removeFormat')" src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABYAAAAWCAYAAADEtGw7AAAABGdBTUEAALGPC/xhBQAAAAZiS0dEAP8A/wD/oL2nkwAAAAlwSFlzAAAOxAAADsQBlSsOGwAAAAd0SU1FB9oECQMCKPI8CIIAAAAIdEVYdENvbW1lbnQA9syWvwAAAuhJREFUOMtjYBgFxAB501ZWBvVaL2nHnlmk6mXCJbF69zU+Hz/9fB5O1lx+bg45qhl8/fYr5it3XrP/YWTUvvvk3VeqGXz70TvbJy8+Wv39+2/Hz19/mGwjZzuTYjALuoBv9jImaXHeyD3H7kU8fPj2ICML8z92dlbtMzdeiG3fco7J08foH1kurkm3E9iw54YvKwuTuom+LPt/BgbWf3//sf37/1/c02cCG1lB8f//f95DZx74MTMzshhoSm6szrQ/a6Ir/Z2RkfEjBxuLYFpDiDi6Af///2ckaHBp7+7wmavP5n76+P2ClrLIYl8H9W36auJCbCxM4szMTJac7Kza////R3H1w2cfWAgafPbqs5g7D95++/P1B4+ECK8tAwMDw/1H7159+/7r7ZcvPz4fOHbzEwMDwx8GBgaGnNatfHZx8zqrJ+4VJBh5CQEGOySEua/v3n7hXmqI8WUGBgYGL3vVG7fuPK3i5GD9/fja7ZsMDAzMG/Ze52mZeSj4yu1XEq/ff7W5dvfVAS1lsXc4Db7z8C3r8p7Qjf///2dnZGxlqJuyr3rPqQd/Hhyu7oSpYWScylDQsd3kzvnH738wMDzj5GBN1VIWW4c3KDon7VOvm7S3paB9u5qsU5/x5KUnlY+eexQbkLNsErK61+++VnAJcfkyMTIwffj0QwZbJDKjcETs1Y8evyd48toz8y/ffzv//vPP4veffxpX77z6l5JewHPu8MqTDAwMDLzyrjb/mZm0JcT5Lj+89+Ybm6zz95oMh7s4XbygN3Sluq4Mj5K8iKMgP4f0////fv77//8nLy+7MCcXmyYDAwODS9jM9tcvPypd35pne3ljdjvj26+H2dhYpuENikgfvQeXNmSl3tqepxXsqhXPyc666s+fv1fMdKR3TK72zpix8nTc7bdfhfkEeVbC9KhbK/9iYWHiErbu6MWbY/7//8/4//9/pgOnH6jGVazvFDRtq2VgiBIZrUTIBgCk+ivHvuEKwAAAAABJRU5ErkJggg==">
<img class="intLink" title="Bold" onclick="formatDoc('bold');" src="data:image/gif;base64,R0lGODlhFgAWAID/AMDAwAAAACH5BAEAAAAALAAAAAAWABYAQAInhI+pa+H9mJy0LhdgtrxzDG5WGFVk6aXqyk6Y9kXvKKNuLbb6zgMFADs=" />
<img class="intLink" title="Italic" onclick="formatDoc('italic');" src="data:image/gif;base64,R0lGODlhFgAWAKEDAAAAAF9vj5WIbf///yH5BAEAAAMALAAAAAAWABYAAAIjnI+py+0Po5x0gXvruEKHrF2BB1YiCWgbMFIYpsbyTNd2UwAAOw==" />
<img class="intLink" title="Underline" onclick="formatDoc('underline');" src="data:image/gif;base64,R0lGODlhFgAWAKECAAAAAF9vj////////yH5BAEAAAIALAAAAAAWABYAAAIrlI+py+0Po5zUgAsEzvEeL4Ea15EiJJ5PSqJmuwKBEKgxVuXWtun+DwxCCgA7" />
<img class="intLink" title="Left align" onclick="formatDoc('justifyleft');" src="data:image/gif;base64,R0lGODlhFgAWAID/AMDAwAAAACH5BAEAAAAALAAAAAAWABYAQAIghI+py+0Po5y02ouz3jL4D4JMGELkGYxo+qzl4nKyXAAAOw==" />
<img class="intLink" title="Center align" onclick="formatDoc('justifycenter');" src="data:image/gif;base64,R0lGODlhFgAWAID/AMDAwAAAACH5BAEAAAAALAAAAAAWABYAQAIfhI+py+0Po5y02ouz3jL4D4JOGI7kaZ5Bqn4sycVbAQA7" />
<img class="intLink" title="Right align" onclick="formatDoc('justifyright');" src="data:image/gif;base64,R0lGODlhFgAWAID/AMDAwAAAACH5BAEAAAAALAAAAAAWABYAQAIghI+py+0Po5y02ouz3jL4D4JQGDLkGYxouqzl43JyVgAAOw==" />
<img class="intLink" title="Numbered list" onclick="formatDoc('insertorderedlist');" src="data:image/gif;base64,R0lGODlhFgAWAMIGAAAAADljwliE35GjuaezxtHa7P///////yH5BAEAAAcALAAAAAAWABYAAAM2eLrc/jDKSespwjoRFvggCBUBoTFBeq6QIAysQnRHaEOzyaZ07Lu9lUBnC0UGQU1K52s6n5oEADs=" />
<img class="intLink" title="Dotted list" onclick="formatDoc('insertunorderedlist');" src="data:image/gif;base64,R0lGODlhFgAWAMIGAAAAAB1ChF9vj1iE33mOrqezxv///////yH5BAEAAAcALAAAAAAWABYAAAMyeLrc/jDKSesppNhGRlBAKIZRERBbqm6YtnbfMY7lud64UwiuKnigGQliQuWOyKQykgAAOw==" />
<img class="intLink" title="Quote" onclick="formatDoc('formatblock','blockquote');" src="data:image/gif;base64,R0lGODlhFgAWAIQXAC1NqjFRjkBgmT9nqUJnsk9xrFJ7u2R9qmKBt1iGzHmOrm6Sz4OXw3Odz4Cl2ZSnw6KxyqO306K63bG70bTB0rDI3bvI4P///////////////////////////////////yH5BAEKAB8ALAAAAAAWABYAAAVP4CeOZGmeaKqubEs2CekkErvEI1zZuOgYFlakECEZFi0GgTGKEBATFmJAVXweVOoKEQgABB9IQDCmrLpjETrQQlhHjINrTq/b7/i8fp8PAQA7" />
<img class="intLink" title="Add indentation" onclick="formatDoc('outdent');" src="data:image/gif;base64,R0lGODlhFgAWAMIHAAAAADljwliE35GjuaezxtDV3NHa7P///yH5BAEAAAcALAAAAAAWABYAAAM2eLrc/jDKCQG9F2i7u8agQgyK1z2EIBil+TWqEMxhMczsYVJ3e4ahk+sFnAgtxSQDqWw6n5cEADs=" />
<img class="intLink" title="Delete indentation" onclick="formatDoc('indent');" src="data:image/gif;base64,R0lGODlhFgAWAOMIAAAAADljwl9vj1iE35GjuaezxtDV3NHa7P///////////////////////////////yH5BAEAAAgALAAAAAAWABYAAAQ7EMlJq704650B/x8gemMpgugwHJNZXodKsO5oqUOgo5KhBwWESyMQsCRDHu9VOyk5TM9zSpFSr9gsJwIAOw==" />
<img class="intLink" title="Hyperlink" onclick="var sLnk=prompt('Write the URL here','http:\/\/');if(sLnk&&sLnk!=''&&sLnk!='http://'){formatDoc('createlink',sLnk)}" src="data:image/gif;base64,R0lGODlhFgAWAOMKAB1ChDRLY19vj3mOrpGjuaezxrCztb/I19Ha7Pv8/f///////////////////////yH5BAEKAA8ALAAAAAAWABYAAARY8MlJq7046827/2BYIQVhHg9pEgVGIklyDEUBy/RlE4FQF4dCj2AQXAiJQDCWQCAEBwIioEMQBgSAFhDAGghGi9XgHAhMNoSZgJkJei33UESv2+/4vD4TAQA7" />
<img class="intLink" title="Cut" onclick="formatDoc('cut');" src="data:image/gif;base64,R0lGODlhFgAWAIQSAB1ChBFNsRJTySJYwjljwkxwl19vj1dusYODhl6MnHmOrpqbmpGjuaezxrCztcDCxL/I18rL1P///////////////////////////////////////////////////////yH5BAEAAB8ALAAAAAAWABYAAAVu4CeOZGmeaKqubDs6TNnEbGNApNG0kbGMi5trwcA9GArXh+FAfBAw5UexUDAQESkRsfhJPwaH4YsEGAAJGisRGAQY7UCC9ZAXBB+74LGCRxIEHwAHdWooDgGJcwpxDisQBQRjIgkDCVlfmZqbmiEAOw==" />
<img class="intLink" title="Copy" onclick="formatDoc('copy');" src="data:image/gif;base64,R0lGODlhFgAWAIQcAB1ChBFNsTRLYyJYwjljwl9vj1iE31iGzF6MnHWX9HOdz5GjuYCl2YKl8ZOt4qezxqK63aK/9KPD+7DI3b/I17LM/MrL1MLY9NHa7OPs++bx/Pv8/f///////////////yH5BAEAAB8ALAAAAAAWABYAAAWG4CeOZGmeaKqubOum1SQ/kPVOW749BeVSus2CgrCxHptLBbOQxCSNCCaF1GUqwQbBd0JGJAyGJJiobE+LnCaDcXAaEoxhQACgNw0FQx9kP+wmaRgYFBQNeAoGihCAJQsCkJAKOhgXEw8BLQYciooHf5o7EA+kC40qBKkAAAGrpy+wsbKzIiEAOw==" />
<img class="intLink" title="Paste" onclick="formatDoc('paste');" src="data:image/gif;base64,R0lGODlhFgAWAIQUAD04KTRLY2tXQF9vj414WZWIbXmOrpqbmpGjudClFaezxsa0cb/I1+3YitHa7PrkIPHvbuPs+/fvrvv8/f///////////////////////////////////////////////yH5BAEAAB8ALAAAAAAWABYAAAWN4CeOZGmeaKqubGsusPvBSyFJjVDs6nJLB0khR4AkBCmfsCGBQAoCwjF5gwquVykSFbwZE+AwIBV0GhFog2EwIDchjwRiQo9E2Fx4XD5R+B0DDAEnBXBhBhN2DgwDAQFjJYVhCQYRfgoIDGiQJAWTCQMRiwwMfgicnVcAAAMOaK+bLAOrtLUyt7i5uiUhADs=" />
</div>

**patricktoulon** · 03/02/2016, 13h10

Bonjour robert

si tu a un moment je souhaiterais que tu test l'affichage avant que j'aille plus loin dans la construction dynamique du ribbon html du futur wisiwig

teste le et dis moi si tu pareil que ma capture et si tu peux m'envoyer une capture pour voir les différences je t'en remercie d'avance

Code html :

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

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
<!doctype html5>
<html lang="fr">
 <head>
  <meta http-equiv="X-UA-Compatible" content="IE=edge" />
                <!-meta charset="UTF-8"-!>
<script>
function init(toolbar){
var  ruban=document.getElementById("ruban");
ruban.style.width="99%";
ruban.style.height="95px";
ruban.style.border="1px solid blue";
;
ruban.style.overflow = "auto";
ruban.style.overflowY = "none";
ruban.style.display="block";
ruban.style.backgroundRepeat="no-repeat"
var subruban=document.createElement("div");
subruban.style.height="74px"
subruban.style.border="1px solid red";
ruban.appendChild(subruban);
ruban.style.backgroundImage = "url('data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA/oAAABhCAYAAABmr9q8AAAABmJLR0QA/wD/AP+gvaeTAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAAB3RJTUUH4AERAjAjcfA7hwAAAxxJREFUeNrt3TFKHjAYgOFEAgXBgg69/xEcHR0cnNyKlDqWnsBJ5I+nEMLL8xzh217yJZl77z0AAACAhPX4ZggAAACQCf2X13+mAAAAABHz7/93q/sAAAAQsVQ+AAAAhEJ/eIsPAAAAOqF/0fkAAADQCf0h9AEAAKAT+lvpAwAAQCj0dT4AAACEQt8MAAAAoBP6Xt0HAACAUOjLfAAAABD6AAAAwImh79F9AAAACIX+dkcfAAAAQqFvBgAAABAKfaUPAAAAGVdGAAAAAB3u6AMAAEAp9D8+L6YAAAAAldB3ng8AAAAd7ugDAACA0AcAAACEPgAAAPCt1nRJHwAAADqhr/MBAACgw+o+AAAACH0AAADgRGtMQwAAAIBM6Ot8AAAA6LC6DwAAAEIfAAAAOJHVfQAAAEiF/pT6AAAAUGF1HwAAAIQ+AAAAcKI1bO4DAABAJ/R1PgAAAIRC34k+AAAAdLijDwAAAEIfAAAAOJE7+gAAABDiRB8AAACEPgAAAHCiNe3uAwAAQCf0fa8HAAAAHVb3AQAAIGQNR/oAAADQCX2ZDwAAAKHQH17jAwAAgAx39AEAACDE6j4AAACUQt9bfAAAACD0AQAAgAO5ow8AAAAh7ugDAACA0AcAAABOZHUfAAAAhD4AAABwojWn5X0AAACocKIPAAAAIWs40AcAAIBQ6Ct9AAAA6IS+zAcAAIBQ6DvQBwAAgA6P8QEAAECI1X0AAAAohb7H+AAAAKAU+jofAAAAOqE/hT4AAAB0Qt/qPgAAAIRCfzrSBwAAgFLoGwIAAAB0Qt/qPgAAAIRCX+cDAABAJ/SH0gcAAIBO6HuMDwAAAFKhbwgAAAAQCn2lDwAAAJnQH1dCHwAAADKh73s9AAAAKIW+zgcAAIBS6Ct9AAAAyIT+sLoPAAAAndB3og8AAACp0DcEAAAAyIS+zX0AAAAIhb7OBwAAgFDoe4wPAAAAQqG/LoYAAAAAmdD/88MQAAAAIBP6v++fTAEAAAAqoX9798sUAAAAoBL61zc/TQEAAAAqof/w9GwKAAAAEDH33tsYAAAAoOELorE3EVkYy5IAAAAASUVORK5CYIIA')";
ruban.style.backgroundSize = "100% 80px";
 
var leleft=10;
  for (var i = 0; i < toolbar.length; i++) 
   {                      
var large=Math.round((toolbar[i].length-1)/2)*30+20;
   
                    var cmb=document.createElement("div");
   cmb.id="toolbar"+i;
   cmb.style.width=large+"px";
                        cmb.style.height="72px";
                        cmb.style.border="0.5pt solid #A9BCF5";
                        cmb.style.marginLeft = "2px";
                        cmb.style.borderRadius = "5px";
                        cmb.style.marginTop = "2px";
                        cmb.style.cssFloat = "left";
                        cmb.style.display="block";
                        cmb.style.top="2px";
                        
                        var leleft=leleft +large;
cmb.style.backgroundImage = "url('data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAFMAAABaCAYAAADEvWrIAAAABmJLR0QA/wD/AP+gvaeTAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAAB3RJTUUH4AESDwYBN+HXqwAAAB1pVFh0Q29tbWVudAAAAAAAQ3JlYXRlZCB3aXRoIEdJTVBkLmUHAAAEKUlEQVR42u2cu3LbMBBFcTn7//+Sj0idLmU6j1PkMYln4sRj+6YQRQHU4kFqZVPEorAlUaaFw7tPAsL9z38kGdSB8XfmcMu44E/ffWB6gGhCzL5RnsiQY3nTJCyhRoCoHh9h3t19zcNEUK4IOqKNEAJHYWLEoCnzcAzff/+tsmTMTQW8V5YIgTxMGTmYmLyAPDy+XqCvHpQ5aXL8yTOpHR/JC5kyQQZbh2Z+ECbHx3NlMnrf4ZiQTFmyArMnM1fMmoU5C5kGF0J3kBPLSmTbH8zy8xTmmQ+EauvsNHPigjkLG9GfzBxNku/XzJUIlTPz+Np0wHKhmVML4SictDdlLvKZjanR8U1UXtu1z2TxednMM+WOFsPdzKeKc6WZw828PZo3RjWP5rNsMoQgzfkicJ5nYeYRdsY2NlqGnPFiOiZ/nl7yEBqaw0eHjOike6GKIwCcKxPxi4h8JmtNuAZz3mNkj4Uy95nxfI/Hh3N4UJ4h9DmW3bcZgg+z4TANh2CB2EPnxl6FaecxHLabufvMjfrM4E7TbP5SfG9cALBTiEzrbxQ4SamkRmgugHba5UjaEtlg7AHoKj4z6C3glHzn0pyV2FmYAxpQofMIVJ0/lKT9uNpr5ivYq+M8Ltwi9X7ujHUKk5lbvW7lC8rJNhX7qLCQgPxirSm3ogOcHrKWZ6JyDvTd7IDmCdU8E7NXleeEU8ysZ0uOiepwfawPQB5/bHoeAyp/iOC30xqtvK0277XRsdDKRzOHV5MWlaUA9RZcr7EJIb8MWOMk6Rohqpo+W8PZi5mDIxI00ZQzDTKTtbvTrLKQdMmV3ugA3dBPC4Xy0hzLScxQQikn0SnKGRslAkU+8xSBmFFx2s/sJyxR2YgaCrt6JZXubE07oHRKOjJ3RT/F2xZx1yi7C6jUNdqxYOO08SyYI5caVRhwabGK3Qqz3hxu2Qfkwbwxz0QOGupC2/H+gFOsQJvxCQwuXk+pfT0AuZXb1ObpTovZngn23XqP94uWdpMcGQpuqL+2ZkdcaX7WO+wSmOtODnM9rAGzLo+0PZ8k8oXt5K+W+Flda+OPLtXFh5vMVYxowtrMiSteelv5relclYVpbOaXC5MuzMln3o4w7f+X8fkuroA8/iQ+83o+xL4iscVpvbxc0jb8xu2c27ZzuZjlG9r51lfjSbr2cAOftlCFbb3wTZL2LXzY4gXltkOQDMA7GOzKIION+8ynZ75PnrPtLGwdzB8Pz+FWxppvqEFBfdYVn2BruyfNA9DbBTQJwzD9T+2bCGsuB4W7bsXKMAdtGLJMFn++t/T1CEHC6+v6KxWv/qDRlb/V1IjTtxT6MDJzh2AH05VpWU46TTOYjtISJn1fipu5m/neo7lbuWVq5No0g/nl/ptTsKrPfz2+uDStlPlp8HrSDObnDx+dgtH4D5A/ztamX7SmAAAAAElFTkSuQmCCAA==')"
cmb.style.backgroundSize = "100% 76px";
subruban.appendChild(cmb);  
subruban.style.width=leleft+10+"px";
 //subruban.style.border="1px solid red";                       
var nbt=toolbar[i];
for (var b = 1; b < nbt.length; b++){ 
var bout=document.createElement("img");
bout.title=nbt[b];
bout.style.width=22+"px";
bout.style.height="22px";
bout.style.marginLeft="4px";
bout.style.marginTop="6px";
bout.style.cssFloat = "left";
bout.style.border="0.5pt solid #A9BCF5";
cmb.appendChild(bout);                        
/*alert(nbt[b]);*/
}
}
 
}
///////////////////////////////////////fonction/////////////////////////////SendEMail("from@example.com", "to@example.com", "Subject", "Text body"); 
function SendEMail(from, to, subject, body)
{
  try
  {
    var oMsg      = new ActiveXObject("CDO.Message");
    oMsg.From     = from;
    oMsg.To       = to;
    oMsg.Subject  = subject;
    oMsg.TextBody = body;
    oMsg.Send(); 
  }
  catch(e)
  {
    WScript.Echo("Error: " + e.description);
  }
}
</script>
<style>
#ruban{overflow-x:"scroll";display:"block";}
</style>
</head>
<body>
<div id="ruban"></div>
<div id ="editeur" conteneditable="true"></div>
<script>
var toolbar1=["outil Texte","bold","italic","strike","justifyleft","justifycenter","justifyright","justifyfull","forcolor","backcolor"]
var toolbar2=["Insertion","orderedlist","unorderedlist"," marquee","link","unlink","div","smiley"]
var toolbar3=["Outils Application","copy","cut","paste","codehtml","save","appercu","print"]
var toolbar=[toolbar1,toolbar2,toolbar3]
init(toolbar)
</script>
</body>
</html>

Nom : Capture.JPG
Affichages : 396
Taille : 138,8 Ko

Invité · 03/02/2016, 13h17

Bonjour Patrick,
oui j'ais la même chose, je regarde de mon coté et un autre test!

Code :

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

ruban.style.backgroundImage = "url(data:image/gif;base64,R0lGODlhEAAQAMQAAORHHOVSKudfOulrSOp3WOyDZu6QdvCchPGolfO0o/XBs/fNwfjZ0frl3/zy7////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAkAABAALAAAAAAQABAAAAVVICSOZGlCQAosJ6mu7fiyZeKqNKToQGDsM8hBADgUXoGAiqhSvp5QAnQKGIgUhwFUYLCVDFCrKUE1lBavAViFIDlTImbKC5Gm2hB0SlBCBMQiB0UjIQA7)";

**patricktoulon** · 03/02/2016, 13h31

bonjour robert
ok donc je continu
tu a remarqué que l'on peut décider quel bouton dans quel command barre et le nombre de command barre aussi
il va être beau

Invité · 03/02/2016, 13h57

Oui j'ai vue, cool

Code :

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

1
2
3
4
5
ruban.style.border="0";
cmb.style.border="0";
// lui pas besoin!
//cmb.style.backgroundImage = "url(data:image/gif;base64,R0lGODlhEAAQAMQAAORHHOVSKudfOulrSOp3WOyDZu6QdvCchPGolfO0o/XBs/fNwfjZ0frl3/zy7////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAkAABAALAAAAAAQABAAAAVVICSOZGlCQAosJ6mu7fiyZeKqNKToQGDsM8hBADgUXoGAiqhSvp5QAnQKGIgUhwFUYLCVDFCrKUE1lBavAViFIDlTImbKC5Gm2hB0SlBCBMQiB0UjIQA7)";
subruban.style.border="0";

**patricktoulon** · 03/02/2016, 14h18

tu a changé le fond du ruban??? (c'est ton drapeau non?)

Invité · 03/02/2016, 14h22

avoir quelque chose qui flash ça met en évidence!

**patricktoulon** · 03/02/2016, 14h30

oui bon les gouts et les couleurs

en fait il est prévu un changement de classe dynamique pour les div et bouton

le style des classe sera dynamiquement écrit en css3 dans la balises <style> un bouton permettra de changer le style du ribbon

pour le moment j'essai de comprendre l'exploitation de variable tableau pour le paramétrage des boutons

j'essai des tests mais ca fonctionne pas

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
16
17
18
19
20
21
22
23
24
 
<!doctype html>
<html lang="fr">
 <head>
  <meta http-equiv="X-UA-Compatible" content="IE=11" />
                <!-meta charset="UTF-8"-!>
<script type="text/javascript">
function init(){
alert("initialisation");
var bouton[];
bouton['bold']=['bold','22px','22px','blablabla'];
}
function quoi(bout,it){
alert(bout + "---" + it);
/*alert(bouton[bout][it]);*/
}
</script>
</head>
 
<body>
<div><script> init() </script></div>
<button  onclick="quoi('bold',2);">test</button>
</body>
</html>

**patricktoulon** · 04/02/2016, 11h34

Bonjour robert
je ne devrait pas le montrer tout de suite car c'est la version 2.0 du wisiwig dans les contributions

mais je suis bloqué par une réaction du bouton d'insertion div

en effet j'ajoute un div
et si je me déplace dans le document et que je veux en ajouter un autre ca ne fonctionne plus
si tu a une idée je suis preneur

Mais où donc trouver ce satané spreedsheets [Toutes versions]

Macros et VBA Excel

Discussions similaires

Partager

Partager