[EXCEL XP]Filepath in Footer

[Mystikal]

Ik zou graag de volledige filepath in een footer krijgen binnen Excel XP.
Ik heb wel gezocht, maar kon niets vinden voor XP. Alleen '97 en 2000 kwamen met oplossingen, maar die werken op de een of andere reden niet voor XP.

Ik had een macro gemaakt (gekopieerd van het internet):
-----------
Sub
UpdateFooter()ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
End Sub
----------

Maar deze werkt niet . Iemand suggesties om dit toch binnen Excel XP voor elkaar te krijgen?

[onkl]

Raar, je code werkt hier alleraardigst.
(Excel 2002)

[Verwijderd]

werkt wel hoor (ik veronderstel dat je in het excelbestand wel degelijk sub updatefooter() op een lijn hebt staan ipv hier op 2), je moet deze macro echter wel handmatig aanroepen.

[Mystikal]

Verwijderd schreef op maandag 28 november 2005 @ 15:24:
werkt wel hoor (ik veronderstel dat je in het excelbestand wel degelijk sub updatefooter() op een lijn hebt staan ipv hier op 2), je moet deze macro echter wel handmatig aanroepen.

Euh nee, dat heb ik niet gedaan... Ff checken...
En hij werkt nog steeds niet. Het lijkt erop dat tie met een foutmelding komt op Activesheet.
Hij geeft de melding: Expected: end of statement.
iemand suggesties?

[ Voor 21% gewijzigd door Mystikal op 28-11-2005 15:41 ]

[ksmedts]

Visual Basic:

Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
End Sub

als ik regel 2 plak in de procedure van een standaardknop werkt dit perfect.... aan de code te zien die je in je startpost heb geplakt heb je regel 1 en 2 samengevoegd dat gaat dus niet werken....

[RobIII]

Visual Basic:

Sub UpdateFooter()
  ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
End Sub

Zo zou het moeten zijn... Dan alleen nog zorgen dat het ergens word aangeroepen (of 'm zelf aanklikken in het Macro's afspelen menu/scherm/dinges )

[ Voor 32% gewijzigd door RobIII op 28-11-2005 15:54 ]

[Mystikal]

RobIII schreef op maandag 28 november 2005 @ 15:53:

Visual Basic:

Sub UpdateFooter()
  ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
End Sub

Zo zou het moeten zijn... Dan alleen nog zorgen dat het ergens word aangeroepen (of 'm zelf aanklikken in het Macro's afspelen menu/scherm/dinges )

We have a WINNER! Tnx... both of you.
Heb inmiddels al een knop aangemaakt in de toolbar en deze toegewezen aan de macro.