Exporter le contenu d'une zone de texte vers un doc Word [Résolu]

[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 :

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]

Envoyé par Heureux-oli

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 :

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 :

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]

Envoyé par Heureux-oli

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]

Envoyé par Heureux-oli

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 !

[Serigne-BA]

Je suis sous Access.

[Heureux-oli]

Salut,

C'était tout facile Access.

Je pense qu'il serait plus facile de partir d'Access et de ton formulaire pour injecter les données dans un document Word.

Essaie le copier coller du contenu de ta zone de texte.

Je suppose que ta version d'Access est 2007 ou 2010 !

[Serigne-BA]

Salut,
J'ai essayé avec le copie coller et ça marche !!!

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Doc As Word.Document
Dim objWord As New Word.Application
'Dim rngTemp As Range
objWord.Visible = True
Me.zdtGerenerOffre.SetFocus
Me.zdtGerenerOffre.SelStart = 0
Me.zdtGerenerOffre.SelLength = Len(zdtGerenerOffre.Text)
DoCmd.RunCommand acCmdCopy
Set Doc = objWord.Documents.Add
'Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)
 With objWord.Selection
   .Paste
 End With

Merci à tous et surtout à toi Olivier pour tes orientations !!!