Discussion :

[jojo86]

Bonjour,
J'utilise une méthode de connexion à une base excel qui fonctionne très bien sous 2003 mais qui plante sur 2010...

Voici le code (issu de la FAQ)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ConnexionBase()
Dim Fichier As String
Dim Reponse As Integer
    Fichier = FichierBase '
    Set Cn = New ADODB.Connection
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0"
        .Open (openstatic) 'ERREUR SUR CETTE LIGNE
    End With
    'Définit la requête.
    Set Rst = New ADODB.Recordset
End Sub

Le fichier marche très bien sous 2003. L'erreur que j'ai sur le 2010 c'est :

Erreur d'execution 3706.
Impossible de trouver le fournisseur. Il est peut être mal installé.

Pouvez vous m'aider?
Peut être faut-il changer la methode de connexion pour 2010?

Merci beaucoup.

[jfontaine]

Bonjour,

Cette méthode fonctionne sous Excel 2010. (Avec des fichiers en extension .xls)

Fonctionne chez moi avec "Microsoft ActiveX Data Objects 2.1 library".
Quelle version as tu utilisée?

[jojo86]

J'étais en 2.8, j'ai décoché et coché 2.1 mais le soucis est le même...

[jojo86]

J'ai Office 2003 et 2007 installés sur le même poste ça viendrait pas de ça si?

[BlueMonkey]

Bonsoir,

Une autre piste :si le PC est un système 64 bits, il est possible que le problème est que le vieux pilote JEt 4.0 ne fonctionne pas sur les machine 64 bits. (source)

Solution :
installer Microsoft Access Database Engine 2010 Redistributable, et utiliser la propriété

Code :

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

.ConnectionString = "Data Source=" & Fichier & ";Extended Properties=Excel 14.0"

[Edit] Installer plusieurs version d'office sur un même poste pose souvent des problème de stabilité.
Pour information, le pire c'est que la dé-installation d'une version, n'est pas forcémebt sans conséquence pour les autres.
Donc ça peut aussi être la source du problème actuel.

[jojo86]

Oui c'est un système 64bit... saloperie !
Le fichier Database engine, je suppose qu'il faut des droits d'administrateur pour l'installer??? (je développe sur mon pc, mais j'ai peur qu'au travail nous ayons les mêmes problèmes...)
Je suis en train de telecharger le fichier, je vous tiens au jus !

[BlueMonkey]

Le fichier Database engine, je suppose qu'il faut des droits d'administrateur pour l'installer???

Je le suppose également.

c'est un système 64bit... saloperie !

A chaque problème sa solution ... jusqu'au prochain problème.

[jojo86]

Même problème...

[BlueMonkey]

Est-ce qu'il est possible de faire un essais avec les informations ci-dessous :

Code :

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

1
2
3
4
5
6
    Set Cn = New ADODB.Connection
    With Cn
	.Provider = "MSDASQL"
	.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & "DBQ=" & App.Path & "\" & Fichier
        .Open (openstatic) 'pas d'erreur sur cette ligne ?
    End With

source