Lire signets WORD depuis EXCEL

[nico75]

Bonjour,

J'utilise OFFICE 2007.
J'ai un document WORD avec des signets :

Code :

1
2
3
4
5
Ici le champ1 : signet1
Ici le champ2 : signet2
Ici le champ3 : signet3
Ici le champ4 : signet4
Ici le champ5 : signet5

En affichant les signets dans les options, j'ai bien les mots signet1 à signet5 qui sont affichés entre crochets.
J'ai nommé mes signets s1, s2, ... s5.

J'accède à ces champs depuis une macro VBA sous EXCEL.
Mon but est de remplacer ces signets par des données d'EXCEL :

Code :

1
2
3
4
5
6
7
    Set wdApp = New Word.Application
    Set oDoc = wdApp.Documents.Open(strCheminDestination & strNomProjet & ".doc")
    oDoc.Bookmarks(1).Range.Text = xlSh.Cells(2, 1)
    oDoc.Bookmarks(2).Range.Text = xlSh.Cells(2, 2)
    oDoc.Bookmarks(3).Range.Text = xlSh.Cells(2, 3)
    oDoc.Bookmarks(4).Range.Text = xlSh.Cells(2, 4)
    oDoc.Bookmarks(5).Range.Text = xlSh.Cells(2, 5)

Le problème est que l'accès aux Bookmarks 3, 4 et 5 provoque une erreur 5941: le membre de la collection requis n'existe pas.

L'instruction

Code :

oDoc.Bookmarks("s1").Range.Text

renvoie la même erreur.

Seule

Code :

oDoc.Bookmarks("s2").Range.Text

renvoie la bonne valeur.

Et l'instruction

Code :

oDoc.Bookmarks.Count

renvoie 1 seulement.

Une idée ?
Merci

[nico75]

Un collègue vient de me filer la réponse :

Code :

1
2
3
4
5
6
7
    Set wdApp = New Word.Application
    Set oDoc = wdApp.Documents.Open(strCheminDestination & strNomProjet & ".doc")
    oDoc.Bookmarks(1).Range.Text = xlSh.Cells(2, 1)
    oDoc.Bookmarks(1).Range.Text = xlSh.Cells(2, 2)
    oDoc.Bookmarks(1).Range.Text = xlSh.Cells(2, 3)
    oDoc.Bookmarks(1).Range.Text = xlSh.Cells(2, 4)
    oDoc.Bookmarks(1).Range.Text = xlSh.Cells(2, 5)

Quand on écrit sur un signet, celui-ci est "bouffé" par la valeur et donc n'existe plus.
L'indice du signet suivant est donc 1 et non pas 2.

[nico75]

J'ai de nouveau un soucis (et cette fois, le collègue ne sait pas ) :

Une fois le signet remplacé par sa valeur, celui-ci n'existe plus.
Or je vais avoir besoin d'y accéder de nouveau.

J'ai essayé d'utiliser :

Code :

oDoc.Bookmarks.Add ("s1")

mais ça ne marche pas :-(

[Sepia]

Salut,

Word supprime en effet le signet lorsque tu lui donnes une valeur par macro car c'est exactement ce que tu lui demandes, trouves-moi mon signet et écris le texte "...". Pour ne pas le supprimer et lui donner une valeur, tu dois utiliser "Range"

@+

[Heureux-oli]

Salut,

Je vais apporter une précision.
Si ton signet contient du texte, il est effectivement supprimé lorsque l'on insère une valeur sur le signet.

si le signet est juste un emplacement et qu'il ne contient pas de texte, il subsiste.

Jette un oeil ici si tu veux garder du texte dans tes signets.
http://www.developpez.net/forums/sho...d.php?t=483824

[Sepia]

Salut,

Oui bonne remarque de Heureux-Oli, (comme d'habitude), elle ^peut avoir son importance selon le contexte de ta macro

@+ (et excuse d'avoir oublier ce point )