Discussion :

[Freezee10]

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 :

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

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

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

Code :

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

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

Comment faire ?

[Sankasssss]

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...

[Freezee10]

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 :

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

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