[VBA-E] Signets Word !

Bonjour,

je dispose d'un fichier Excel qui me réalise un certain nombre de calculs.

En fait je souhaiterai ouvrir un fichier Word et insérer à des emplacements précis (des signets je crois ?) certaines valeurs de cellules.

Mais je ne sais pas comment faire ?

Si quelqu'un a la réponse

merci d'avance

Pour insérer un signet, tu te places au bon endroit et tu fais

Code:

---

1 2 3 4

With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="Signet1" .DefaultSorting = wdSortByName End With

---

Pour l'atteindre :

Code:

---

Selection.GoTo What:=wdGoToBookmark, Name:="Signet1"

---

Et pour écrire

Code:

---

Selection.TypeText Text:="sat478"

---

Attention, ce que tu écris ne sera pas dans le signet. Pour qu'il s'y trouve, tu dois sélectionner ce que tu as inséré et redéfinir le signet.

A+

Edit
J'ai fait ça en enregistrant la macro :wink: