Auto_open and environ variable error cannot find library

[Philippe Cand]

Hi,

Sub auto_open()
Dim msg
msg = "UserName" & vbTab & Environ("username") & vbNewLine _
& "UserProfile" & vbTab & Environ("UserProfile") & vbNewLine _
& "Computer #" & vbTab & Environ("ComputerName") & vbNewLine _
& "Logon Server" & vbTab & Environ("Logonserver") & vbNewLine _
& "UserDomain " & vbTab & Environ("UserDomain")
MsgBox msg, , "Environment Variables"
End Sub

On some computers, this macro works just fine. on some others, it will
generate an error "Cannot find project or library".
On the computers where the error is raised, this code will work if it is not
on the auto_open() macro.
The computers are equiped with Windows XP Pro and Excel XP or 2003, the bug
happen with both versions of Excel..
Strangely enough, so far the bug happen only with computers located in
France, even if they are equiped with english versions of os and office.
Users in the Americas, Japan, Asia and Eastern Europe seems not to have this
bug. Nobody mentioned it.

At that point I really do not know where to look at. Disk image used in
France? Version of anti-virus software? and what could I do to avoid the
bug.
I tried to add a 2 seconds wait time at the begining of the Autpen()
since this is sometimes needed when you open files from SharePoint Portal
2003 through http, but in that case, it does not address the problem.

FYI, I use this macro to manipulate an OLAP connection string to switch
between tcp and http according to the user domain.

Thank you for any comment
Philippe

 

[Dave Peterson]

You may want to have the people with the problem look for missing references.

Next time it happens, have them open the VBE (alt-f11)
then hit ctrl-R to highlight the project
Then tools|references

Have them scroll through that list looking for MISSING.

If they find it, they can report back to you what one it is. If it's not
important to the project, then you could remove the reference in your copy, save
and resend.

If that doesn't work, maybe reregistering excel on the problem pc's will help:

Have them close excel,
then:
Windows Start Button|Run
excel /unregserver
then
Windows Start Button|Run
excel /regserver

The /unregserver & /regserver stuff resets the windows registry to excel's
factory defaults.