bonjour a vous tous
en faisant une recherche sur (voir titre du post) j'ai vu le code que sillkyroad a mis dans la faq sur excel 8.0 correspond au version d'excel de 97 a 2002 mais que doit-on mettre pour les versions supérieure comme 2010 et 2013 ci joint son 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
24
25
26
27
Sub TestConnection_V1()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
 
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\monClasseurBase_V01.xls"
 
    Set Cn = New ADODB.Connection
 
    '--- Connexion ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
 
    'Extended Properties=Excel 8.0 est utilisé pour les versions d'Excel 97, 2000 et 2002.
 
    '
    '... la requête ...
    '
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
End Sub
et le mien qui bloque
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Set POMPE = New ADODB.Connection
 With POMPE
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .ConnectionString = "Data Source=" & CLIENT_CHOISI & ";Extended Properties=Excel 8.0;"""
 
  .Open
 End With
Merci de votre compréhension

Pascal