Raymond

First you can copy this all-purpose UDF to your workbook into a general module.

Function DocProps(prop As String)
   Application.Volatile
   On Error GoTo err_value
   DocProps = ActiveWorkbook.BuiltinDocumentProperties _
   (prop)
   Exit Function
err_value:
   DocProps = CVErr(xlErrValue)
End Function

'=DOCPROPS("author")
'or
'=DOCPROPS("last save time")
'or
'DOCPROPS("creation date")

Then run this macro.  Strip out what you don't want in the footer before
running.

Sub PathInFooter()
   ActiveSheet.PageSetup.RightFooter = ActiveWorkbook.FullName & " " & _
           ActiveSheet.Name & " " & Application.UserName & " " & Date _
           & DocProps("creation date")
End Sub

Gord Dibben  MS Excel MVP