Discussion :

[mackiller666]

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 :



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

[mackiller666]

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

[Super2016]

Bonjour :


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


CDT.

[mackiller666]

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

[Jean-Philippe André]

Salut;

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

probleme sur la ligne 8 et 15

[mackiller666]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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