Discussion :

[Serigne-BA]

Bonjour à tous,
dans le cadre de mon appli que je dois développer, j'ai besoin d'exporté le contenu d'une zone de texte vers un document Word à l'aide d'un bouton.
Avec le code qui suit, j'arrive à exporter le contenu de ma zone de texte mais le format du texte n'est pas respecté, au lieu de m'exporter le texte enrichi que j'avais, il me génére le texte en brut avec des balises.
Est ce que quelqu'un peut corriger mon code!!!

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
Dim objWord As Word.Application
Dim Doc As Word.Document
Dim bolOpenedWord As Boolean
Dim Rs As DAO.Recordset
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Err.Number = 429 Then
    Set objWord = CreateObject("Word.Application")
    bolOpenedWord = True
End If
On Error GoTo 0
objWord.Visible = True
Set Doc = objWord.Documents.Add
With objWord.Selection
    .TypeParagraph
    .TypeText Forms!FRM_ConstruireOffre!zdtGerenerOffre
End With

Exemple de texte généré:
<div>&nbsp;</div>

<div><font face="Times New Roman" size=3 color=black>Les non-résidents du Royaume Uni &nbsp;peuvent participer à condition de respecter la législation locale en vigueur. Toute instruction de participation sera considérée comme respectant cette condition </font></div>

<div><font face="Times New Roman" size=3 color=black>OU </font></div>

Merci d'avance !

[Heureux-oli]

Salut,

C'est un peu avancer dans le noir avec le peu que tu nous donnes.

On part de quoi ?

Pourquoi un recordset ?

Pourquoi ne pas utiliser l' Earlybinding ?

[Serigne-BA]

Salut,
C'est un peu avancer dans le noir avec le peu que tu nous donnes.
On part de quoi ?

Je suis en train de développer une application permettant de gérer des offres.
Là suis dans le module qui doit me permettre de générer une offre selon la nature d’offre choisie.
Dans un formulaire «FRM_ConstruireOffre » j’ai une zone de liste qui me permet de choisir une « Nature d’offre » et selon la nature sélectionnée l’appli me propose, dans une autre zone de liste, la liste des paragraphes de texte en rapport avec cette nature.
Ensuite, quand je clique sur le nom d’un paragraphe donné, il m’affiche son contenu dans une zone de texte « zdtGerenerOffre » et après avoir fini de sélectionner les paragraphes qui m’intéressent, je souhaiterais générer cette offre (c’est-à-dire le contenu de zdtGerenerOffre) vers un document Word.
PS : le texte contenu dans les paragraphes est un texte enrichi (peut contenir des couleurs, gras, soulignements…)

Code Heureux-oli;6245979 :

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

Pourquoi un recordset ?

Le recordset je l’avais déclaré en pensant que j’en aurai besoin mais en réalité je ne l’ai même pas utilisé.

Code Heureux-oli;6245979 :

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

Pourquoi ne pas utiliser l' Earlybinding

Pour le Earlybinding j’ignorais son existence, je rappelle que je suis débutant en VBA.


Merci Olivier je t'enverrai un MP pour te dire que tu es beau !!!

[Serigne-BA]

Salut,

Pourquoi ne pas utiliser l' Earlybinding ?

j'ai utilisé l' Earlybinding en jettant un coup d'oeil ici mais ça change rien même si c'est plus simple.

[Heureux-oli]

Salut,

C'est quoi l'appli de départ ?

[Serigne-BA]

Salut,

C'est quoi l'appli de départ ?

Salut,
Désolé je n’ai pas bien saisi ta question.
Tu veux dire le mot ‘appli’ que j’ai utilisé lors de mon 1er post ?
oubien tu veux dire mon application de base ?

[Heureux-oli]

Salut,

Oui !