Karen Clark was telling us:
Karen Clark nous racontait que :

You do not need a macro for this:

Put this on your footer and format it the way you want:
{IF {PAGE} = {NUMPAGES} "{FILENAME}" ""}

Each {} pair is inserted by doing CTRL-F9.

Then select the whole thing and do SHIFT-F9 to toggle the code to the actual
values.
This will appear only on the last page of the document.

Karen,

Maybe something like:
Sub SetupFooter()
Dim myString As String

'Strip extention from file name and path
myString = ActiveDocument.FullName
myString = Left(myString, Len(myString) - 4)

'Go to footer

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
 ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
  ActivePane.View.Type = wdOutlineView Then
  ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
 If Selection.HeaderFooter.IsHeader = True Then
   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
 Else
   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
 End If

'Insert Field Code
With Selection
 .Font.Size = 8
 .Font.Color = wdColorGray90
 .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
       PreserveFormatting:=False
 .TypeText Text:="IF"
 .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdMove
 .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
       PreserveFormatting:=False
 .TypeText Text:="PAGE"
 .MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdMove
 .TypeText Text:=" = "
 .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
      PreserveFormatting:=False
 .TypeText Text:="NUMPAGES"
 .MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdMove
 .TypeText Text:=Chr(34) & myString & Chr(34)

End With
  ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
  ActiveDocument.PrintPreview
  ActiveDocument.ClosePrintPreview
  Application.ScreenUpdating = True  'display on

End Sub

IVO JGMs post then maybe:

Sub InsertNestedPageFieldInFooterOnTheFly()

Dim MyRange As Range
Dim myString As String

'Strip extention from file name and path
myString = ActiveDocument.FullName
myString = Left(myString, Len(myString) - 4)

Application.ScreenUpdating = False
ActiveWindow.View.ShowFieldCodes = True

'Insert dummy para at end of document
ActiveDocument.Range.InsertAfter vbCr
Set MyRange = ActiveDocument.Range
MyRange.Collapse wdCollapseEnd
MyRange.Select

'Insert nested field
With Selection
 .Font.Size = 8
 .Font.Color = wdColorGray90
 .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
       PreserveFormatting:=False
 .TypeText Text:="IF"
 .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdMove
 .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
       PreserveFormatting:=False
 .TypeText Text:="PAGE"
 .MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdMove
 .TypeText Text:=" = "
 .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
      PreserveFormatting:=False
 .TypeText Text:="NUMPAGES"
 .MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdMove
 .TypeText Text:=Chr(34) & myString & Chr(34)
 '.Fields.Update
End With

ActiveWindow.View.ShowFieldCodes = False

'Cut field, delete dummy para mark, and paste field into header
With Selection
 .MoveEndUntil Cset:=Chr(34), Count:=wdForward
 .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
 .Cut
End With
'ActiveDocument.Paragraphs.Last.Range.Delete

Set MyRange = ActiveDocument.Sections(1) _
       .Footers(wdHeaderFooterPrimary).Range
MyRange.Collapse wdCollapseEnd
MyRange.Paste
Set MyRange = ActiveDocument.Sections(1) _
       .Footers(wdHeaderFooterPrimary).Range
MyRange.Paragraphs.Last.Range.Delete
Application.ScreenUpdating = True

End Sub

I would recommend simply creating a Word field for this and storing it as an
AutoText entry. See
http://www.mvps.org/word/FAQs/Numbering/PageNumbering.htm for information on
how to construct a field that will only display on the last page of a
document. The easiest place to put this field is in a header or footer.

If necessary, you could then write a macro to insert the AT entry.