Répéter contenu signet après insertion depuis Access

**Doken** · 09/09/2013, 11h52

Bonjour,

Je rencontre aujourd'hui un petit problème. En effet, je devais réussir à importer des données spécifiques depuis un formulaire Access vers un Document Word. Pour cela, j'ai utilisé le système de signets (ce qui m'aura été recommandé après avoir premièrement exploré la piste du publipostage).

Jusque là, pas de problème. En revanche, le problème est que dans un très long document, je répète plusieurs fois les même informations (sexe, nom, prénom etc...) et qu'ici, le système de signets devient redondant (NOM1, NOM2, NOM3 si je veux le répéter plusieurs fois). J'ai de très nombreux documents à traiter et c'est une perte de temps colossale d'avoir à créer autant de signets et par la même mon code VBA sur Access me permettant d'importer les dites données est très lourd...

Après quelques recherches, j'ai vu qu'il existait un système de renvoi, mais dans mon cas cela ne fonctionne pas car suite à l'insertion des données, mes signets sont effacés.

Je vous serais très reconnaissant pour l'aide apportée et vous remercie d'avance.

**Heureux-oli** · 09/09/2013, 15h28

Salut,

Si c'est possible, tu peux utiliser un REFSTYLE qui répète le texte d'un style précis.

il suffit que les données à répéter aient un style propre et le tour est joué.

**Doken** · 09/09/2013, 15h56

Il y a beaucoup de données différentes... Je doute que cette solution convienne :/
J'ai essayé de créer un nouveau signet via le code VBA d'Access après insertion des données, ainsi je pourrais utiliser la fonction "Renvoi" de Word.
Qu'en penses-tu ? Jusque là ça fonctionne. En revanche je rencontre un problème, c'est qu'il fonctionne (littéralement) une fois sur 2 !

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
 Selection.HomeKey Unit:=wdStory
    With Selection.Find
            .ClearFormatting
            .Text = Me.sexe_patient
    End With
    If Selection.Find.Execute Then
    Selection.Select
        ActiveDocument.Bookmarks.Add Name:="SEXE", Range:=Selection.Range
    End If

Et il se répète autant de fois que j'en ai besoin.
Mais à la ligne suivante :

Code :

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

Selection.HomeKey Unit:=wdStory

Il m'affiche une erreur toutes les deux fois que j’exécute mon code complet, l'erreur étant la suivante :
"Le serveur distant n'existe pas ou n'est pas disponible", alors que juste avant ça fonctionnait...

**Heureux-oli** · 10/09/2013, 09h20

Salut,

Je pense que l'utilisation de champs de formulaire devrait te convenir.

Ça fonctionne un peu comme les signets, mais ils ne sont pas détruits lorsqu'une donnée est adressée au champ.

**Doken** · 10/09/2013, 15h13

Merci, ça me semble en effet bien plus simple !
J'ai donc essayé ceci :

Code :

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

wordDoc.Fields(1).Result.Text = Me.sexe_patient

Et ça fonctionne. Du coup, je me demandais s'il était possible d'attribuer manuellement un nombre à un champ au vu de la complexité du document. Car je trouve que Fields(1) n'est pas très précis... A moins qu'il y ait un autre moyen de dénommer un champs en VBA ?

Enfin, lorsque j'essaie d'insérer ma valeur et que j'ai déposé un signet "SEXE" sur mon champ, après exécution du code dans Access, la valeur est insérée non pas dans le champ mais à sa droite. Au final le champ reste donc vide. Voilà à quoi ressemble le champ :
{ SEXE } (SEXE n'étant là que pour une indication visuelle).

Est-ce normal ? Car ensuite, lorsque j'essaie de faire un renvoi depuis ce signet, cela ne fonctionne pas puisqu'au final, mon champ n'a pas été mis à jour :/ Au contraire, après avoir fait F9, le message d'erreur s'affiche à la place du signet :
"Erreur ! Référence non valide pour un signet"

**Heureux-oli** · 10/09/2013, 19h20

Salut,

Oui, on peut utiliser le nom du champ.
Et si pour chaque champ à répéter, tu donnes un nom de style différent, tu peux utiliser REFSTYLE et on peut aussi utiliser le nom du champ qui est considéré comme signet pour y faire référence.

**Doken** · 10/09/2013, 20h19

Je vois... Mais le problème est que mon champ est toujours vide, et que l'insertion se fait à côté :

Du coup même mon REFSTYLE ne fonctionne pas.

Et concrètement, en VBA, comment faire référence au Nom du champ, et surtout COMMENT nommer ce dit champ ?

Merci de m'aider en tout cas, je ne pourrais pas avancer seul...

**Heureux-oli** · 11/09/2013, 13h11

Salut,

Essaie avec Ctrl + A suivi de F9 pour tout mettre à jour.

**Doken** · 11/09/2013, 14h08

Alors, bizarrement (et j'avoue ne pas savoir du tout comment j'ai fais...) maintenant ça se met bien dans le champ et non pas à côté.
Mais le problème, c'est que suite à cela, ma référence ne fonctionne pas alors même que le signet est bien placé. A la place de {REF NOM}, l'erreur "Erreur, signet non défini" apparait. Alors si je fais F9 sur ce seul emplacement, ça fonctionne mais si je le fais sur l'ensemble de mon document (donc Ctrl+A puis F9) à chaque emplacement de mes champs l'erreur "Erreur ! Référence non valide pour un signet" apparait. Du coup, même à l'impression l'erreur se fait...