Discussion :

[darkphenx]

Bonjour,

Je voudrais créer un objet temporaire (createquerydef) afin de l'exporter ensuite vers XL.
Le problème est que un projet Access (ADP, avec MSDE) cela ne semble pas fonctionner.

L'export d'une table complete fonctionne mais impossible de créer le recordset.
Comment peut-on faire ?

Code :

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

1
2
3
4
5
    Dim MaBd As Database
    Dim MaTable As Recordset  
 
    Set MaBd = CurrentDb
    Set MaTable = MaBd.CreateQueryDef("Test", "select * From ValeursEcran;")

Merci d'avance,

[mathieu44800]

Bonjour,

Essayes peut être en ADO

Code :

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

1
2
 
Dim matable as ADODB.RecordSet

[darkphenx]

Merci,
J'avais déjà essayé en ADO.

Mais là, l'objet MaBd prend une valeur null avec currentDb()

Si je déclare MaBd en New ADODB.Connection alors la base est bien liéé mais sur méthode createquerydef alors j'ai le message d'erreur "arguments incorrects".

Code :

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

1
2
3
4
5
Dim MaBd As New ADODB.Connection
    Dim matable As new ADODB.Recordset
 
    Set MaBd = Application.CurrentProject.Connection
    Set matable = MaBd.CreateQueryDef("Test", "select * From ValeursEcran;")

Merci de votre aide.

[cbleas]

Bonsoir essaie avec directement le sql

Code :

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

1
2
3
4
5
6
Dim MaBd As New ADODB.Connection
    Dim matable As new ADODB.Recordset
 
    Set MaBd = Application.CurrentProject.Connection
 
meBd.execute "create view Test as select * From ValeursEcran"

Bonne soirée

[darkphenx]

[21/08/2007 09:48:43] IDSoft - Jeanniot Olivier a dit : Merci, cela fonctionne pour la création de la vue, mais le problème est que je veux exporter ces données sous excel :

Code :

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

1
2
3
    Set MaBd = Application.CurrentProject.Connection
    MaBd.Execute "create view Test as select * From ValeursEcran"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "test", CheminFichierExcel, True

Le soucis est que je ne trouve pas de fonction permettant cet export.
Sauf si on exporte la table completement.

Code :

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

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "ValeursEcran"", CheminFichierExcel, True

Mais je voudrais n'exporter que certaines données d'où la requete SQL, ou un objet temporaire.
Je ne sais pas si faisable car je n'ai jamais vu cela avec MSDE et fichier ADP.

[Invité]

Bonjour

As-tu lu ce tuto de Caféine ? : http://cafeine.developpez.com/access/tutoriel/excel/
Je ne sais pas s'il est utilisable sur un projet ADP, mais fais le test, va à la rubrique Automation.
Je pense que c'est faisable en récupérant les données de ta vue dans un recordset.

Starec

[darkphenx]

Merci beaucoup, Cela fonctionne.
A+