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.

[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