Discussion :

[Ndoumbe04]

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 :

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
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

[SfJ5Rpw8]

bonjour,

et il y as quoi dans la cellule A1 de ta feuille "Data Signature" ?

[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"

[Ndoumbe04]

voici le code modifie et l'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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