Discussion :

[Yvouille]

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 :

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

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

[Sepia]

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 :

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

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.

@+

[Yvouille]

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 :

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

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

[Heureux-oli]

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.

[Yvouille]

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

[Heureux-oli]

Salut,

Voilà un code qui devrait faire l'affaire

Code :

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

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

[Yvouille]

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

[Viollette17]

Bonjour

Je cherche à créer un code qui permettent de mettre à jour le pied de page en mettant à jour sur la page de garde le nom du document et et la date par exemple. Auriez-vous des modèles s'il vous plait ?

Merci d'avance

Bien à vous