Discussion :

[YANN-56]

Bonjour à tous ou Bonsoir suivant l'heure,

Je commande via un USF Excel la rédaction dans un document Word.
Dans ce dernier, j'ai créé manuellement des onglets (ADD1, ADD2, Et c...)

Je parviens bien à écrire, mais l'ordre relatif à la police n'est pas appliqué.

Voici la partie du code vba concernée.

Code :

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

1
2
3
4
5
6
7
8
With DOCUMENT_TYPE
SON_NOM = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
.Bookmarks("ADD" & 1).Range.Text = "Madame et Monsieur " & SON_NOM
.Bookmarks("ADD" & 1).Range.Bold = True
.Bookmarks("ADD" & 1).Range.Font.Size = 8
.Bookmarks("ADD" & 2).Range.Text = "Ligne 1 d'adrese  de " & SON_NOM
' Et c....
End With

D'autant que dans le doc Word, je n'ai pas trouvé la possibilité de prédéfinir la police des onglets.
Sauf de le faire sur toute la ligne, mais cela ne convient pas trop aux besoins.

Merci par avance de bien vouloir m'aiguiller, car je ne comprends pas

[Heureux-oli]

Salut,

Tu dois modifier les paramètres relatifs à la mise en forme du texte avant d'appliquer le texte.
Si tu le fais après, seul le texte ajouté par la suite aura les bons paramètres.

[YANN-56]

Merci Heureux-oli d’avoir regardé et pris la peine de me répondre,

Je vais rectifier le tir, et je te tiens au courant, dans tous les cas.

A noter que je n’ai pas été avisé de ta réponse par mail. Ceci expliquant mon retard.

Je n'avais pas vu l'option dans Abonnement.

[YANN-56]

Désolé Heureux-oli

J’ai rectifié ainsi, mais cela n’a aucun effet.

(A noter que la petite taille et le gras seraient bien remarquables)

Code :

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

1
2
3
.Bookmarks("ADD" & 1).Range.Bold = True
.Bookmarks("ADD" & 1).Range.Font.Size = 8
.Bookmarks("ADD" & 1).Range.Text = "Madame et Monsieur " & SON_NOM

Ne t’aurais-je pas bien compris ?

[Heureux-oli]

Salut,

Il faut que ton signet ne soit pas un point d'insertion, mais il doit contenir quelque chose pour que ça fonctionne.
Un espace suffit.

[YANN-56]

Bonsoir Heureux-oli , ou Bonjour suivant l’heure, et à ceux qui passeront par là.

A nouveau Merci pour ton aide, mais il doit y avoir une particularité qui coince, ou je alors suis sot.

Comme le résultat n’est pas là, je joins un Dossier permettant de faire un test.
http://www.cjoint.com/c/FFvmTunCp4J

Ou voir en PJ

Le Classeur, la Matrice (Document avec entête) et le Document type devront être dans un même répertoire.
IMPORTANT : Surtout, ne pas enregistrer pas la modification de la Matrice lors des essais.

1) Je ne parviens donc pas à commander la police de caractère dans les signets.
(Je pourrais évidemment le faire manuellement, mais cela ne convient pas totalement aux besoins de l’utilisatrice (Ma fille)

2) De la même façon, mes tentatives de venir coller le contenu du doc TEXTE_TYPE dans le signet « ADD6 » prévu à cet effet ont échoué.

Cependant, il m’est impératif d’avancer très vite dans ce projet.
Elle monte son cabinet de Family Office, et n’a pas encore les moyens d’embaucher une secrétaire.

Merci par avance à qui saura me donner un coup de main via un exemple de procédure,
car pour ce qui est de liens Web, j’en ai une caisse (Mais pour l’instant, des usines à gaz inexploitables et surtout à côté de la plaque)

Heureux-oli je compte notamment sur toi, mon seul interlocuteur jusqu’à présent.

Yves