Code VBA pour un pied-de-page

Bonsoir,

J'ai enregistré une macro pour introduire un pied-de-page à un fichier Word. J'aurais désiré que ce code permette en plus de retourner dans le texte ; pour l'instant, en effet, si le nom du fichier est bien inscrit dans le pied-de-page, il faut revenir au texte de base d'une manière manuelle.

Mon code actuel :

Code:

---

1 2 3 4 5 6 7

Sub Pied_de_page() WordBasic.ViewFooterOnly Selection.Font.Size = 8 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "FILENAME ", PreserveFormatting:=True End Sub

---

Pourriez-vous m'aider ?


Yvouille

Salut Yvouille,

Plutôt que de se déplacer pour aller dans l'entête depuis Word 2000, il est préférable d'insérer directement ton texte comme ceci

Code:

---

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.InsertBefore "Mon texte à insérer"

---

De cette façon, tu n'as pas besoin d'ouvrir (et donc de fermer ;)) ton entête et cette méthode s'exécute de façon beaucoup plus rapide.

@+

Merci beaucoup Sepia pour ton aide.

Il y a cependant un léger problème. J'ai corrigé mon texte de cette manière

Code:

---

1 2 3 4

Sub Pied_de_page() 'Ctrl+Shift+P ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.InsertBefore "Mon texte à insérer" End Sub

---

et c'est le texte "Mon texte à insérer" qui apparaît dans le pied-de-page à la place du nom du document.

J'ai aussi essayé de remplacer "Mon texte à insérer" par FileName, mais ça ne va pas non plus.

Peux-tu encore m'aider ?

Bonne journée.

Yvouille

Salut,

Le code que tu nous donnes au départ est issu de l'enregistreur de macro.

Ta demande était axée sur la possibilité de retourner dans le texte du document.

Le code que Sepia te donne permet d'écrire dans la zone de pied de page.

Pour avoir le même effet, il faut ajouter un champ dans la zone.

Salut Heureux-oli,

Merci beaucoup pour ton intervention.

Cependant ce que tu me dis est presque du chinois pour moi - je n'ai en effet pratiquement aucune idée des codes VBA - et je ne suis guère plus avancé.

N'est-il pas possible de m'indiquer quel est le code que je dois inscrire afin d'obtenir le résultat souhaité ?

Bonne soirée.

Yvouille

Salut,

Voilà un code qui devrait faire l'affaire

Code:

---

ActiveDocument.Fields.Add Range:=ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range, Type:=wdFieldFileName

---

Absolument super !

Merci beaucoup Heureux-oli pour ton aide . ça fonctionne à merveille.

Bonne soirée et à une prochaine.

Yvouille

Bonsoir,

Je me permets de réactiver ce fil car je me suis rendu compte à l'usage que le code que m'a fourni Heureux-oli ne remplit pas toutes les fonctions souhaitées.

- Il faudrait en effet que le champs introduit automatiquement dans le pied-de-page par ce code soit actualisé si le titre du document est modifié par la suite (ce que faisait mon code indiqué dans mon tout premier message).

- De plus est-il possible de modifier le code de manière à avoir une taille de police de 8 ?

A vous relire.

Yvouille

Salut,

Tu parles de titre ?
Et tu insére un champ nom de fichier ?

Quelle est ta version de Word ?

Pour modifier la taille si ton pied de page ne contient que le champ c'est simple

Code:

---

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Font.Size = 8

---

Avec ce code, le contenu du pied de page va changer entièrement.
Si il contient autre chose, alors il faut soit utiliser un range plus fermé à l'aide de signets, soit utiliser un objet sélection, mais on retombe dans le même travers.

Salut Heureux-oli et merci pour ta réponse.

Je suis désolé, mais j’ai effectivement parlé de « titre » alors que je voulais parler de « nom de fichier ».

