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
|