Discussion :

[Aeltith]

Bonjour


Juste une question technique et aussi de syntaxe.

Je dois interroger une fichier Access pour utiliser des données. Normalement je fais une extraction du dossier et le met en format.xls pour bosser dessu à partir d'un autre fichier .xls.


Hors là la table Access que je souhaite interroger fais 1.659.000 lignes

Donc biensur je ne peux pas faire tenir sa sur une feuille Excel

Je veux savoir si il est possible d'interroger une table Access pour en retirer des informations ??

Thanks

[SilkyRoad]

bonjour


Tu peux faire ta requète directement depuis Excel sans avoir besoin de tout importer :

http://excel.developpez.com/faq/?page=Access

http://cafeine.developpez.com/access/tutoriel/excel/


Si besoin, tu peux indiquer le nombre de lignes maxi par feuille de calcul (ici 65536) et créer plusieurs feuilles pour tout importer:

Code :

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

1
2
3
4
5
6
7
8
'boucle sur le résultat de la requete
While Not Rs.EOF
    'Ajout Feuille
    Worksheets.Add
    'Ecriture des données dans la feuille
    '65536 spécifie le nombre de lignes par feuille
    ActiveSheet.Range("A1").CopyFromRecordset Rs, 65536
Wend

bonne soirée
michel

[Aeltith]

Ok merci je vais jeter un oeil sur les deus liens. Pour l'exportation vers Excel j'ai essayé (avant de lire ton message), et partir de ma table Access de 1.659.000 lignes j'ai exporté vers Excel mais j'avais obtenu que 16k lignes sur une seule feuille de calcul


Je vais essayé ton code. Parcontre je dois le copier ce code sur Access ??

je manque de pratique de VBA sur Access mais je me débrouille correctement sur Excel, mais par exemple j'ai ouvert ma requete en mode création, et lorsque je suis dessus j'ai ouvert Visual Basic Editor, mais je n'ai pas pu ouvrir de feuille pour le code ?? Pareil lorsque j'étais sur ma table !

Quelle est donc la procédure pour afficher le code ??

Sinon ce que tu m'a donné à l'air de correspondre faut juste que je puisse l'appliquer en réel

En attendant je me jète sur tes liens !

thanks

J'ai regardé les liens, ils proposent diffénretes solutions pour mon problème. j'ai testé microsoft query et le copier mais je rencontre le problème de la taille des fichiers.

J'ai alors essayé de mettre le code que tu as fourni.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_AfterXmlImport(ByVal Map As XmlMap, ByVal IsRefresh As Boolean, ByVal Result As XlXmlImportResult)
While Not Rs.EOF
    'Ajout Feuille
    Worksheets.Add
    'Ecriture des données dans la feuille
    '65536 spécifie le nombre de lignes par feuille
    ActiveSheet.Range("A1").CopyFromRecordset Rs, 65536
Wend
End Sub

Cependant j'ai du faire une erreur car elle ne marche pas.

Juste une précission sinon.

Je me suis focalisé pour le moment sur l'import de ma base d'access vers excel. Mais sinno dans un code VBA, est il possible d'interroger ma table Access ??

J'ai besoin de faire une fonction find dans une colonne de ma table Access, et de récupérer des infos. je sais le faire dans un fichier Excel pas de soucis, mais si je peux le faire sur la table Access meme alors très bien.

[Invité]

Bonjour

Pour interroger une base Access, une solution (et l'idéal) est de passer par DAO, dont voici l'article: http://warin.developpez.com/access/dao/

En faite il n'y a pas de Find pour Access, il faut que tu interroges ta table à la l'aide d'une requête SQL, et ton critère de recherche sera dans la clause Where de celle-ci.

Je t'invite à consulter la FAQ Access (lien dans ma signature) et aller faire un tour du coté du forum Access, où tu auras de nombreuses réponses à tes questions.

Philippe

[Aeltith]

Merci !

Je commence la lecture de l'article DAO qui à l'air très riche.

SilkyRoad est ce que néanmoins tu pourrais juste me dire comment je dois utiliser le code que tu m'as donné.

A très court terme (avant que je finisse de lire l'article) ça va me servir !



Merci je laisse ouvert j'aurai sans doute des remarques ou autre...

[SilkyRoad]

rebonjour

SilkyRoad est ce que néanmoins tu pourrais juste me dire comment je dois utiliser le code que tu m'as donné.

tu places la procédure dans un module standard du classeur Excel et tu actives la référence "Microsoft ActiveX Data Objects x.x Library"
Dans l'éditeur de macros,
Menu Otils
Références
Sélectionne la ligne "Microsoft ActiveX Data Objects x.x Library"
Clique sur le bouton OK pour valider.



bon après midi
michel