Discussion :

[Slavo]

Bonjour à tous,

Avec l'utilisation de ce code

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
 
Option Explicit
 
Dim oCn As ADODB.Connection
Dim oRS As ADODB.Recordset
Dim ConnString As String
Dim SQL As String
Dim qt As QueryTable
ConnString = "Provider=SQLOLEDB;Integrated Security=SSPI;" & _
   "Data Source=NCXXCHAR9S\PDS_SSQL02; Database=MWPMO;" & _
    "Persist Security Info=False;"
Set oCn = New ADODB.Connection
oCn.ConnectionString = ConnString
oCn.Open
SQL = "SELECT * from Rpt_RFD"
Set oRS = New ADODB.Recordset
oRS.Source = SQL
oRS.ActiveConnection = oCn
oRS.Open
Set qt = ActiveSheet.ListObjects.Add( _
    SourceType:=XlListObjectSourceType.xlSrcQuery, _
        Source:=oRS, _
            Destination:=ActiveSheet.Range("A3")).QueryTable

J'ai un message d'erreur 1004 : Erreur définir par l'application ou par l'objet

Le message d'erreur est pour le bout de code suivant :

Code :

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

1
2
3
4
Set qt = ActiveSheet.ListObjects.Add( _
    SourceType:=XlListObjectSourceType.xlSrcQuery, _
        Source:=oRS, _
            Destination:=ActiveSheet.Range("A3")).QueryTable

J'ai beau chercher sur internet je ne trouve pas le bonheur à mon problème . Est-ce que quelqu'un saurait comment régler ceci ?

[issoram]

Bonjour,

La requête renvoie-t-elle quelque chose?

Code :

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

Debug.print oRS.BOF, oRS.EOF

D'autre part as-tu essayé de créer le listObject sans affectation à ton objet Qwerytable?

Code :

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

1
2
ActiveSheet.ListObjects.Add( _
    SourceType:=XlListObjectSourceType.xlSrcQuery,Source:=oRS, Destination:=ActiveSheet.Range("A3"))

[Slavo]

Merci pour ta réponse Issoram,

J'ai réussi à régler mon problème.

J'ai simplement remplacer :

Code :

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

Set qt = ActiveSheet.ListObjects.Add( SourceType:=XlListObjectSourceType.xlSrcQuery, Source:=oRS, Destination:=ActiveSheet.Range("A3"))

Par

Code :

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

Set qt = ActiveSheet.ListObjects.Add(xlSrcexternal, oRS, Connstring, ActiveSheet.Range("A3"))

Connstring étant la connexion à la base de donné ->

Code :

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

"Provider=SQLOLEDB;Integrated Security=SSPI;" & "Data Source=NCXXCHAR9S\PDS_SSQL02; Database=MWPMO;" & "Persist Security Info=False;"