Discussion :

[Bloodkry]

Bonjour,

je cherche à modifier un signet qui se trouve dans l'en-tête d'un Word, avec une macro sur Excel 2016.
Le problème c'est que le signet disparaît après la modification et quand je cherche à le conserver il se met uniquement dans le corps de texte.

Voici la partie du code qui sert à faire la modification actuellement :

Code :

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

1
2
3
4
5
6
7
8
9
WordApp = CreateObject("word.application") 'ouvre session word
Set WordDoc = WordApp.Documents.Open("G:\Wheelabrator\template " & Worksheets("CurrentForm").Range("D1").Value & " wheelabrator.docm") 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation
 
Debut = WordDoc.Bookmarks("Signet4").Range.Start
WordDoc.Bookmarks("Signet4").Range.Text = Worksheets("CurrentForm").Range("K1").Value
WordDoc.Bookmarks.Add Range:=WordDoc.Range(Debut, Debut + Len(Worksheets("CurrentForm").Range("K1").Value)), Name:="Signet4"
 
WordApp.Visible = True 'affiche le document Word

Pouvez-vous m'aider?

[Menhir]

A priori, la ligne 6 suffit à modifier le signet.
Je ne comprends pas ce que tu essayes de faire avec les lignes 5 et 7...

[Bloodkry]

A priori, la ligne 6 suffit à modifier le signet.

La ligne 6 modifie et supprime le signet

Je ne comprends pas ce que tu essayes de faire avec les lignes 5 et 7...

la ligne 7 permet de recréer un signet et la ligne 5 de données le début du signet

[Menhir]

La ligne 6 modifie et supprime le signet

J'ai plusieurs fois utilisé des codes de ce type sans que ça supprime le Signet.
Ca modifie juste le contenu.

Par contre, essayer de créer un signet portant le même nom qu'un signet existant, c'est sûr que ça va mettre la grouille dans ton document.
D'autant plus que Start (donc ta variable Debut) ne donne pas la position du signet de façon absolue dans le document mais la position en nombre de caractères dans son chapitre.
Donc ton Add place le signet un peu n'importe où (en fonction du code qui précède), raison pour laquelle tu le retrouves dans le corps de texte.

Sans compter qu'il est un peu étrange de créer un signet APRES l'avoir renseigné. C'est mettre la charrue avant les bœufs.

Donc, selon moi, si ton signet est correctement définit avant de lancer la macro, la ligne 6 du code suffit et les lignes 5 et 7 sont inutiles.

Mais comme je travaille sur un document avec déjà un code VBA existant, j'aimerais éviter de rajouter plus que nécessaire.
De ce fait, je cherche juste à rajouter la création du signet et comme je l'ai dit dans mon premier message, le problème vient de cette création qui ce fait dans le corps de texte.

Il va falloir que tu sois plus clair : est-ce que le signet est placé avant de lancer la macro ou est-ce à la macro de le créer ?

[Bloodkry]

J'ai plusieurs fois utilisé des codes de ce type sans que ça supprime le Signet.
Ca modifie juste le contenu.

Donc, selon moi, si ton signet est correctement définit avant de lancer la macro, la ligne 6 du code suffit et les lignes 5 et 7 sont inutiles.

Alors là c'est bizarre car à chaque fois que je lance cette macro, tous les signets ont disparu.

D'autant plus que Start (donc ta variable Debut) ne donne pas la position du signet de façon absolue dans le document mais la position en nombre de caractères dans son chapitre.
Donc ton Add place le signet un peu n'importe où (en fonction du code qui précède), raison pour laquelle tu le retrouves dans le corps de texte.

C'est ce que cherche à résoudre

Il va falloir que tu sois plus clair : est-ce que le signet est placé avant de lancer la macro ou est-ce à la macro de le créer ?

Le signet existe avant le lancement de la macro mais plus après. Et cela le fait sur tous les ordinateurs où j'ai essayé.

[Menhir]

Le signet existe avant le lancement de la macro mais plus après.

Dans ce cas, il ne sert à rien de le recréer avec ta ligne 7.
D'autant plus que créer le signer après l'avoir renseigné, c'est complètement illogique.

Donc commence par supprimer tes lignes 5 et 7.

Il y a autre chose qui dérange dans ton code, c'est que tu n'indiques pas à quel classeur (Workbook) appartient la Worksheet.
Dans un cas classique de travail sur un seul fichier, ça peut être acceptable. Mais ton code change de fichier et même d'application par défaut. Il serait donc utile que tu mettes les références complètes.
Au pire, en début de code tu places la référence de ta Worksheet dans une variable de type Worksheet pour ne pas la perdre.

Alors là c'est bizarre car à chaque fois que je lance cette macro, tous les signets ont disparu.

Je le répète : étant donné que ta macro essaye de recréer des signets avec les noms de signets existants, il est normal que ça crée des problèmes.

Sans voir ce qui précède et ce qui suit dans ta macro, impossible de savoir si le problème vient bien des lignes de code que tu présentes.

[Philippe Tulliez]

Bonjour,

je cherche à modifier un signet qui se trouve dans l'en-tête d'un Word, avec une macro sur Excel 2016.
Le problème c'est que le signet disparaît après la modification et quand je cherche à le conserver il se met uniquement dans le corps de texte.

Un signet qu'il soit dans un corps de texte, en en-tête ou en pied de page se traite de la même manière.

Voir une une procédure proposée dans cette discussion titrée copie tableau excel vers un document word

[Bloodkry]

Un signet qu'il soit dans un corps de texte, en en-tête ou en pied de page se traite de la même manière.

En ce qui concerne le traitement d'un signet, effectivement j'avais remarqué que, où qu'il soit, le signet est traité de la même façon. Mais comme je travaille sur un document avec déjà un code VBA existant, j'aimerais éviter de rajouter plus que nécessaire. De ce fait, je cherche juste à rajouter la création du signet et comme je l'ai dit dans mon premier message, le problème vient de cette création qui ce fait dans le corps de texte.

[Philippe Tulliez]

Bonjour;
Peut-être avec la solution proposée dans la faq Pourquoi mon signet est il détruit lorsque je modifie son texte ?
Je ne l'ai pas testée

[EDIT]
Je viens de tester la solution proposée dans la FAQ et cela fonctionne en En-tête