Discussion :

[vieuxmonsieur]

Bonjour à tous,
Voici, je cherche à mettre un lien hypertexte sur mes numéros de page Word.
Le lien à partir des numéros de page (qui renvoie à l'index) ne fonctionne pas.
J'essaie donc de mettre une zone de texte avec le lien, au dessus de chaque numéro de page (fastidieux) mais les zones ne restent pas en place.
Je vous remercie de bien vouloir me dire ce que j'ignore.

[vieuxmonsieur]

re,
Pour vous aider à résoudre mon problème, voyez à la page 4 du livre ou si vous préférez à la 20 page depuis le début.
http://cjoint.com/?gDtsFNywUf
en vous remerciant.

[Heureux-oli]

Salut,

Pour les liens hypertexte situés sur les documents, il faut faire une insertion manuelle.

Dans le sens Table des matières => Titres, on l'obtient tout seul.
Dans l'autre sens, c'est moins convivial.

Il faut insérer un signet à l'endroit de la destination.
Et sur chaque page ajouter un lien.
Ce lien ne peut pas se trouver dans l'en-tête ou le pied de page.

Il est possible de l'ajouter par VBA pour chaque page.

[vieuxmonsieur]

Bonjour Heureuxs-oli,
Je vous remercie de votre réponse, mais alors pourquoi la zone de texte que j'ai placée en début est bien en place et plus possible ensuite de la disposer ?
En vous remerciant.

[vieuxmonsieur]

Salut,

Il est possible de l'ajouter par VBA pour chaque page.

Pouvez-vous me dire comment car je n'ai qu'une très faible connaissance de vba

A vous lire

[Heureux-oli]

Salut,

Ce code va insérer un lien vers un signet S1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub MacroHyperlink()
Dim intNbPage As Integer
For intNbPage = 2 To Selection.Information(wdNumberOfPagesInDocument)
Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=intNbPage
Selection.Hyperlinks.Add Anchor:=Selection.Range, Address:="", _
        SubAddress:="S1", ScreenTip:="", TextToDisplay:="Signet 1"
 
Next intNbPage
 
End Sub

[vieuxmonsieur]

Re,
Je ne comprends pas ce qu'il me faut faire avec ce code, d'autre part, j'ai un signet index qui pointe sur la table des m.

[vieuxmonsieur]

Re,
Je vous remercie de bien vouloir donner suite

[Heureux-oli]

Salut,

J'ai une autre solution à te proposer.

Elle est basée sur un bouton qui renvoie sur un signet. Ce bouton est situé dans l'en-tête du document.


Donc,

Soit dans l'en-tête ou dans le pied de page, il faut ajouter un bouton.

Pour ajouter le bouton :

Ajouter la barre d'outils contrôle ; Clic droit dans l'espace des barres d'outils de Word, choisir Boîte à outils.
Ajouter le bouton dans l'en-tête du document.
Double clic sur le bouton et coller ce code

Entre les lignes commençant par Private Sub CommandButton#() et End Sub

Code :

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

1
2
3
 
Selection.GoTo What:=wdGoToBookmark, Name:="S1"
ActiveWindow.View.Type = wdPrintView

Remplacer S1 par le nom du signet de ton choix.

Fermer l'en-tête du document
Quitter le mode Design, c'est un bouton avec un petite équerre.

Le bouton devient actif.

Je t'ai mis un exemple.

[vieuxmonsieur]

Re,
Je te remercie Heureux-oli pour ta patience et ton dévouement à m'aider.
Je vais passer à la phase exécution.
Bon après midi

[vieuxmonsieur]

Re,
Je viens de faire ce que tu m'as si gentiment indiqué, mais il ne se passe rien quand je clique surle bouton
J'ai remplacé "S1" par "Index" (nom du signet).
Aucune zone de texte avec le renvoi du signet ne s'est ajouté à mon document.
Dans l'attente de te lire
Désolé pour tous les soucis que je te t'occasiosnne

[Heureux-oli]

Salut,

tu dois quitter le mode création.

Sur mon document, ça fonctionne ou pas ?

[vieuxmonsieur]

Le bouton étant dans l'en tête, n'est plus accessible en mode page et aucune zone de texte se positionne au dessus des numéros de page

[Heureux-oli]

Salut,


C'est que tu es en mode création.
Ou alors je ne sais pas, chez moi tout fonctionne.

[vieuxmonsieur]

Non Heureux-oli, j'ai cliqué sur l'équerre pour quitter le mode création et seul le bouton de la première page est acessible

N'y a t-il pas moyen de positionner par vba une zone de texte en bas de chaque page à 12mm du bord droit et à 15 mm du bas de la page; je changerai les valeurs pour les pages impairs