Private Sub OK_Click()
Dim Ncde As String
Ncde = TextBox1.Value
ActiveSheet.Cells.ClearContents
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=MSDAORA.1;Password=****;User ID=****;Data Source=****", _
Destination:=Range("$A$4")).QueryTable
.CommandType = xlCmdSql
.CommandText = "select T1.""NU_CDE"" ""N° Commande"", T1.""LIG_CDE"" ""N° Ligne"", T2.""MT_ENGAGE"" ""Montant engagé"", T3.""MT_LIQ"" ""Montant liquidé"", T2.""MT_ENGAGE"" - T3.""MT_LIQ"" ""Reste engagé"", T1.""NU_LIQ"" ""Numéro de liquidation"", T2.""QTE_CDEE"" ""Quantité commandée"", T2.""QTE_RECUE"" ""Quantité reçue""" & Chr(13) & "" & Chr(10) & ",T2.""QTE_CDEE"" - T2.""QTE_RECUE"" ""Reste en commande"", T2.""LIBELLE_LIGNE_CDE"" ""Libellé lig. cde"", T1.""GEST"" ""Gestionnaire"" from (""LIG_COMMANDE"" T2 LEFT OUTER JOIN (""RECEP_CDE"" T3 LEFT OUTER JOIN ""MANDATS_DE_COMMANDES"" T1 on T3.""EH""=T1.""EH"" and T3.""GEST""=T1.""GEST"" and T3.""NU_CDE""=T1.""NU_CDE"" and T3.""LIG_CDE""=T1.""LIG_CDE"" and T3.""NU_RECEP""=T1.""NU_RECEP"" and T3.""NUM_LIQ""=T1.""NU_LIQ"") on T2.""EH""=T3.""EH"" and T2.""GEST""=T3.""GEST"" and T2.""NU_CDE""=T3.""NU_CDE"" and T2.""LIG_CDE""=T3.""LIG_CDE"")" & Chr(13) & "" & Chr(10) & " where T1.""NU_CDE""=" & Ncde & Chr(13) & "" & Chr(10) & " order by ""N° Ligne"" asc"
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tableau_IN01__Par_défaut__COMMANDE"
.Refresh BackgroundQuery:=False
Columns.AutoFit
End With
End Sub