[XL-2007] Requete Excel avec Microsoft Jet

Bonjour,
Je n'arrive pas à faire fonctionner la deuxieme requete SQL qui utilise Microscoft Jet sous 2007, alors que ma premiere requete avec la techno Excel 2003 fonctionne bien(toujours en environnement 2007).
Merci d'avance de vos idées. (j'ai pourtant bien regardé le tutoriel de SilkyRoad) :cry:

Le message d'erreur pour la deuxieme requete est :

Citation:

La Methode Execute de l'objet Connection a échoué

ci dessous le code des deux requetes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Requete_Sql_init()
Set cnn = New ADODB.connection
Dim RS As ADODB.Recordset
With Worksheets("Generation Eqlan")
    cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
       req = "select  [Numéro de Config],[Niveau de Service],Zone,Pays,Distance,[Installation simultanée WAN/LAN],[Type d'équipement]" & _
    " from MaTable group by [Numéro de Config],[Niveau de Service],Zone,Pays,Distance,[Installation simultanée WAN/LAN],[Type d'équipement]" & _
    " order by [Numéro de Config],[Niveau de Service],Zone,Pays,Distance,[Installation simultanée WAN/LAN],[Type d'équipement] "
    Set RS = New ADODB.Recordset
    Set RS = cnn.Execute(req)
    .[B3].CopyFromRecordset RS
    RS.Close
    cnn.Close
End With
Set RS = Nothing
Set cnn = Nothing
End Sub

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
Sub Requete_Sql()
Dim cnn As ADODB.connection
Set cnn = New ADODB.connection
Dim RS As ADODB.Recordset
With Worksheets("Generation Eqlan")
    'Cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
   ' Cnn.Open "Provider=Microsoft.jet.oledb.4.0;Data Source=" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
    cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & _
    ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"""
    cnn.Open
 
    req = "select  [Numéro de Config],[Niveau de Service],Zone,Pays,Distance,[Installation simultanée WAN/LAN],[Type d'équipement]" & _
    " from MaTable group by [Numéro de Config],[Niveau de Service],Zone,Pays,Distance,[Installation simultanée WAN/LAN],[Type d'équipement]" & _
    " order by [Numéro de Config],[Niveau de Service],Zone,Pays,Distance,[Installation simultanée WAN/LAN],[Type d'équipement] "
    Set RS = New ADODB.Recordset
    Set RS = cnn.Execute(req)
    .[B3].CopyFromRecordset RS
 
    cnn.Close
End With
Set RS = Nothing
Set cnn = Nothing
End Sub