Exportation des donnees vers Excel (Tables liées)

[l.mnu]

Bonjour,

Je cherche à exporter le résultat d'une requete vers un fichier excel. J'arrive bien quand mes tables sont integrées dans la base, mais je n'ai pas trouvé de solution quand mes tables sont liées à une autre base.

Code :

1
2
3
4
5
6
7
8
 
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Set db = DAO.OpenDatabase(Application.CurrentProject.Path + "\PSC_D.MDB", False, False)
    db.CreateQueryDef "Res", "SELECT * FROM Client, Article where N°_Client = N°_Article"
    DoCmd.OutputTo acOutputQuery, "Res", acFormatXLS, Application.CurrentProject.Path + "\Clients.xls"
    db.QueryDefs.Delete "Res"
    db.Close

Merci d'avance pour votre aide

Laurent

[Alfajac]

Personnellement, j'utilise une requête de création de table.
Une fois créée j'exporte les données vers excel, puis j'efface la table.

Ca a résolu mon problème en attendant de trouver mieux.

[l.mnu]

Bonjour Alfajac,

C'est vrai que c'est une solution mais qui va grossir beaucoup la base de données.

J'espère trouve une autre solution.

Merci

Laurent