1) Je souhaiterais aussi que le nom du fichier inscrit par ce code VBA dans le pied-de-page s’actualise automatiquement par la suite lorsque l’on le modifie, par exemple en enregistrant ce fichier sous un autre nom ou après que l’on ait modifié son nom dans l’Explorer. Il me semble que le code indiqué dans mon premier message sur ce fil permettait cela.

2) Concernant ton code afin de modifier la taille de la police, où faut-il le placer ?

3) Et pendant qu’on y est : Il semble que le code que tu proposes efface les inscriptions déjà présentes dans le pied-de-page. Serait-il possible que le nom du fichier inscrit automatiquement par ce code soit plutôt placé avant ou après les inscriptions déjà présentes ? Comme ça parait exceptionnel qu’il y ait déjà des informations déjà inscrites dans le pied-de-page avant que le code désiré soit lancé, ce ne serait pas si grave que je n’ais pas de réponse à cette partie de mes questions.

A te relire.

Yvouille

Salut,

Si tu as déjà du contenu dans le pied de page, il faut travailler avec l'objet sélection.



Essaie ce code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub AjouterDonPiedPage() ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Select Selection.Collapse Direction:=wdCollapseStart   With Selection .Fields.Add Range:=Selection.Range, Type:=wdFieldFileName .Font.Size = 8 End With       ActiveDocument.StoryRanges(wdMainTextStory).Select Selection.Collapse Direction:=wdCollapseEnd   ActiveWindow.View.Type = wdPrintView     End Sub

---

Comme tous les champs, il faut le mettre à jour.

Salut Olivier,

Je te remercie beaucoup pour ton message et ton aide. J’ai essayé ton code ; il me semble qu’on s’approche à grands pas de la solution espérée mais il reste quand même quelques problèmes :

1) Dans une utilisation normale – il n’y a encore rien dans le pied-de-page et je lance le code - le champ FileName n’est pas écrit avec une taille de police de 8, mais de 11.

2) Si j’enregistre le fichier sous un autre nom, le champ déjà inscrit dans le pied-de-page par ton code ne s’actualise pas si ferme et ouvre à nouveau le nouveau fichier ou si j’enregistre des modifications dans le texte. Il ne s’actualise qu’au moment où j’imprime ce document. N’y a-t-il pas la possibilité qu’il s’actualise également au minimum lorsqu’on le ferme ?

3a) Si un texte est déjà inscrit dans le pied-de-page, le champ FileName n’est pas séparé du texte déjà présent et la taille de la police est bizarre. Par exemple, j’avais le texte « Un Exemple » inscrit avec une taille de police de 11 et j’ai actionné le code afin que le nom du fichier « Essai_5 » s’inscrive automatiquement avant. Le résultat était le suivant : Essai_5Un exemple (5 collé à Un à la taille 8, tout le reste à la taille 11, y compris le souligné).

3b) J’ai fait le même essai avec le texte « Un exemple » déjà inscrit à la taille 11 et le nom du fichier « Essai ». J’obtiens alors le résultat : EssaiUn Exemple.

3c) En essayant avec le texte « Exemple » déjà inscrit dans le pied-de-page et avec un nouveau titre « Essai », j’obtiens le résultat : EssaiExemple (Sans espace, taille 8, soit ce que je désirerais à l'exception de l'espace).

Peux-tu encore m’aider ?

A te relire.

Yvouille

Salut,

Chaque fois que le code est lançé, un champ supplémentaire est ajouté.

L'actualisation est le problème des champs dans Word.

Pour la taille, peut-être en inversant les lignes.

Code:

---

1 2 3 4 5

With Selection .Font.Size = 8 .Fields.Add Range:=Selection.Range, Type:=wdFieldFileName End With

---

Pour la mise à jour du champ.

Code:

---

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Fields.Update

---

Merci beaucoup Olivier pour cette nouvelle proposition.

En ce qui concerne le format du champ ajouté, ça marche parfaitement. Le nouveau texte est toujours mis au bon format, même s'il y a déjà un texte présent à un autre format. De plus, le format de cet ancien texte n'est plus modifié, ce qui est encore mieux.

