Bonjour à tous,

J'utilise des valeurs saisies dans un formulaire pour ensuite lancer Word et mettre les valeurs au bon endroit avec des signets.

Par contre je ne sais pas comment récupérer les valeurs cochées dans une liste multi-valuée, ni comment récupérer le texte mis en forme dans Access en format HTML (actuellement j'enlève le formatage avant d'envoyer le texte vers Word...).

Voici une partie de 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
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
Private Sub CréerRapport_Click()
Dim objWord As Word.Application
Dim doc As Word.Document
Dim strID As String
 
'STR
strID = Forms!Observations!ID
strRef = Forms!Observations![appelation du dossier]
StrSituation = PlainText(Forms!Observations!Situation)
strDistrib = Forms!Observations!Distribution
StrEtat = Forms!Observations!Etat.Column(1)
StrRapp = Format(Forms!Observations![Date_Rapport], "dddd dd.mm.yyyy")
'FIN STR
 
On Error Resume Next
Set objWord = GetObject(, "Word.application")
If Err = 429 Then
Set objWord = New Word.Application
End If
On Error GoTo 0
 
strprojectpath = CurrentProject.Path
 
 
With objWord
 
.Visible = True
Set doc = .Documents.Add((strprojectpath) & "\rapvd_N.docx")
 
End With
 
With doc.Bookmarks
.Item("signID").Range.Text = strID
.Item("signRef").Range.Text = strRef
.Item("signSituation").Range.Text = StrSituation
.Item("signDistrib").Range.Text = strDistrib
.Item("signEtat").Range.Text = StrEtat
.Item("signRapp").Range.Text = StrRapp
 
End With
objWord.Activate
Set rst = Nothing
Set doc = Nothing
Set objWord = Nothing
End Sub
Le champ multi-valué est SignDistrib et le champ mis en forme est SignSituation.

Pour le champ mis en forme ça fonctionne, mais je perd le formatage que je dois refaire manuellment dans Word et pour le champ multi-valué ça bloque ou donne rien ...

Merci de votre aide, sachant que je suis autodidacte, SVP soyez cléments