Discussion :

[botbot]

Bonjour à tous,

J'utilise une macro via un bouton afin de faire une requête update sur ma base sql server, le but est de modifier en stock mini d'un code article :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
sub Connection

set conn=CreateObject("ADODB.Connection")
conn.Open "Driver={SQL Server};" & _
                   "Server=SRV-ADFILES;" & _
                   "Database=PMI;" & _
                   "UID=sa;" & _
                   "PWD=cegid.2008;"
set rs=CreateObject("ADODB.recordset")
STOCK = getVariable("STOCKMINIPROPOSE")
CODEART = ????


msgbox(CODEART)

' Database Update

sql="UPDATE ARTICLE SET "
sql=sql & "ARCNSTOMIN='" & STOCK & "'"
sql=sql & " WHERE ARKTCODART='"&CODEART&"'"

on error resume next
conn.Execute sql
if err <> 0 then
msgbox("No update permissions! " & err )
end if
'End of the Update

conn.close
end sub

function getVariable(varName)
set v = ActiveDocument.Variables(varName)
getVariable = v.GetContent.String
end function

Seulement, mon code article dépend de la sélection active, du champ "CODEARTICLE" -> Comment récupérer cette valeur ?

Merci, bonne journée.

[FORMULARY]

Tu peux utiliser GetSelectedValues.
Tu dois aussi vérifier qu'une seule valeur a été sélectionnée.

Code :

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

1
2
3
4
5
6
Set Sel=activedocument.fields("CODEART").getselectedvalues
if sel.count=1 then
msgbox sel.item(0).text
else
msgbox sel.count & " sélections faites"
end if

[botbot]

Bonsoir,

Merci FORMULARY, cela fonctionne très bien.

En revanche, ce que je ne comprends pas, c'est que ma base de donnée est bien mise à jour quand je fais clique sur "Tester" le code, mais lorsque j'appuie directement sur le bouton exécutant la macro, ma base n'est pas mise à jour

Une idée ?

Merci !

[FORMULARY]

Bizarre ...
1) Vérifie le niveau de sécurité des macros.
2) Ajoutes un msgbox au début de la macro et clique sur le bouton. Ca permettra au moins de vérifier que la macro est bien appelée.
3) Retire le msgbox du début de macro et place-le juste avant l'update, pour voir si tu arrives jusque là.
4) Vérifie ta clause Update, mais là ça devrait le faire puisque ça tourne en cliquant Tester.

[botbot]

Bonjour,

J'ai bien "outrepassé" les sécurités dans l'application, et dans les macros j'ai "Accès système", et "Autoriser les accès système".

Un msgbox en 1ère ligne ne se lance même pas, idem avant l'update !

Effectivement testée à coté, la requête update fonctionne bien...

[FORMULARY]

Vérifie l'action que tu as paramétré sur le bouton.
Prend l'habitude aussi d'être "Case Sensitive" car QV l'est à pas mal d'endroits (mais pas partout).
C'est peut-être tout simplement ça qui empêche le déclenchement de la macro.

[botbot]

Bonsoir,

Je ne comprends pas... Même en créant un simple bouton "test" avec une macro avec la ligne de code msgbox("test"), le clic sur le bouton ne lance pas le message !
Précieusement, je procède ainso : créer un bouton, clic droit, propriétés, onglet action, ajouter une action, Exécuter une macro, je luis donne un nom à droite, puis éditer le module, la je place ma ligne de code, et valide... Le clic sur le bouton test dans l'éditeur m'affiche bien la fenêtre test. Mais rien quand je clique sur mon bouton...

Idem dans un nouveau projet, sur plusieurs machines testée. Édition personnelle pour le moment en attentant la licence monoposte.

Je fais peut-être une erreur de manip, ou il manque un paramètre ??

Merci.

[PhunkyBob]

Question bête (désolé mais il vaut mieux être sur) : vous mettez bien

Code :

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

1
2
3
sub ma_fonction
msgbox "coucou"
end sub

dans la fenêtre de macro, vous mettez bien que ce sont des macros "VB" et vous mettez bien

Code :

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

ma_fonction

dans votre action de bouton ?

[botbot]

Bonjour,

Merci PhunkyBob, en effet, le nom de ma fonction dans l'éditeur et le nom de la macro dans les propriétés action du bouton ne correspondait pas... Je pensais que le code saisi s'appliqait directement au bouton, mais visiblement l'éditeur est global, donc il faut préciser au bouton quelle fonction aller chercher

Merci beaucoup !