[VB.net] Signets Excel <=> Word

Bonjour,

Je me tourne vers vous dans le but de savoir comment transférer une donnée extraite d'un classeur Excel vers un signet d'un document Word.

J'ai fait ce traitement mais cela ajoute à l'emplacement du signet la nouvelle valeur au lieu de remplacer "l'ancienne".

Code:

---

monDoc.Bookmarks("annee").Range.Text = TextBoxAnnee.Text

---

J'ai essayé ceci mais ça ne marche pas non plus.

Code:

---

1 2 3

place = monDoc.Bookmarks("annee").Range.Start monDoc.Bookmarks("annee").Range.Text = TextBoxAnnee.Text monDoc.Bookmarks("ville").Add("annee")

---

Comment faire ? :)

Bonsoir,
es-tu sur que ton signet est placé sur tout le mot et non uniquement devant?
Pour faire un signet qui remplace un mot, il faut sélectionner le mot puis créé le signet...
Si je pense que tu es dans ce cas c'est parce que le code que tu utilise est bon et devrait remplacer le texte si il est créé comme dit plus haut...

Merci de ta réponse.

Au final j'ai changer de méthode en utilisant des champs de saisies plutôt que des signets dans Word.

Ce qui donne la procédure suivante :

Code:

---

1 2 3 4 5 6 7 8

Public Sub ModifChamp(ByVal nomchamp As String, ByVal texte As String) 'atteind le champ 'nomchamp' et remplace le texte par 'texte' Dim field As Object On Error GoTo rien field = nomchamp monDoc.FormFields.Item(field).Result = texte rien: End Sub

---