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 :
Seulement, mon code article dépend de la sélection active, du champ "CODEARTICLE" -> Comment récupérer cette valeur ?
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
Merci, bonne journée.
Partager