Extended Properties=Excel 8.0

Version imprimable

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:

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:

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

07/04/2014, 18h40
XLRATOR

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

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

Cordialement.
Karim

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:

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

07/04/2014, 20h19
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

bonsoir clement et xlrator

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

Code:

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

07/04/2014, 20h41
XLRATOR

Oulala J'ai eu chaud, 8O
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.
08/04/2014, 15h50
grisan29

bonjour xlrator

c'est normal que je donne ma solution car ce forum est fait d'entraide et pour l'entraide
c'est ce qu'a mis clementmarcotte dans le bas de son post auquel j'ai été voir ses liens après ma publication et donnait également une solution viable

Pascal