Il manquerait par contre toujours un espace entre le champ ajouté et le texte déjà présent. Ne serait-il pas possible d'ajouter systématiquement un espace après le champ nouvellement introduit ?

Pour l'actualisation, j'ai essayé de placer le code

Code:

---

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Fields.Update

---

une fois tout à la fin de la macro, une fois tout au début (comme dans l'exemple ci-dessous). Cela ne semble cependant n'avoir jamais d'effet. Il n'y a toujours que lorsque j'imprime le document que le champ dans le pied de page est actualisé.

Pour rappel, voici mon code actuel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Pied_de_page() ' 'Proposé par Heureux-oli, Forum Word   'Ctrl+Shift+P   ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Fields.Update ' N'a aucun effet ????   ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Select Selection.Collapse Direction:=wdCollapseStart   With Selection .Font.Size = 8 .Fields.Add Range:=Selection.Range, Type:=wdFieldFileName End With   ActiveDocument.StoryRanges(wdMainTextStory).Select Selection.Collapse Direction:=wdCollapseEnd   ActiveWindow.View.Type = wdPrintView   End Sub

---

Au plaisir de te relire.


Yvouille

Salut,

Pour ajouter un espace, il faut travailler avec l'objet Selection.

Code:

---

1 2 3 4 5

With Selection .Font.Size = 8 .Fields.Add Range:=Selection.Range, Type:=wdFieldFileName .InsertAfter " " End With

---

Pour actualiser, essaie ce code :

Code:

---

ActiveDocument.StoryRanges(wdPrimaryFooterStory).Fields.Update

---

Bonsoir Olivier,

Merci bien pour ton aide.

Ton code remplit actuellement le 98 % de mes attentes. L'espace manquant est maintenant - en plus de tout ce qui fonctionnait déjà à merveille - bien mis en place.

J'ai essayé de placer ton nouveau code pour l'actualisation du champ, une fois en début de macro, une fois à la fin. En début, ça bloque et on doit passer par le débogage. A la fin, ça ne semble avoir aucun effet ; c'est seulement - et toujours - que lors de l'impression que le champ est actualisé. Ce problème est minime et on pourrait donc en rester là.

Dis-moi alors si tu veux encore me proposer une solution ou si je mets ce fil sur "Résolu".

Encore une fois un tout grand merci et bonne soirée.

Yvouille

Pour actualiser tu peux aussi tenter de profiter de "Selection"

Code:

---

1 2 3 4 5 6

With Selection .Font.Size = 8 .Fields.Add Range:=Selection.Range, Type:=wdFieldFileName .InsertAfter " " .Fields.Update End With

---

Bon après-midi

Merci ouskel'n'or pour ta proposition. Mais malheureusement ça ne change rien.

En fait ça ne m'étonne pas trop puisque ce passage, comme un peu tout ce que m'avait déjà proposé Olivier, semble déjà "passé" lorsque l'on enregistre le fichier sous un autre nom ou que l'on a modifié le nom du fichier dans l'explorer et qu'on l'ouvre sous un autre nom.

La solution ne serait-elle pas alors qu'un ou deux autres codes séparés actualisent les champs juste avant l'enregistrement - comme ils le sont juste avant l'impression - ou lors de l'ouverture ? Mais ça, je ne sais pas si c'est possible avec Word - comme ça le serait par exemple avec Excel - et moi je ne sais en tout cas pas le faire :(

A vous relire.

Yvouille

Salut,

Un code qui met à jour jsute avant la sauvegarde est possible, mais c'est un évènement de l'application Word qu'il faut gérer.

Il faut passer par l'évènement DocumentBeforeSave.

On le met en oeuvre de cette manière :
http://heureuxoli.developpez.com/off...age=page2#L2-C

Super Olivier,

J'ai maintenant toutes les informations nécessaires !

Merci encore une fois à toi et aux autres intervenants. Vous avez été vraiment chics.

Bonnes salutations.

Yvouille