Discussion :

[POGaudet]

Bonjour

Dans un tableur Excel je récupère 2 valeurs.
La codeatrouver est un code article.
La qtestockaremplacer est la nouvelle quantité en stock.
Le but, trouver le codearticle dans la table access et mettre à jour la nouvelle quantité en stock !

Mes connaissance en Excel et VBA pour Excel ne sont pas trop mauvaises...
Mes connaissance en Access et VBA pour Access sont proches de 0...

J'ai réussi (avec l'aide de forum !) à faire ce bout de code, mais erreur de syntaxe au niveau du db.Execute strSQL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test_SMX()
Dim codeatrouver As String
Dim qtestockaremplacer
codeatrouver = Cells(1, 1).Value
qtestockaremplacer = Cells(2, 1).Value
Dim db As DAO.Database
Dim strSQL As String
Set db = DAO.OpenDatabase("F:\smx.mdb", False, False)
strSQL = "UPDATE Stock WHERE CodeElement = " & codeatrouver & " SET QteStockReel = " & qtestockaremplacer
db.Execute strSQL
db.Close
End Sub

A noter que comme "entrainement" j'ai essayé l'instruction
'strSQL = "INSERT INTO ActuaProfil VALUES('6', '" & valeuratrouver & "' ,'','')"
dans une autre table et ça fonctionne très bien, mais c'est pas ce que je veux...
D'avance un grand merci à ceux qui arrivent à me dépatouiller.

[zoom61]

Salut,

Il me semble que la ligne suivante devrait plutôt s'écrire :

Code :

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

strSQL = "UPDATE Stock  SET QteStockReel = " & qtestockaremplacer & " WHERE CodeElement = " & codeatrouver

ou si codeatrouver est alphanumérique

Code :

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

strSQL = "UPDATE Stock  SET QteStockReel = " & qtestockaremplacer & " WHERE CodeElement = '" & codeatrouver & "'"

@+.

[POGaudet]

Pfff.. j'en étais pas loin... c'est vexant de faire un copier coller et que ça marche du premier coup !!
Un MERCI à toi.