Hello,

Is it possible to put the full path name of the opened file in the bleu
title bar from excel, this always en automatically.

-- Microsoft Excel - c:/data/stefan/filename instead of Microsoft Excel -
filename


Many thanks
Stefan

Public WithEvents App As Application

Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
Wn.Caption = Wb.FullName
End Sub

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
App_WindowActivate Wb, Windows(Wb.Name)
End Sub

Private Sub Workbook_Open()
Set App = Application
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Stefan" <123@abc wrote in message
...
Hello,

Is it possible to put the full path name of the opened file in the bleu
title bar from excel, this always en automatically.

-- Microsoft Excel - c:/data/stefan/filename instead of Microsoft
Excel -
filename


Many thanks
Stefan

Thanks Bob,

I get the full name, except i've got a 'subscript out of range' error as
soon as i close a window.

Secondly, i have to open that specific file first before the full path
appears.

Stefan

Bob,

With an 'on error goto' statement i can prevent that 'subscript out of
range' error. Complete path-name still occurs.

The second problem was solved by saving the file in the 'XLStart' directory
of Microsoft Office and put an extra program line so that Excel automatically
starts with that file and immediately minimizes the windowstate of it.

Again thanks for putting me on the way.
Stefan

Stefan,

I would have put it in Personal.xls, not have another file opened.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Stefan" <123@abc wrote in message
...
Bob,

With an 'on error goto' statement i can prevent that 'subscript out of
range' error. Complete path-name still occurs.

The second problem was solved by saving the file in the 'XLStart'
directory
of Microsoft Office and put an extra program line so that Excel
automatically
starts with that file and immediately minimizes the windowstate of it.

Again thanks for putting me on the way.
Stefan

Just wondering why you included this routine:

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
App_WindowActivate Wb, Windows(Wb.Name)
End Sub

The captions seem to get updated fine without it.



Bob Phillips wrote:

Stefan,

I would have put it in Personal.xls, not have another file opened.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Stefan" <123@abc wrote in message
...
Bob,

With an 'on error goto' statement i can prevent that 'subscript out of
range' error. Complete path-name still occurs.

The second problem was solved by saving the file in the 'XLStart'
directory
of Microsoft Office and put an extra program line so that Excel
automatically
starts with that file and immediately minimizes the windowstate of it.

Again thanks for putting me on the way.
Stefan

--

Dave Peterson

"Bob Phillips" wrote:

Stefan,

I would have put it in Personal.xls, not have another file opened.

--
HTH


Can you give me some more information, i cant follow.
Is personal.xls the name of that file and in which directory must i save it??

thnx
Stefan

Would you please show your complete code? Thanks.

"Stefan" wrote:

Bob,

With an 'on error goto' statement i can prevent that 'subscript out of
range' error. Complete path-name still occurs.

The second problem was solved by saving the file in the 'XLStart' directory
of Microsoft Office and put an extra program line so that Excel automatically
starts with that file and immediately minimizes the windowstate of it.

Again thanks for putting me on the way.
Stefan

Who are you asking Jack, Stefan or me?

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Jack Mills" wrote in message
...
Would you please show your complete code? Thanks.

"Stefan" wrote:

Bob,

With an 'on error goto' statement i can prevent that 'subscript out of
range' error. Complete path-name still occurs.

The second problem was solved by saving the file in the 'XLStart'
directory
of Microsoft Office and put an extra program line so that Excel
automatically
starts with that file and immediately minimizes the windowstate of it.

Again thanks for putting me on the way.
Stefan

Can something be added to update the Path in the title bar when you save the
workbook as a different file name?

"Bob Phillips" wrote:


Public WithEvents App As Application

Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
Wn.Caption = Wb.FullName
End Sub

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
App_WindowActivate Wb, Windows(Wb.Name)
End Sub

Private Sub Workbook_Open()
Set App = Application
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Stefan" <123@abc wrote in message
...
Hello,

Is it possible to put the full path name of the opened file in the bleu
title bar from excel, this always en automatically.

-- Microsoft Excel - c:/data/stefan/filename instead of Microsoft
Excel -
filename


Many thanks
Stefan

"Stefan" wrote:

Hello,

Is it possible to put the full path name of the opened file in the bleu
title bar from excel, this always en automatically.

-- Microsoft Excel - c:/data/stefan/filename instead of Microsoft Excel -
filename


Many thanks
Stefan