Discussion :

[grisan29]

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

[XLRATOR]

Bonsoir Grisan,
Je vient de trouver un poste qui parle de "Extended Properties 12.0"

http://www.connectionstrings.com/excel/

Cordialement.
Karim

[grisan29]

bonjour xlrator

merci pour le lien mais j'ai le même problème ca bug a "open" du code mis précédemment voici la partie du code concerné par le bug

erreur d'exécution -21477467259(80004005) pilote isam introuvable

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
Private Sub CommandButton1_Click() ' BOUTON "Valider le choix d'un Client"
Workbooks.Open (REPERTOIRE & "\" & "MATRICES.xls")
ActiveWorkbook.Worksheets("DEVIS").Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
Workbooks("MATRICES.xls").Close
 
If Me.Label1.Caption <> "" Then
CLIENT_CHOISI = Me.Label1.Tag: FEUILLE_A_COPIER = "FICHE"
 
Set POMPE = New ADODB.Connection
 With POMPE
  .Provider = "Microsoft.ACE.OLEDB.12.0"
  '.ConnectionString = "Data Source=" & CLIENT_CHOISI & ";Extended Properties=Excel 12.0;"""
.ConnectionString = "Data Source=" & CLIENT_CHOISI & ";Extended Properties=Excel 12.0 Xml;HDR=YES;IMEX=1"
 
 
  .Open
 End With
 
    CONTENU = "SELECT * FROM [" & FEUILLE_A_COPIER & "$]"
    Set RECUP = New ADODB.Recordset
    Set RECUP = POMPE.Execute(CONTENU)
    Worksheets("FICHE").Range("A2").CopyFromRecordset RECUP
    POMPE.Close
    Set POMPE = Nothing

[clementmarcotte]

Bonjour,

Pour Office 2007 et suivants, tu ne peux pas utiliser le moteur Jet. Il faut passer au moteur ACE.

http://social.msdn.microsoft.com/For...tdataproviders

http://msdn.microsoft.com/fr-fr/libr...0c5574914.aspx

[grisan29]

bonsoir clement et xlrator

je revenais dire que j'avais trouvé la solution par

Code :

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

1
2
3
4
5
6
7
8
9
Set POMPE = New ADODB.Connection
  With POMPE
 
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
      & CLIENT_CHOISI & ";Extended Properties=""Excel 12.0;HDR=YES;"""
 
   .Open
End With

[XLRATOR]

Oulala J'ai eu chaud,
J'ai commencé à croire que c'est un problème d’incompatibilité avec la plate forme du système d'exploitation (x32 - x64), alors que j'affirmais dans une autre discussion qu'il ne devait y avoir ce genre de problème tant que tout s’installe à l'installation du bouquet Office.

Merci Grisan pour l'info.