Discussion :

[pbuhler]

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 sql :

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

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 sql :

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

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

[Mr Poulpe]

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 :

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

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