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 ?