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 :
Le champ multi-valué est SignDistrib et le champ mis en forme est SignSituation.
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
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![]()
Partager