Macro Excel pour faire un update SQL-ORACLE

Bonjour,

Voici ma problématique.
Nous avons une requête SQL-ODBC sur base ORACLE et il nous faut pouvoir faire un update sur un champs d'une table via une macro à partir d'une cellule excel.

Voici la requête :

Code:

---

1 2 3

SELECT F350ECR.F350PIECE, F350ECR.F350LIB FROM SAML_PROD.F350ECR F350ECR WHERE (F350ECR.F350PIECE='PIEXXXXXX')

---

F350PIECE étant le numéro d'une pièce comptable et F350LIB le libellé de la pièce comptable, le tout dans la table F350ECR.

Dans Excel, j'ai donc un tableau de requête MS QUERY:

------A--------------B-------------------C
1    F350PIECE    F350LIB       Nouveau libellé

Le but de la macro est d'établir une connexion à notre base et de faire un update sur le champ du libellé :

Code:

---

1 2 3

update F350ECR set F350LIB = 'NOUVEAU' where F350LIB = 'ANCIEN' and F350PIECE = 'PIEXXXXXX'

---

Serait-il possible de m'aider à écrire ce code VBA ?

Ceci est simplement un début, le code VBA sera complété par la suite a plus grande échelle pour un tableau entier, il me faut déjà un début sur cet exemple simple.

Merci pour votre aide

Bonjour,

Sans être expert, je te conseille de te pencher sur le modèle ADO.

Ci-dessous un tutoriel spécifique à VB quant à la méthode ADO, que je t'invite à consulter (Tout particulièrement le point IIIC):
http://drq.developpez.com/vb/tutoriels/ADO/

Ci-dessous un exemple pris au hasard d'implémentation (sur access):
http://www.developpez.net/forums/d14...e-set-vb6-ado/

Ensuite, il s'agira de faire une boucle sur ton tableau Excel pour paramétrer ta requête SQL.
Soit quelque chose qui ressemblerait vaguement à ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub données_SQL() Dim SQL_str As String Dim i As Long   With Sheets("données") While .Cells(i, 3) <> "" SQL_str = "SELECT * " SQL_str = SQL_str & .Cells(i, 4) 'etc, puis une fois que tu as paramétré ta requête, tu peux utiliser le modèle ado proprement dit i = i + 1 Wend End With   End Sub

---

Bien cordialement,

Mr Poulpe