Bonjour à tous, je vous joins mon code:
Dim luf As Variant
Dim lufc As Variant
luf = Sheets("source").Range("d2")
lufc = Sheets("source").Range("d3")
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=MEDIANE;UID=sa;;APP=Microsoft Office 2003;WSID=TSE5;DATABASE=MEDIANE" _
, Destination:=Range("A8"))
.CommandText = Array( _
"insert into diabete(identnip,typdiab)values('"& luf &'",'"& lufc &'")" _
)
.Name = "Lancer la requête à partir de MEDIANE"
.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
Le probléme est le suivant, j'ai changer la requéte sql qui était un select.... en insert, mais j'imagine qu'il y a des choses qui changent, comme le array qui ne sert plus à rien et certainement autres choses, je ne suis pas informaticien donc je rame un peu, je remercie d'avance ceux qui pourront m'aider.
Gil