Discussion :

[Doken]

Bonjour,

J'essaie tant bien que mal de envoyer mes valeurs dans un document word depuis un formulaire Access, mais peu importe comment je m'y prends, mon document Word ne reçoit que les valeurs correspondants aux signets "PRENOM" et "VILLE" ! Je ne comprends vraiment pas d'où peut venir le problème...

Voici 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 WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = New Word.Application
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("C:\Users\Grégory\Desktop\GESTION\documents\convocation_simple_template.docx")
 
    WordDoc.Bookmarks("SEXE").Range.Text = Me.sexe_patient
    WordDoc.Bookmarks("NOM").Range.Text = Me.nom_patient
    WordDoc.Bookmarks("PRENOM").Range.Text = Me.prenom_patient
    WordDoc.Bookmarks("ADRESSE1").Range.Text = Me.adresse1_patient
    If Me.adresse2_patient <> "" Then
    WordDoc.Bookmarks("ADRESSE2").Range.Text = Me.adresse2_patient
    Else: WordDoc.Bookmarks("ADRESSE2").Range.Text = ""
    End If
    WordDoc.Bookmarks("CODE_POSTAL").Range.Text = Me.code_postal_patient
    WordDoc.Bookmarks("VILLE").Range.Text = Me.ville_patient

Et j'ai bien vérifié, tous mes signets sont bien écrits !
Je vous remercie sincèrement d'avance pour votre aide car je suis totalement bloqué dans mon travail...

[helas]

Bonjour,
Tester sous 2010, ce code fonctionne parfaitement, il devrait en être de même sous 2013
Tester en ne mettant que le premier champ et tester les autres champs un à un, glisser un DoEvents entre chaque ligne, il semble que la liaison soit lente et que Word n'ait pas le temps de saisir toutes les informations qui lui parviennent