Probleme VBA avec la langue arabe

bonsoir a tous ;
la modeste application que je suis entrain de créer contient deux sortes de formulaires,une en français et l'autre en langue arabe, mon problème est au niveau de la création des boutons,donc pour le français j'ai pas de soucis, par contre
pour la langue arabe les boutons marche qu'avec de simple macro, mais si je veux rajouter un bouton de commande en utilisant VBA j'ai ce message d'erreur :

Pièce jointe 292688

même en changeant les paramètres régionaux en arabe ça ne marche pas, si vous avez une solution je suis preneur:roll:

alors personne n'a rencontrer ce problème même avec une autre langue !!!

Bonjour :


http://fauconnier.developpez.com/tut...e-avec-access/


CDT.

merci pour le lien , mais j'arrive pas a trouver solution a mon message d'erreur :calim2:

Salut;

si on n'a pas de code sous les yeux; c'est comme jouer au loto :

probleme sur la ligne 8 et 15 :aie:

:cristal:

voila le code de mon boutons c'est une commande de publipostage :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Commande30_Click() Dim objWord As Word.Document Set objWord = GetObject("C:\projet\contratarabe.docx", "Word.Document") ' Rend Word visible important puisque la fusion se fait à l'écran. objWord.Application.Visible = True ' Sélectionne .la base de données Comptoir comme source de données pour la fusion objWord.MailMerge.OpenDataSource _ Name:="C:\projet\Base2007.mdb", _ LinkToSource:=True, _ Connection:=" TABLE Clients_AR", _ SQLStatement:="SELECT * FROM [Clients_AR] WHERE [NumAuto] = " & Me.[NumAuto] ' Exécution de la fusion. objWord.MailMerge.Execute objWord.PrintOut objWord.SaveAs ("C:\projet\Contratarabe.docx") objWord.Application.Quit   Set objWord = Nothing   End Sub

---

Je n'est pas encore développé des applications en arabe, mais ça viendra surement, le problème que j'ai déjà rencontré c'est le problème de l’Unicode, pour certaine applications qui affiche en arabe et qui ne supportent pas l'Unicode, pour quelle fonctionne il faut aller a (Windows 7):
-Panneau de configuration
-Région et langue
-Onglet Administration
-btn Modifier les paramètres régionaux
-Dans la liste choisir Arabe Algérie
-Redémarrer le PC (Obligatoire !)

et ça fonctionne juste pour ce programme, ensuite vous aurez des problèmes avec les autres applis qui ne prennent pas en charge Unicode, et là il faut refaire la même chose mais en choisissant Français France

J’espère que je vous ai aider

Justement j'ai changé en arabe algerie mais apres cela tout les boutons de commande ne marchaient plus meme ceux qui marchaient avant !

Bonjour,
le message d'erreur de ton premier post me fait penser à une base cassée. Une première solution consiste à effectuer une réparation de la base. Si cela ne fonctionne toujours pas, il faudrait créer une nouvelle base et importer les objets depuis l'ancienne.

Pour ne pas se perdre, il faut créer un toute petit programme, une ligne de code sur un bouton, ou une fonction, en version arabe, si ça fonctionne, en mettant l'Unicode en Arabe et en Français, vous pouvez aller plus loin
si ça ne fonctionne pas, ça ne sert a rien d'essayer avec du code plus compliqué, il faut d'abord savoir d'où viens le problème, ensuite avancer petit a petit

en ce qui me concerne, dès que j'aurai un peu de temps libre, je commencerai a programmer des petites applications qui affiche en arabe histoire de m'initier

sinon tu peux faire des recherche sur Google mais en arabe, y a beaucoup de sites arabes qui sont très riches, d'ailleurs j'ai vu beaucoup d'applications Access et VB6 où tout est affiché en arabe les données les listes captions des boutons, des forms, les msgbox etc
c'est des gens qui maitrisent bien l'utilisation de l'arabe en VB et VBA

J'ai essayé avec une petite application et il suffit d'ajouter uncode vba por un bouton ca ne marche plus, c'est vrai qu'il existe des applications totalement en arabe mais j'ai remarqué que meme accès qui les fait marcher est en arabe, que moi je peux pas utiliser lol