Discussion :

[davido84]

Ok Patrick apparemment c'est bon pour l'enregistrement et l'impression.

Comme idée de développement tu pourrais peut-être donner la possibilité d'ouvrir dans ton éditeur un fichier que tu aurais déjà enregistré afin de le lire et le cas échéant le modifier.

Sinon tu as quoi en tête concernant la fonctionnalité Mail ? Le fait de pouvoir écrire et formater un texte dans la fenêtre "éditeur" puis d'afficher directement ce contenu dans un mail ? Le fait d'envoyer le contenu de la fenêtre éditeur en PJ ?

A+

[patricktoulon]

oui c'est une idée puisque j'ai déjà l'enregistrement en html se sera facile d'ajouter un bouton puis open for ouput as ....... en vba

après pour le mail non !!

le innerhtml de id editeur sera le cops du texte du mail dans CDO j'ai déjà tout dans le mien les images étant en bases 64 il n'y a pas de upload

pour le moment je cherche le meilleur compromis en vbs/javascript pour le mail

[davido84]

Tu pourrais également prévoir l'insertion d'un tableau.
Une idée sans prétention qui demande à être creusée si cela t'intéresse (à placer dans un label) :

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
Dim T As String, nbLig As Long, nbCol As Byte
Dim nbtable As Long, sTemps As String, sIhtmlTemp As String
Dim P As Variant, Param As String
 
Param = InputBox("2;2;100", "indiquer le nombre de ligne, de colonne, la taille du tableau")'remplacer l'inputbox par un usf si l'on veut avoir plus d'options et des listes de choix
 
If Param = vbNullString Then Exit Sub
 
P = Split(Param, ";")
 
With WebBrowser1
  .Document.getElementByid("editeur").Focus
  nbtable = .Document.getElementByid("editeur").getElementsByTagName("TABLE").Length + 1
 
  'chaîne à coller pour repérer l'endroit du curseur et pouvoir par la suite remplacer cette chaîne par celle définissant la table
  sTemps = "|#table#t" & nbtable & "|"
 
  'construction de la table
  T = "<table border='1' style='width:" & P(2) & "%'>"
 
  For nbLig = 1 To P(0)
    T = T & "<tr>"
    For nbCol = 1 To P(1)
      T = T & "<td></td>"
    Next nbCol
    T = T & "</tr>"
  Next nbLig
 
  T = T & "</table><br>"
 
  'on colle sTemps
  CreateObject("WScript.Shell").SendKeys sTemps
  DoEvents 'à modifier si cela ne suffit pas
 
  sIhtmlTemp = .Document.getElementByid("editeur").innerhtml
 
  'on remplace cette chaîne par celle définissant la table
  .Document.getElementByid("editeur").innerhtml = Replace(sIhtmlTemp, sTemps, T, 1, 1)
End With

Je ne doute pas que tu trouveras quelque chose de plus académique pour insérer le tableau à l'endroit du curseur mais c'est juste une idée.

A+

[patricktoulon]

Bonjour Davido

oui j'y ai pensé déjà mais la fonction sera en javascript

j'y travaille déjà depuis un mois mais mon projet est plus ambitieux

je veux une table avec les cellules resizable dynamiquement et j'intègre des formules simples dynamiquement aussi