Discussion :

[yanacrux]

Bonjour,

Je dispose de plusieurs tables dont patients et visites qui sont liées (plusieurs visite pour chaque patient à différentes dates), avec lesquelles je souhaitaient récupérer les données pour les extraire dans Word et ainsi imprimer une "Fiche" pour chaque patient.
J'ai utilisé ce code trouvé ici (merci au passage) pour la partie du formulaire patient, et cela fonctionne très bien :

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
Private Sub Commande67_Click()
 
    'En cas d'erreur, on n'en tient pas compte
    On Error Resume Next
 
    'Déclaration d'une instance Word
    Dim W_App As New Word.Application
 
    'Instance Word
    With W_App
 
        'Word est visible à l'écran ou non
        .Visible = True
 
        'Ouvre le document Word avec les signets
        .Documents.Open ("C:\..\Formulaire.doc")
 
        'Tranfert du nom : strNom ==> Signet Nom
        .ActiveDocument.Bookmarks("Nom").Select
        .Selection.Text = Me.nom
 
         'Tranfert du nom :
        .ActiveDocument.Bookmarks("Prenom").Select
        .Selection.Text = Me.prenom
 
        'Tranfert du date :
        .ActiveDocument.Bookmarks("Date_n").Select
        .Selection.Text = Me.date_naissance
 
        'Tranfert du code_ss :
        .ActiveDocument.Bookmarks("Code_ss").Select
        .Selection.Text = Me.code_ss
 
        'Tranfert adresse :
        .ActiveDocument.Bookmarks("Adresse").Select
        .Selection.Text = Me.adresse
 
        'Tranfert ville :
        .ActiveDocument.Bookmarks("Ville").Select
        .Selection.Text = Me.ville
 
        'Tranfert date_v :
        .ActiveDocument.Bookmarks("Date_v").Select
        .Selection.Text = Reports.patient.date_v
 
        'Tranfert date_v :
        .ActiveDocument.Bookmarks("Acte").Select
        .Selection.Text = Reports.patient.acte
 
        'Sauvegarde du nouveau document
        .ActiveDocument.SaveAs ("C:\..\MaBase\doc\" & Me.nom & "_" & Me.prenom & ".doc")
 
        'Fermeture de Word
        .Quit
 
    End With
 
    'Libération de l'objet Word
    Set W_App = Nothing
 
End Sub

Je coince vraiment sur la partie du SOUS formulaire "VISITE" avec les champ Date_v et Code pour lesquels j'ai créé un Etat mais je ne récupère qu'une seule valeur !
Comment pourrais je récupérer toutes les données relatives au sous formulaire VISITE ? Est ce qu'il y a la possibilité de faire une boucle pour le sous formulaire ?

Merci pour votre aide !

[Jeannot45]

Pourquoi exporter dans Word alors qu'un état peut te permettre d'imprimer directement les données.
Ton sous état est-il lié à l'état principal par les champs Père/Fils ?

[ClaudeLELOUP]

Bonjour,

Qu'as-tu comme signets dans ton .doc pour accueillir les données du sous-formulaire ? Dont le nombre de paires Date/Code est variable d'un patient à l'autre ?

[yanacrux]

Bonjour,
Je souhaite passer par Word parce que je trouvais plus pratique pour imprimer sur des fiches pré imprimées.
J'ai effectivement disposer des signets pour le formulaire patient et j'aimerais disposer les champs du sous formulaire dans un petit tableau (date- visite-commentaire), le nombre de date-visite est effectivement variable d'un patient à l'autre.
Merci pour votre aide.

[ClaudeLELOUP]

OK, j'entends bien pour les champs du formulaire, mais qu'as-tu prévu dans le .doc pour accueillir les lignes relatives aux visites ?
Je suppose que le sous-formulaire dont tu parles est un « fils » de ton principal, avec un enregistrement par visite de ce patient.
Une piste peut-être : une série de paires de signets date/code numérotées de 1 à un nombre maximum raisonnable (les 5 ou 10 dernières par exemple) et dans le code, constituer un recordset avec la source du sous-formulaire pour lire 1 à 1 les enregistrements du sous-formulaire et garnir les signets ad hoc.

[yanacrux]

Je suppose que le sous-formulaire dont tu parles est un « fils » de ton principal, avec un enregistrement par visite de ce patient.

C'est tout à fait ça !

une série de paires de signets date/code numérotées de 1 à un nombre maximum raisonnable

J'envisageais de stocker les données dans un petit tableau inséré dans Word avec 2-3 colonnes (date, code, commentaire)!
Comment affecter les données depuis VBA vers une série de signet numérotés ?
Merci pour cette piste !

[ClaudeLELOUP]

Bonjour,

Sans doute une meilleure piste !

Regarde ce tutoriel : http://claudeleloup.developpez.com/t...cuments-types/ et vois comment on a procédé pour les antécédents du malade.

Ils sont logés dans une zone de texte et séparés par un saut à la ligne. L’ensemble est envoyé vers un seul signet dans le .doc. => l’espace occupé dans le document final s’adapte donc automatiquement.

Pour utiliser la même stratégie dans ton cas, il « suffirait » de construire une chaîne de caractères
- composée des enregistrements du fils,
- séparés par un saut de ligne
- et d’affecter le résultat au signet.

Le code ressemblerait à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 Dim rst As Recordset
 Dim sVisites As String
 Set rst = Me.CtnrDuSF.Form.RecordsetClone
 rst.MoveFirst
 Do Until rst.EOF
   sVisites = sVisites & rst(0) & "-" & rst(1) & vbLf
   rst.MoveNext
 Loop
   'Alimenter le signet avec sVisites

J’utilise Access2000, pourrais-tu poster un échantillon de ta base dans cette version (avec des données anonymes) pour baser mes tests sur un exemple concret ?

[yanacrux]

Merci, j'ai un peu de temps , je vais me pencher sur cette solution !

[yanacrux]

Je vous joins la structure de ma base pour que cela soit plus clair, moi même je me perd étant novice :


En fait, je souhaiterais extraire (vers Word) les données de VISITE qui dépend de GROSSESSE qui dépend elle-même de PATIENT !
Est ce possible d’exporter la liste de VISITE avec la date, l'acte et si possible de faire la SOMME des ACTE associé aux VISITE pour chaque GROSSESSE ?

Ça me parait bien compliqué ? Merci

[ClaudeLELOUP]

Bonjour,

Quand tu demandes si c'est possible, la réponse est certainement : « Oui ». Encore faut-il voir comment accoucher d'un tel outil !

Peux-tu poster un échantillon de ta db avec des données anonymes et en version compatible Access2000. Cela nous permettra de discuter sur du concret.

[yanacrux]

bonjour,

J'ai revu ma copie et je vais abandonner les fiches pré-imprimées par Word !
Je vais essayer d'utiliser la fonction "ETAT" d'Access pour sortir mes fiches patientes.
Comment dois je faire pour sortir l’état correspondant au sous formulaire pour une patiente donnée ?
merci encore pour votre aide précieuse,

[Jeannot45]

Comment dois je faire pour sortir l’état correspondant au sous formulaire pour une patiente donnée ?

Tu utilises un sous état. Il fonctionne de la même façon que le sous formulaire avec un champ Père/Fils

Bonne continuation

[yanacrux]

Merci, je regarde de ce côté là !