Utilisation de ADO

Version imprimable

15/05/2013, 21h45
naoy93

Utilisation de ADO

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
15/05/2013, 23h11
_C14_

BONSOIR /BONJOUR

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.
17/05/2013, 17h15
Lynx92260

propriete chaine de connexion

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 :ccool:
17/05/2013, 17h23
Invité

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

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

Bonjour,

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

Code:

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

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

Code:

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

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:

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