Vba et connexion ODBC

Bonjour à tous,

Voila j'ai construit un petit fichier exel bien utile qui me permet de remplir les informations d'une base de données assez complexes. C'est une base de donnée filemaker. Via ODBC j'arrive alors a travailler sur ma base. Cependant j'ai quelques problèmes qui sont les suivant:

Premièrement je me connecte a ma base de donnée de la sorte:

Code:

---

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

ThisWorkbook.Worksheets("M-TR_CARACTERISTIQUE_CAR").Activate With ActiveSheet.QueryTables.Add(connection:="ODBC;DSN=AKAM_Intervention;uid=Admin;pwd=123456", _ destination:=Range("A1")) .CommandText = Array( _ "SELECT TR_CARACTERISTIQUE_CAR.modele, TR_CARACTERISTIQUE_CAR.""_f_type_TYPC"", TR_CARACTERISTIQUE_CAR.marque, TR_CARACTERISTIQUE_CAR.puissance_W, TR_CARACTERISTIQUE_CAR.reference" & Chr(13) & "" & Chr(10) & "FROM TR_CARACTERISTIQU" _ , _ "E_CAR TR_CARACTERISTIQUE_CAR" & Chr(13) & "" & Chr(10) & "ORDER BY TR_CARACTERISTIQUE_CAR.""_f_type_TYPC""" _ ) .Name = instruction .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With

---

Cela fonctionne correctement car je désire juste prélever mes informations de ma base de donnée pour les stocker dans mon classeur exel et travailler dessus pour la suite. Cependant je trouve pas ce code très nette et il me pose probléme par la suie. En effet j'aimerai faire des insert into et des update pour aller actualiser ou insérer des informations dans ma base de donnée. Je procéde de la même maniére mais cela n'est pas propre du tout car j'ai toujours besoin d'une feuille exel,

Code:

---

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

ThisWorkbook.Worksheets("M-temp").Activate With ActiveSheet.QueryTables.Add(connection:="ODBC;DSN=AKAM_Intervention;uid=Admin;pwd=123456", _ destination:=Range("A1")) .CommandText = ("INSERT INTO T_COMPOSANT_COMP(composant_pre_selectionne,composant_selectionne) VALUES( '" & Temp & "','" & Temp_bis & "')") .Name = instruction .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=True End With

---

Et pour finir j'ai des problémes avec mes updates et mes insert into quand il s'agit d'aller ajouter des dates ou de modifier des rubriques du format suivant _f_CAR_id. Cela ne fonctionne plus du tout.
J'ai essayer beaucoup de format de divers forum et aucun ne fonctionne, pour la connexion et les requêtes.
Si quelqu'un peut me donner une trame de connexion avec des requêtes type je peux me débrouiller après.
Merci