Insérer Pied de page par vba sur dernière page uniquement

**vieuxmonsieur** · 13/05/2010, 13h20

Bonjour le forum,

J'ai conscience que ma demande est assez particulière mais je me lance.
Réalisant de nombreuses fiches sous Word 2003, je cherche à automatiser le pied de page.
Mes fiches (Mise en page, pliage selon livre, 4 feuillest par livret), je peux écrire un nombre de page (4 par feuille A4 pliées) variables.
Est-il possible par Vba d'obtenir automatiquement un pied de page uniquement sur la dernière page, reprenant le titre de la fiche (toujours la première ligne) sous la forme suivante :
FB 56 Le titre.
"FB" (le pied de page commencerait toujours par FB)
"56" (dernier numéro dans le dossier + 1)
"Le titre" (Titre de la fiche)
en vous remerciant.

**Heureux-oli** · 13/05/2010, 19h53

Salut,

Essaie ce code.

Code :

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

1
2
3
4
5
6
7
8
Sub AjouterPiedDePageDernierePage()
Selection.GoTo What:=wdGoToPage, which:=wdGoToLast
Selection.InsertBreak Type:=wdSectionBreakNextPage
ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).LinkToPrevious = False
 
ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).Range.Text = _
    "FB " & " 00 " & ActiveDocument.Paragraphs(1).Range.Text
End Sub

Pour le numéro de la fiche, j'ai mis 00, ne sachant pas comment le numéro doit être récupéré.
Si il faut rechercher le numéro précédent, si on doit compter le nombre de fiches présentes dans un répertoire donné ?

**vieuxmonsieur** · 14/05/2010, 12h18

Bonjour Heureux-oli,
Je te remercie de te pencher sur ma demande et te prie de bien vouloir m'expliquer la marche à suivre car je suis nul en vba
Cordialement.

**Heureux-oli** · 14/05/2010, 13h02

Salut,

Deux lien pour de la lecture
http://heureuxoli.developpez.com/office/word/vba-all/
http://heureuxoli.developpez.com/office/word/vba-word/

Pour utiliser ce code, il faut ouvrir le VBE (Visual Basic Editor).
Dans le module ThisDocument, il faut coller ce code.

Ensuite, on peut lancer ce code de plusieurs façons.
Soit en utilisant la touche F5 lorsque le curseur de la souris se trouve dans le code.
Soit en utilisant un bouton dans une des barres d'outils de Word ou encore par le menu Outils Macro et on peut alors choisir la macro que l'on souhaite utiliser.

**vieuxmonsieur** · 15/05/2010, 03h39

Bonjour Heureux-oli,
Je te remercie de m'avoir répondu et te prie de m'excuser de répondre si tardivement.

Je suis arrivé à mettre le code en place, en ce qui concerne le numéro, il suit le nombre de documents réalisés situé dans E:\FB 18
c'est à dire que, si j'ai 18 fiches, il me faut le n° suivant soit 19

En espérant que j'ai été suffisamment clair et si c'est réalisable, ce serait super.

Merci pour le temps et les solutions que tu me donnes.

**vieuxmonsieur** · 15/05/2010, 07h04

Rectification :
Au lieu de :
E:\FB 18
lire :
E:\Fiche Bibliophile 18

Ce que je souhaite en pied de page est bien :
FB (Abréviation)
18 (nombre de fiche dans le dossier Fiche Bibliophile )
x (Le Titre de la Fiche)

Sachant que j'ai une fiche vierge que j'utilise pour remplir mes fiches définitives, il s'agit donc bien, en ce qui concerne le numéro, du nombre de fiches dans le dossier et non du nombre +1

Pour pousser le bouchon un peu plus loin, car tu m'as mis en appétit, le code peut-il s'exécuter automatiquement (sans bouton) dès l'enregistrement de la fiche vierge ?
Cordialement, en te remerciant et te souhaitant un bon Week-end.

**vieuxmonsieur** · 15/05/2010, 07h22

Envoyé par vieuxmonsieur

Rectification :
Pour pousser le bouchon un peu plus loin, car tu m'as mis en appétit, le code peut-il s'exécuter automatiquement (sans bouton) dès l'enregistrement de la fiche vierge ?
Cordialement, en te remerciant et te souhaitant un bon Week-end.

de la même façon Fichier Enregistrer sous :
FB 18 Le Titre
Avex mes plus humbles excuses.

**Heureux-oli** · 15/05/2010, 12h29

Salut,

Pour le code, si s'est sur base d'un modèle de document, on peut toujours envisager de le mettre sur un évènement de ce document comme New().
Cela se produit lorsque l'on crée un nouveau document basé sur ce modèle.

Violà le code modifié

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Document_New()
Dim oFSO As Object
Dim oFol As Object
Dim inti As Integer
 
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFol = oFSO.GetFolder("c:\temp")
inti = oFol.Files.Count
 
Selection.GoTo What:=wdGoToPage, which:=wdGoToLast
Selection.InsertBreak Type:=wdSectionBreakNextPage
ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).LinkToPrevious = False
 
ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).Range.Text = _
    "FB " & inti & " " & ActiveDocument.Paragraphs(1).Range.Text
Set oFSO = Nothing
Set oFol = Nothing
 
End Sub

Ce code doit être inséré dans le module ThisDocument du modèle que tu utilises.

Pour la création de modèle :
http://heureuxoli.developpez.com/off...d/creermodele/

Pour ce qui est du retard, tu n'as pas à t'excuser, quelques heures c'est du tout bon, certains membres reviennent 4 ou 5 mois après avoir posé leur question.

**vieuxmonsieur** · 15/05/2010, 14h39

Bonjour Heureux-oli,
Vraiment je te félicite et te remercie pour ta réponse qui me ravit.
Ce n'est pas la première fois que tu m'aides et sûrement pas la dernière non plus.
Je te souhaite, ainsi qu'à tout ce forum un excellent Week-end.