Bonjour à tous.
Mon problème est le suivant :
j'ai une base de données Access dans laquelle se trouve un formulaire "frmH".
Dans ce formulaire j'ai mis bouton qui permet de transférer mes champs textes dans des signets de Word et qui permet également d'activer des cases à cocher dans Word.
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77 Private Sub BtnOuvertureFiche_Click() 'on error goto err_formInsert() 'déclaration des variables stockant les données du formulaire Dim wdapp As New Word.Application Dim Numéro As Variant Dim DtOuv As Variant Dim Auteur As Variant Dim Résumé As Variant Dim DtIncident As Variant Dim Lieu As Variant Dim Provenance As Variant Dim Référence As Variant 'affectation de données Numéro = Me![dwId] DtOuv = Me![dtOuverture] Auteur = Me![szAuteur] Résumé = Me![szRésumé] DtIncident = Me![dtdépassement/prélèvement] Lieu = Me![szLieu] Provenance = Me![szProvenance résultats] Référence = Me![szRéféchantillon] 'Démarrer Word Set wdapp = New Word.Application 'on ouvre le document 'et on renseigne les champs textes du formulaire word With wdapp .Documents.Add "...Fiche type.dot" .ActiveDocument.Bookmarks("dwID").Select .Selection.Text = " H " & Numéro .ActiveDocument.Bookmarks("dtOuverture").Select .Selection.Text = DtOuv & " " .ActiveDocument.Bookmarks("szAuteur").Select .Selection.Text = Auteur & " " .ActiveDocument.Bookmarks("szRésumé").Select .Selection.Text = Résumé & " " .ActiveDocument.Bookmarks("Processus").Select .Selection.Text = " H. ..." .ActiveDocument.Bookmarks("dtDateIncident").Select .Selection.Text = DtIncident & " " .ActiveDocument.Bookmarks("szlieu").Select .Selection.Text = Lieu & " " .ActiveDocument.Bookmarks("szprovenance").Select .Selection.Text = Provenance & " " .ActiveDocument.Bookmarks("szréférence").Select .Selection.Text = Référence & " " End With 'On renseigne ensuite les case à cocher If Me![onReclamationClt] = -1 Then wdapp.ActiveDocument.FormFields("OnRC").CheckBox.Value = True End If If Me![ondépassement] = -1 Then wdapp.ActiveDocument.FormFields("ondépassement").CheckBox.Value = True End If wdapp.Visible = True ' je ferme l'application 'wdapp.Application.Quit SaveChanges:=wdDoNotSaveChanges ' et j'avertis l'utilisateur que le fichier word est crée 'MsgBox "Le fichier WORD est crée !" Set wdapp = Nothing End Sub
Mais dans ce formulaire il y a un sous-formulaire de type feuille de données et je voudrais transférer les enregistrements de ce sous-formulaire dans un tableau dans Word.
Quelqu'un peut-il m'aider ?
Merci d'avance.
Partager