OVH Cloud OVH Cloud

Anglais Vs Francais

1 réponse
Avatar
MD
Pourquoi certains codes écrits sur EXCEL VBA francais ne sont pas compatible
avec EXCEL VBA anglais.
francais = WinXPpro OfficeXPsp2
anglais= WinXPhome Office2003premium

Exemple.... ce code fonctionne en francais mais pas en anglais
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

1 réponse

Avatar
Modeste
Bonsour® MD avec ferveur ;o))) vous nous disiez :

Pourquoi certains codes écrits sur EXCEL VBA francais ne sont pas
compatible
avec EXCEL VBA anglais.
francais = WinXPpro OfficeXPsp2
anglais= WinXPhome Office2003premium



?????
quels sont les messages d'erreurs ????

il est probable par ailleurs que sur l'un des postes
l' Option Explicit soit activé !!!


notament concernant le typage des variables
Dim Msg, Style, Title, Response, MyString
Dim Msg2, Style2, Title2, Response2, MyString2
qui sont telles que ici toutes déclarées en variant !!!!

alors que msg, title, mystring devrait etre de type String
style et style2 de type numerique
seul response et response2 peuvent etre de type variant


--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr