Pad in header

[hanskraan]

Is er een methode om naast de naam van het geopende bestand in Excel ook het hele pad naar dat bestand in de header van het geopende bestand te plaatsen? Ik werk met Excel 2007.

 

[edmoor]

Kijk eens hier:
http://support.microsoft.com/kb/287482

 

[hanskraan]

Deze oplossing was mij bekend. Het is echter niet wat ik bedoel. Ik heb mijn vraag natuurlijk niet eenduidig genoeg geformuleerd. Exacter geformuleerd was en is mijn vraag nog steeds:
Is er een methode om naast de bestandsnaam ook het pad naar het bestand in de header boven het lint op het beeldscherm te zien?

 

[AlexCEL]

Er is een methode via VBA om het volledige pad in de titelbalk te krijgen:

Private Sub Workbook_Open()

Windows(1).Caption = ActiveWorkbook.FullName
Application.Caption = "Microsoft Excel"
 
End Sub

Te plaatsen in het "ThisWorkbook" gedeelte van de VBA editor.

Voorbeeld: Bekijk bijlage pad_in_titelbalk.xlsm

 

[hanskraan]

Ik ben bijna tevreden. Er is echter nog een verbeter puntje en dat is het volgende:
Als ik een normaal (zonder VBA) Excel blad open en ik wil het bewaren onder een andere naam dan komt na het saven die nieuwe naam onmiddellijk in de header te staan. Dit gebeurt nu niet. Wellicht is met een kleine aanpassing in VBA deze aanpassing ook nog te realiseren

 

[edmoor]

Zet hem dan ook in het Aftersave event.

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Windows(1).Caption = ActiveWorkbook.FullName
    Application.Caption = "Microsoft Excel"
End Sub

 

[hanskraan]

Helaas werkt het nog niet zoals ik mij dat voorgesteld had. Als ik het bestand onder een nieuwe naam bewaar dan wordt het bestand wel onder die nieuwe naam weggeschreven naar de HD maar de oude naam blijft gewoon in de header staan en dat is nu precies niet de bedoeling, immers ook in Excel zonder de toepassing van VBA wordt onmiddllijk na het wegschrijven van het bestand onder de nieuwe naam meteen die nieuwe naam in de header getoond. En zou ik het ook graag willen zien. Edmoor is hier nog wat aan te doen?

 

[edmoor]

De functie die ik gaf doet precies hetzelfde als die van AlexCEL.
Alleen wordt deze dan niet bij het openen van het document uitgevoerd maar na het opslaan van het document.
Hier doet hij precies wat je vraagt.

 

[hanskraan]

Wat doe ik nu verkeerd?
Save ik het bestand onder een nieuwe naam dan toont de header inderdaad de nieuwe naam echter zonder het hele pad te vermelden en was nu juist wel de bedoeling. Wat is nu de oplossing?

 

[edmoor]

Plaats je document eens.

 

[AlexCEL]

Je hebt waarschijnlijk de code alleen bij het Aftersave event staan. Als je dan het bestand onder een nieuwe naam saved, en daarna weer opent zie je inderdaad alleen de bestandsnaam, totdat je het weer opslaat.

Simpele Oplossing: zet de code zowel bij Open event als bij het aftersave event.

Alex

 

[edmoor]

@Hans:
Daarom zei ik ook dat je het OOK bij het aftersave event moet doen, niet ALLEEN bij dat event.

 

[popipipo]

Het is maar hoe je de klemtoon zet in die zin

Zet hem dan OOK in het Aftersave event.
Zet hem dan ook in het AFTERSAVE event. :evil: (een beetje boos klinkend , maar niet zo bedoelt :d)

 

[edmoor]

Niks is hier boos bedoeld

Nu nog even afwachten of het inderdaad de oorzaak is.

 

[snb]

Ik vind bedoeld beter dan bedoelt in het 'Aftershave' - event.

 

[edmoor]

Dat was vast ook de bedoeling

 

[hanskraan]

Ik kan de Aftersave event niet vinden of wordt er bedoeld 'Workbook_AfterSave'
Zowel de functie van AlexCEL als die van Edmoor staan in 'ThisWorkbook (Code)' onder elkaar met een streep ertussen.
Zet ik de cursor in de functie van AlexCEL dan staat onder de header van ThisWorkbook (Code): 'Workbook' en 'Open'
Zet ik de cursor in de functie van Edmoor dan springt de tekst naar: '(Algemeen)' en 'Workbook_AfterSave'
Wat moet ik nou?

 

[edmoor]

Je hoeft alleen maar de functie uit #6 in de ThisWorkbook sectie te plakken, dus onder die van AlexCEL.

 

[hanskraan]

Zo staat het in de editor:

Private Sub Workbook_Open()

Windows(1).Caption = ActiveWorkbook.FullName
Application.Caption = "Microsoft Excel"

End Sub
_____________________________________________________________
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Windows(1).Caption = ActiveWorkbook.FullName
Application.Caption = "Microsoft Excel"
End Sub

 

[edmoor]

Dat is correct, maar dan moet het wel in de ThisWorkbook sectie staan.