Exporter une table vers un fichier excel

Messages postés
4
Date d'inscription
jeudi 14 avril 2005
Statut
Membre
Dernière intervention
15 avril 2005
- - Dernière réponse : toffe25
Messages postés
2
Date d'inscription
mardi 26 octobre 2004
Statut
Membre
Dernière intervention
17 avril 2012
- 17 avril 2012 à 12:22
Je voudrai créer un formulaire qui permette d'exporter une ou plusieurs tables de ma base de données vers un fichier excel.
Comment puis-je récupérer le nom de toutes mes tables dans une zone de liste?
Merci d'avance...
Afficher la suite 

5 réponses

Messages postés
28
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
2 décembre 2005
0
Merci
Salut,

'Récupération de toutes les tables de ta base

Dim td As TableDefs, nbTables As Long, i as Integer

Set td = Application.CurrentDb.TableDefs
nbTables = td.Count

for i=1 to nbTables
MaListe.addItem td(i).Name
next i

Sachant que le tabledef retourne aussi les tables systèmes qui sont:
MSysRelationships
MSysQueries
MSysObjects
MSysACEs
MSysAccessXML
MSysAccessObjects

Pour les voir : Outils options affichage Objets systèmes

en espérant que ça réponde à ta question...
Tene
Messages postés
4
Date d'inscription
jeudi 14 avril 2005
Statut
Membre
Dernière intervention
15 avril 2005
0
Merci
merci mais t'aurais pas une requete sql plutot?
Messages postés
28
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
2 décembre 2005
0
Merci
comme tu dis, j'ai pas une requête SQL pour ça...

Pour rappel (enfin j'espère):
clause SELECT : SELECT * FROM UneTable

comment veux-tu une requête qui te retourne les tables sachant que dans la requête il faut le nom d'une table, tu peux tjs essayer : SELECT * FROM *; ;-)
Messages postés
4
Date d'inscription
jeudi 14 avril 2005
Statut
Membre
Dernière intervention
15 avril 2005
0
Merci
Merci pr ton humour mais c'est possible de le faire je l'ai fait en cour.
C un truc assez bizard d'ailleur.
Merci quand meme en éspérant pouvoir te venir en aide un jour.....
Messages postés
2
Date d'inscription
mardi 26 octobre 2004
Statut
Membre
Dernière intervention
17 avril 2012
0
Merci
Bonjour,
Si un jour quelqu'un cherche et tombe sur ce message, voici la
solution avec une requête.

SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=1) AND ((Left([Name],4))<>"MSys" And (Left([Name],4))<>"USys"));

La requête est basée sur la table système MSysObjets. On sélectionne tous les objets de type "1" (c'est les tables) et on élimine toutes les tables systèmes (elles commencent soit par "MSys" soit par "USys").

Bonne lecture

Christophe