Discussion :

[fred65200]

Messages extraits de cette discussion.

M Fauconnier,
J'essaie votre code et je me pose quelques questions.

Faut il ajouter des références au classeur pour utiliser ce code.
Si oui la(les)quelle(s).

J'ai un message d'erreur qui me dit
"Pilote ISAM introuvable"
Savez vous ce que cela signifie ?

Ce code est il adapté pour Excel 12 ?
D'avance merci

[Pierre Fauconnier]

Bonsoir

Avec Excel 2003, on peut utiliser la référence "Excel 8.0"
Avec Excel 12 (2007, je suppose), il faut peut-être mettre "Excel 9.0"...

Attention à bien mettre les doubles guillemets, ils font partie de la chaîne...

Il faut aussi faire attention au petit signe qui encadre le nom de la table (accent grave sans lettre)

Ok?

[fred65200]

Rebonsoir
A priori avec Excel 2007 il faut mettre

Code :

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

1
2
3
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
      "Data Source=C:\Users\Fred\Documents\xxx\Clients.xlsm;" & _
      "Extended Properties=""Excel 12.0;HDR=NO;"""

HDR=NO en pius
Maintenant une erreur de type
"Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence demandé" - ERREUR 3265

Faut il ajouter une référence?

Merci

[Pierre Fauconnier]

Dans mon code, j'utilise CreateObject pour éviter de devoir cocher des références.

Je n'ai pas encore testé en 2007 et je n'ai pas accès à cette machine pour l'instant. Je ne sais donc pas tester le code proposé.

Le nom du provider m'intrigue et ne me semble pas correct.

Je viens de faire de faire une recherche et j'ai trouvé
http://www.developpez.net/forums/sho...34&postcount=1 qui pourrait te convenir...

Ok?
[EDIT] A mon avis, dans l'exemple de Silkyroad, la ligne

Code :

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

1
2
 
.provider=microsoft.jet.oledb.4.0

est de trop. La propriété HDR est YES au lieu de NO (par défaut)...

Cela t'aide-t-il?
[/EDIT]

[fred65200]

Après relecture de votre post

Autrement dit, la feuille dans laquelle tu vas rechercher des données:
- commence-t'elle en A1?
- contient-elle en colonne A l'identificateur unique de l'enregistrement?
- contient-elle en ligne 1 les intitulés des colonnes, sans discontinuité entre la colonne A et la dernière colonne de la table?
- Chaque ligne contient-elle bien une valeur en colonne A?

Je répondais Vrai, Faux, Vrai, Vrai

J'ai donc corrigé
Et ai toujours la même erreur.

à la ligne
Debug.Print rs!prenom
J'ai bien un "champ" prenom (en E1) avec la même casse et la même orthographe.

une piste?
D'avance merci

[fred65200]

HRD=YES est la solution.
ça fonctionne.

un grand merci pour votre aide et votre lien.

Entre temps j'ai aussi trouvé http://silkyroad.developpez.com/VBA/ClasseursFermes/

Maintenant je vais essayer de trouver comment extraire une seule ligne.

Bonne nuit

[Pierre Fauconnier]

Pour trouver une seule ligne, tu peux utilise la méthode FIND de l'objet Recordset. Si tu as dans une colonne (A de préférence) une donnée unique (clé primaire), la recherche est rapide.

En fait, si tu connais un peu ADO, tu utilises le recordset sur le fichier excel comme tu l'utiliserais sur une base Access, MSSQL ou autre. C'est l'avantage d'utiliser ADO.

Si tu ne connais pas trop, il y a d'excellents tutoriels sur www.developpez.com.

Bon travail

[fred65200]

Merci,
Je découvre (avec quelques années de retard) ADO.
Merci pour la piste Find, Je cherche, et si je ne m'en sors pas j'ouvrirai un autre post.

Cordialement FC

[Pierre Fauconnier]

Salut.

Note que tu peux aussi créer un recordset qui ne renvoie qu'une seule ligne avec la clause WHERE.

Code :

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

1
2
3
4
5
6
 
dim cn as new adodb.connection
dim rs as new adodb.recordset
 
cn.open "provider=..."
rs.open "select * from MaTable where id = 4",cn, ...

La puissance des requêtes SQL te permet de ne récupérer dans le recordset que les enregistrements dont tu as besoin.

L'intérêt de la connexion via ADO est que l'échange est dans les deux sens, et donc que tu peux lire un fichier fermé, mais également modifier ou ajouter des enregistrements dans le classeur fermé