Discussion :

[naoy93]

Bonjour, j'ai fais à mon stage un programme afin de récupérer les données d'un autre fichier Excel fermé, j'ai utilisé ADO, ledit programme marche bien sur Excel2003, mais pas chez moi sur excel 2010, Comment y remédier ?

J'ai utilisé ce site pour m'y inspirer :
http://boisgontierjacques.free.fr/
a l'index ADO, rien ne marche avec ma version d'excel, ça me met
"Source de données introuvable et nom de pilote non spécifié"

Merci de votre aide

[_C14_]

Il faudrait voir du côté des références en comparant entre les 2 versions les références installées notamment activer sur ton fichier "OLE automation". Au cas ou pour trouver les références, se placer dans l'éditeur de macros, puis menu OUTILS, puis Références, celles qui sont activées sont positionnées en haut du menu avec une coche, cordialement.

[Lynx92260]

Bonjour,

Tout se joue dans la chaine de connexion notamment la partie "Extended Properties='Excel 12.0"

En effet chaque version de microsoft office change au niveau de l'attribut Extended Properties=8.0 ou 12.0 ou 14.0 pour 2003 , 2007 2010 2012

Je pense cela solutionne ton problème de connexion pour lire fichier excel fermé

A vos claviers

[Invité]

http://drq.developpez.com/vb/tutoriels/ADO/

Il faut activer la référence Microsoft AtiveX Data Objects 2.x Library.

[Michel_M]

Bonjour,

à partir de XL2007, il vaut mieux utiliser ce script de connexion

Code :

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

1
2
3
4
5
6
7
8
9
Dim Source as object
 'connection au classeur
     Set Source = CreateObject("ADODB.Connection")
     With Source
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
     End With

[naoy93]

C'est surtout pour les recordset en fait ...

Code :

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

1
2
3
4
5
6
7
8
9
10
    ChDir ActiveWorkbook.Path
    Dim rs As ADODB.Recordset
    Set cnn = New ADODB.Connection
    cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & _
    ThisWorkbook.Path & "\" & "donnees.xls"
 
    Set rs = cnn.Execute("SELECT Projet FROM liste_projet where Projet <>''")
    Sheets("donn").Range("L2:L65536").ClearContents
    Sheets("donn").Range("L2").CopyFromRecordset rs
    cnn.Close

A savoir si l'on peut conserver la même méthode quoi

[Invité]

Bonjour je te suggère d’utiliser cette méthode, là tu n’as pas besoin de tripatouiller les références du projet même tu n’en as pas besoin !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim Connexion
Set Connexion = CreateObject("ADODB.Connection")
Select Case Application.Version
Case "14.0"
    CSTRING = "Version 2010"
Case "10.0"
     CSTRING = "Version ???"
End Select
 Connexion.Open CSTRING
 Set OpenRecordSet = CreateObject("ADODB.Recordset")
  OpenRecordSet.Open Sql, Connexion, 1, 3
End Sub