View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
MD MD is offline
external usenet poster
 
Posts: 10
Default French Vs English

Here is one of the codes that do not work in the english version. Would the
regional settings have anything to do with it?

Sub quitter()
Dim Msg, Style, Title, Response, MyString
Msg = "Voulez-vous vraiment quitter ce dossier?"
Style = vbYesNo + vbCritical + vbDefaultButton
Title = "Quiter ce dossier"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyString = "Yes"

Dim Msg2, Style2, Title2, Response2, MyString2
Msg2 = "Voulez-vous sauvegarder ce dossier?"
Style2 = vbYesNo + vbExclamation + vbDefaultButton
Title2 = "Sauvegarde du dossier"
Response2 = MsgBox(Msg2, Style2, Title2)
If Response2 = vbYes Then
MyString2 = "Yes"
Application.Run ("saisie.xls!sauver")
Else
MyString2 = "No"
End If

Application.ScreenUpdating = False
Windows("menu.xls").Activate
Windows("saisie.xls").Activate
Application.Run ("taux.xls!close_from_saisie")
Application.DisplayAlerts = False
ActiveWorkbook.Close
Else
MyString = "No"
Range("c10").Select
End If
End Sub


"Niek Otten" a écrit dans le message de news:
...
The code should work.
It doesn't look like you pasted it from your code. Please do.
What behavior of Excel makes you say "not work"?

--
Kind regards,

Niek Otten

"MD" wrote in message
...
Can someone explain to me why a code that works in OfficeXPsp2 French
does not work in Office2003 English.

codes such as;
appplication.displayalert= false
application.close

Thanks!

MD