Discussion :

[SBranchu]

Bonjour,
ma demande va peut-être vous paraitre incongrue mais tant pis je me lance...
J'ai fait une "méga calculette" sous excel avec pas mal de code qui permet de créer avec Word un/des projet(s) puis transformer en contrat.
Ça marche très bien sauf que à peine beta testé que les utilisateurs me demandent de pouvoir intégrer des clauses spécifiques.
Je peux bien évidemment laisser une ou plusieurs cellules de libre mais :

1- j'ai des niveaux très différents (certains ne savent pas faire un retour à la ligne dans une cellule même en l'ayant dit 25 fois
2- C'est compliqué je n'ai pas réussi à mettre dans une variable les spécificités (Gras / Italique / couleur etc) pour l'intégrer dans word ensuite
3 - il faut que tout cela reste dans Excel pour pouvoir travailler modifier le devis

Idéalement j'imaginais une fenêtre popup qui ferait sortir un mini éditeur de texte mais au moins un moyen de conserver cette mise en forme, transformer en HTML ou autre pour le l'intégrer "facilement" dans Word, mais ça dépasse mes compétences...
Quelqu'un a déjà fait ou aurait une idée ?
Bon week,
SB

[Thumb down]

Bonjour,

sortir un mini éditeur de texte mais au moins un moyen de conserver cette mise en forme, transformer en HTML ou autre pour le l'intégrer "facilement" dans Word, mais ça dépasse mes compétences...

Regards dans les contributions de Patrick Toulon tu trouveras un Wisiwig !

[SBranchu]

Regards dans les contributions de Patrick Toulon tu trouveras un Wisiwig !

Merci, t'aurais pas le lien par zazard, je ne trouve pas...
Bon week,
SB

[Thumb down]

Merci, t'aurais pas le lien par zazard, je ne trouve pas...
Bon week,
SB

https://www.developpez.net/forums/d1...m/#post8559839

[SBranchu]

https://www.developpez.net/forums/d1...m/#post8559839

Merci !
Hyper balaise comme truc

[SBranchu]

Bonjour,

Regards dans les contributions de Patrick Toulon tu trouveras un Wisiwig !

En fait dans les différentes réponses de Patrick Toulon, j'ai trouvé ça qui semble mieux me convenir :

Code :

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

1
2
3
4
5
6
7
Function test(c As Range)
    codexml = Replace(Replace(c.Value(xlRangeValueXMLSpreadsheet), "html:", ""), "ss:", "")
    With CreateObject("htmlfile")
        .body.innerhtml = Replace(Replace(codexml, "<Data", "<pre  id =xx"), "Data>", "pre>")
        test = .getelementbyid("xx").innerhtml
    End With
End Function

Très honnêtement, je n'y comprends pas grand chose...

1 : Est-il possible de récupérer ce même type de Code d'une zone de texte ?
2 : Maintenant que j'ai ce qui ressemble à du code HTML, je voudrais l'intégrer dans Word bien évidemment avec les mises en formes... ou dois-je aller sur le forum Word ?

Merci de l'aide,
SB

[Thumb down]

Edite:

Dans le formulaire tu peux modifier le code d'enregistrement du Wisiwig!

Code :

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

1
2
3
Private Sub enregistrer_Click()
GestionWeb WebBrowser1
End Sub

Dans un module standard!

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub GestionWeb(iE As Object)
Dim Wd As Object: Set Wd = CreateObject("Word.application"): Wd.Visible = True
Dim DC As Object: Set DC = Wd.documents.Add(Template:="Normal", NewTemplate:=False, DocumentType:=0)
Const OLECMDID_SELECTALL = 17
Const OLECMDEXECOPT_DODEFAULT = 0
Const OLECMDID_COPY = 12
iE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT 'Sélectionne tous
iE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT 'Copie
DC.Application.Selection.PasteAndFormat 0
End Sub

[SBranchu]

Re,
un peu compliqué pour moi...
Je vais rester sur l'idée d'une zone de texte ou si je trouve pas d'une cellule...
Merci, je vous tiens au jus si je sors quelque chose..
Bon dimanche,
SB