Zelfde uitwerking Bestandsnaam in cel via VBA lukt niet

[perry99]

Hallo,

Als ik onderstaande VBA laat lopen krijg ik als resultaat:

[B]Private Sub Workbook_Open()

[A45] = ThisWorkbook.FullName & Sheets("NAW").Name

End Sub[/B]

I:\test\prive\NAW.xlsNAW

Terwijl als ik hetzelfde doe maar dan met =CEL("bestandsnaam") krijg ik als resultaat:

I:\test\prive\[NAW.xls]NAW

Graag zou ik hetzelfde resultaat willen krijgen via de VBA dus het bestand tussen [ ]

Ik hoop dat iemand mij kan helpen ik kom er zelf niet uit.

Alvast bedankt voor het meedenken.

Groetjes,

Perry

 

[perry99]

Hallo,

Ik ben er al uit.

Voor wie het antwoord wil weten is deze als volgt:

[B]Private Sub Workbook_Open()

[A45] = ThisWorkbook.Path & "\[" & Workbooks("NAW").Name & "]" & Sheets("NAW").Name


 End Sub[/B]

Groetjes,

perry