1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| With XLFichier.ActiveSheet.ListObjects.Add(SourceType:=0, Source:=strBD _
, Destination:=XLFichier.ActiveSheet.Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = req
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = NomDonnee
.Refresh BackgroundQuery:=False
End With |
Partager