run-time error 91 object variable or with

Version imprimable

Cher tous,
lorsque j'execute ma macro il me donne l'erreur "Run-time error 91 object variable or with block variable not set"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Central_Risk()
 
    Sheets("Data Signature").Select
 
    Range("A1").Select
 
With Selection.ListObject.QueryTable'<-- le execution bloque ici  sur cette ligne 
 
pls m'aider a resoudre ce probleme
 
        .Connection = Array( _
 
        "OLEDB;Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=;Initial Catalog=;Data Source=;" _
 
        , _
 
        "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=NGD5N2QC3J;Use Encryption for Data=False;Tag wit" _
 
        , "h column collation when possible=False")
 
        .CommandType = xlCmdSql
 
        .CommandText = Array( _
 
        "Select     distinct 
 
        )
 
        .Refresh BackgroundQuery:=False
 
    End With
 
    Sheets("Pivot TB").Select
 
    Range("A1").Select
 
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
 
End Sub

30/04/2013, 16h59
SfJ5Rpw8

bonjour,

et il y as quoi dans la cellule A1 de ta feuille "Data Signature" ?
30/04/2013, 17h21
Ndoumbe04

rien dans la colonne A1 j'ai selectionner cette premiere colonne par defaut
mon besoir est d'afficher le resutat de la requete SQL dans la feuille nomme "Data Signature"

voici le code modifie et l'erreur
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub Central_Risk() Dim wsData As Worksheet Dim lstObj As ListObject Set wsData = Sheets("Data Signature") Set lstObj = wsData.ListObjects("A1") - l'erreur eest ici comme suit "Run-time error '' subscript out of range" With lstObj.QueryTable 'le code de connexion et la requete sql End With
mon besoin priere de m'aider
Data Signature= est le nom de la feuille excel ou je voudrais afficher les donnes
A1= est le nom de la premiere colonne de la feuille momme "Data Signature"

je souhaite un code qui permet d'extraire d'un table ds un BD SQL Serveur et affiche tous les donnes dans la feuille excel

j'espere evec ceci vous pouvez m'aider