Bonjour à tous, voila mon probleme : je suis entrain d'importer des données via L'odbc, mais a chaque execution un message d'erreur est affiché le debogage me signale sur le "End With"

quelqu'un peut m'aider a comprendre
ps : j'ai excel 2007
Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub import()
 
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "FINDER;C:\Documents and Settings\Administrateur\Bureau\Requete-facturation\Etat_Vente_Par_Structures_version2.dqy" _
        , Destination:=Range("$A$1")).QueryTable
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Tableau_Etat_Vente_Par_Structures_version2_1"
        .Refresh BackgroundQuery:=False
    End With
    Range("H10").Select
End Sub