XL 2010 Difficulté avec Query

[jm.andryszak]

Bonjour
Cette macro fonctionne si Tableau_1 est un tableau "standard"
mais s'il est déclaré Listobjects, elle ne fonctionne plus
Comment puis-je résoudre ce problème ?
En vous remerciant

Sub Test()
'***********************************************
Dim SQL
Dim Source
Dim DefaultDir 'Optionnel
Dim Tbl As listobject
'***********************************************
Application.ScreenUpdating = False

On Error Resume Next
Set Tbl = ActiveSheet.ListObjects(1)
ActiveSheet.ListObjects(1).Delete
On Error GoTo 0
'
Source = ThisWorkbook.Path & "\Source_Query.xlsm"
DefaultDir = ThisWorkbook.Path
SQL = "SELECT Colonne1 FROM Tableau_1"

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DSN=Excel Files;DBQ=" & Source & ";DefaultDir=" & DefaultDir & ";DriverId=1046;MaxBufferSize=200"), _
Array(";PageTimeout=5;")), Destination:=Range("$a$1")).QueryTable 'Array("48;PageTimeout=5;"))

.CommandText = SQL
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.listobject.DisplayName = "Resultat"
.Refresh BackgroundQuery:=False
End With
End Sub
'***********************************************

 

[job75]

Bonjour jm.andryszak,

Voyez les 2 fichiers joints.

1) j'ai remplacé dans la macro :

SQL = "SELECT Colonne1 FROM Tableau_1

par :

SQL = "SELECT * FROM [Tableau_1]

2) [Tableau_1] n'est pas le nom du tableau structuré mais le nom donné à la plage =Feuil1!$A$1:$D$8

Dans la feuille source ce nom est créé automatiquement par la macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
[Tableau1].ListObject.Range.Name = "Tableau_1"
End Sub

A+

 

[jm.andryszak]

Merci
Je regarde,
le fichier Source ThisWorkbook.Path & "\Source_Query.xlsm" est fermé ou ouvert
Private Sub Worksheet_SelectionChange ne me parait donc pas la solution

 

[job75]

Private Sub Worksheet_SelectionChange a pour seul but de recréer le nom Tableau_1 quand on modifie le tableau source.

 

[job75]

En fait on peut très bien utiliser le code d'origine dans ce fichier (2) :

SQL = "SELECT Colonne1 FROM Tableau_1"

les crochets n'étaient pas indispensables.

Les noms Tableau_1 et Colonne1 étant (re)créés automatiquement dans la feuille source par la macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
[Tableau1].ListObject.Range.Name = "Tableau_1"
[Tableau_1].Columns(1).Name = "Colonne1"
End Sub

 

[jm.andryszak]

Merci pour la solution.