Discussion :

[Herman]

Rebonjour,

J'ai eu ici même le code pour ajouter des données depuis Access vers Word, grâce au signet (merci Domi2) :

Code :

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

1
2
3
4
5
6
7
 
.Bookmarks("nom").Range.text = Nz(rst("nom"))
.Bookmarks("prénom").Range.text = Nz(rst("prénom"))
.Bookmarks("heure_occurence").Range.text = Nz(rst("heure_occurence"))
.Bookmarks("date_de_naissance").Range.text = Nz(rst("date_de_naissance"))
.Bookmarks("grade").Range.text = Nz(rst("grade"))
.Bookmarks("grade_chef_cis").Range.text = Nz(rst("grade_chef_cis"))

Je voulais maintenant savoir si il était possible d'ajouter des caractéres spéciaux dans Word depuis Access. En gros, je voudrais ajouter un simple petit carré noir dans Word (code caractére spécial : 006E).

Merci d'avance

[Domi2]

Bonjour,

C'est certainement possible.

J'ai essayé avec une macro word pour voir.

Le code généré pour l'insertion du caractère euro est celui-ci.

Code :

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

Selection.InsertSymbol CharacterNumber:=8364, Unicode:=True, Bias:=0

En espérant que cela puisse te mettre sur une piste.

Domi2

[Herman]

Je trouve pas mal de choses là dessus mais qui aboutissent à rien :/

Code :

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

.Bookmarks("statut").Range.text = "??? telle est la question :c ???"

[Herman]

Après 4h de recherche, j'ai enfin trouver mon bonheur Voilà la solution :

Code :

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

ActiveDocument.Bookmarks("statut_civil").Range.InsertSymbol (120)

"Statut_civil est le nom du signet sous Word et "120" est le numéro de code (en décimal) du caractère spécial !

le 120 correspond à une petite croix, je suis tombé par hasard dessus et c'est ce qu'il me fallait C'est pratique pour remplir un formulaire avec case à cocher par exemple

[Herman]

voici une solution encore mieux que la précédente qui buguait une exécution sur deux (erreur d'éxécution 462) :

Code :

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

.Bookmarks("statut_civil").Range.InsertSymbol (120)