ecrire à partir d'une macro sous excel une valeur dans une base sql server

Bonjour,

Je voudrais à l'aide d'une macro sous excel aller ecrire une valeur dans une base de données SQL SERVER.
Pour aller lire pas de pb j'utilise une liaison odbc.

J'ai donc une table sous SQL server qui comporte 2 champs, un champ 'Postes' et un champ 'MAJ'

du style

Poste Maj
9000 0
9500 0
9810 0

je voudrai aller ecrire en face de 9500 dans le champ MAJ 1 par exemple
et c'est la que ca coince.

Ci dessous l'enregistrement automatique de la macro de connection en lecture de la table qui me renvoie les données sous excel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _ "ODBC;DRIVER=SQL Server;SERVER=XX.XXX.XX.XXX ;UID=XXXX;PWD=XXXX;APP=Microsoft Office XP;WSID=GHDt;DATABASE=TRACA_TDE;Network=DBMS" _ ), Array("SOCN")), Destination:=Range("N28")) .CommandText = Array( _ "SELECT AUTOGEN.Atelier_Poste, AUTOGEN.MAJ" & Chr(13) & "" & Chr(10) & "FROM TRACA_TDE.tde.AUTOGEN AUTOGEN" _ ) .Name = "Lancer la requête à partir de tde_1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With

---

merci d'avance

Bonjour,

Il faudrait d'abord ce sortir de Query et là c'est pas gagner
comme seul toi peut faire les tests

fait une recherche avec Query et ODBC sur le forum je l'ai fait pour un type ODBC
peut être que tu peux t'en inspirer

Bon courage

Bonjour a toi et à tout le Forum,

Ton problème m’intéresse, :P

J’aimerais, pour voir, le paramétrage de l’ODBC

Panneau de configuration =>Outils d'administration=>Sources de données (ODBC)

Ça ouvre la boite de dialogue :

Tu choisis l’onglet « Sources de données utilisateur »
Tu sélectionnes le nom de ta source
Tu dis le nom du Pilote
Tu clic sur Bouton « Configurer… »
Tu fais une copie d’écran de la nouvelle boite de dialogue

Et tu envoi.

Si on peut se dédouaner de Query, il y a peut être une solution.
Je ne pense pas que l’on va trouver la solution tout de suite (si elle existe), d’autant plus que le Taf
revient en force.


Mais déjà dis moi ce que donne : :bug:

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Donnee As QueryTable Dim TexteRequetes As String   TexteRequetes = "SELECT Atelier_Poste, Maj FROM autogen" Donnee = "ODBC;DRIVER=SQL Server;SERVER=XX.XXX.XX.XXX;" & _ "UID=XXXX;PWD=XXXX;APP=Microsoft Office XP;WSID=GHDt;DATABASE=TRACA_TDE;Network=DBMS"   With ActiveSheet.QueryTables.Add(Connection:=Donnee, Destination:=Range("N28"), Sql:=TexteRequetes) .Refresh BackgroundQuery:=False End With

---

A+