Discussion :

[comme de bien entendu]

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)

Le message d'erreur pour la deuxieme requete est :

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

ci dessous le code des deux requetes

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

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

[comme de bien entendu]

Bonjour,
J'ai été un peu lapidaire dans l'ecriture de ma question :
J'ai deux modes de connection SQL dont l'une ne marche pas :
Chacune des connections est affiché dans le post sous forme d'une procédure.

Merci de me dire pourquoi celle qui est en connection type Excel 2003 fonctionne et l'autre pas.