Change Regional Language setting with Code?

[CLR]

Hi All.....
Excel 2007 English version 12.0.4518.1014

Can anyone tell me if it's possible to change the Regional Language setting
in the users Excel from Dutch(Belgium) to English(United States) upon opening
the file and then change it back on closing?

TIA
Vaya con Dios,
Chuck, CABGx3

 

[Ron de Bruin]

Why do you want to do this Chuck

 

[CLR]

Hi Ron......
User is using English Excel 2007 with Regional language setting of
Dutch(Belgium). when he uses my program to create an Invoice, the date is
entered as Oktober 21, 2009 in cell E4. My macro tries to save the invoice
coded with the date in the filename in the "October2009" directory and it
does not find a "Oktober2009" directory so it crashes. If I use English
settings it works fine, and if I change the directory name to Oktober2009 for
the Dutch setting it works fine but management does not want to do
that.......so, if I could use a couple of change-event macros to change the
Regional Language setting upon upening and closing the file, all would be
well.......I know how to write the macros, just don't know the code to use to
change the Language setting.

Vaya con Dios,
Chuck, CABGx3

 

[Ron de Bruin]

I see

I think about a solution this evening

 

[Ron de Bruin]

Maybe this is a easy option, you can use FolderName now in the save line


Sub TestChuck()
Dim FolderName As String

Select Case Month(Range("E4"))
Case 1: FolderName = "January" & Year(Range("E4"))
Case 2: FolderName = "February" & Year(Range("E4"))
Case 3: FolderName = "March" & Year(Range("E4"))
Case 4: FolderName = "April" & Year(Range("E4"))
Case 5: FolderName = "May" & Year(Range("E4"))
Case 6: FolderName = "June" & Year(Range("E4"))
Case 7: FolderName = "July" & Year(Range("E4"))
Case 8: FolderName = "August" & Year(Range("E4"))
Case 9: FolderName = "September" & Year(Range("E4"))
Case 10: FolderName = "October" & Year(Range("E4"))
Case 11: FolderName = "November" & Year(Range("E4"))
Case 12: FolderName = "December" & Year(Range("E4"))
End Select

MsgBox FolderName
End Sub

 

[CLR]

Most interesting Ron, I'll give it a try......

thanks a bunch

Vaya con Dios,
Chuck, CABGx3

 

[John]

Hi Chuck
I found this link, but don't know if that can help you.
Creating Macros for Different Language Versions
http://support.microsoft.com/kb/213833
HTH
John

 

[Ron de Bruin]

Hi John

I have also a page here if you are interested
http://www.rondebruin.nl/international.htm

I will add more to the page if I have time

 

[John]

Hi Ron
Thank you, but the information I got for Chuck, I just stumbled on it and
thought it could help him.
Very thoughtful of you
Regards
John

 

[clr]

Interesting article John, thanks for sharing that. It doesn't really help
me with this current problem but looks like a good thing to keep in my kit
box.

Vaya con Dios,
Chuck, CABGx3

 

[John]

You're welcome Chuck
Regards
John

Interesting article John, thanks for sharing that. It doesn't really help me
with this current problem but looks like a good thing to keep in my kit box.

Vaya con Dios,
Chuck, CABGx3

 

[CLR]

Actually, most Brilliant, Ron.......your workaround serves me just super!
Now my user can use either the Dutch or the English Regional Language
setting and the files saves just fine to the proper "English" directory and
filename.
I actually had to use two of your "CASE" solutions, one for the directory
and one for the filename......but your code was clear enough that I had no
trouble adapting the second version to fit.

Many many thanks,
Vaya Con Dios,
Chuck, CABGx3

 

[Ron de Bruin]

Thanks for the feedback Chuck
Always nice to know that it was working like you want

Have a nice day