Discussion :

[Gabout]

Bonjour,

Je cherche à créer un export au format XLS. Bien sûr, je peux disposer de la commande DoCmd.OutputTo et utiliser une requête. Mais je voudrais savoir s'il existe une solution pour ne pas utiliser une requête enregistrée mais directement depuis le code en utilisant la requête SQL.

Ci-dessous ce qui fonctionne... mais en utilisant une requête enregistrée et la requête déclarée sSQL que je voudrais pourvoir utiliser.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmdExportXLS_Click()
    'Exporter vers un fichier au format XLS
    Dim sFichier As String
'    Dim sSQL As String
'    sSQL = "SELECT tblCTL.ctlcasid, tblCTL.ctlid, tblELE.eleref, tblELE.elelib, tblTYP.typlib, tblVER.verlib, tblCTL.ctlnot, tblCTL.ctlobs " & _
'        "FROM (tblTYP INNER JOIN tblVER ON tblTYP.typid = tblVER.vertypid) INNER JOIN ((tblELE INNER JOIN tblMOD ON tblELE.eleid = tblMOD.modeleid) INNER JOIN tblCTL ON tblMOD.modid = tblCTL.ctlmodid) ON tblVER.verid = tblMOD.modverid " & _
'        "WHERE (((tblCTL.ctlcasid) = " & Me.casid & ")) " & _
'        "ORDER BY tblELE.eleref, tblTYP.typlib, tblVER.verlib;"
    sFichier = CurrentProject.Path & "\VS" & Format(Me.casdat, "yyyymmdd") & "_" & Me.sitlib & ".xls"
    DoCmd.OutputTo acOutputQuery, "qryExportXLS", acFormatXLS, sFichier
End Sub

Une idée ?

[Gabout]

Re,

J'ai trouvé cette méthode, elle fonctionne mais je pensais qu'il devait y avoir quelque chose de plus direct, sans passer par une requête enregistrée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmdExportXLS_Click()
    'Exporter vers un fichier au format XLS
    Dim sFichier As String
    Dim sSQL As String
    sSQL = "SELECT tblCTL.ctlcasid, tblCTL.ctlid, tblELE.eleref, tblELE.elelib, tblTYP.typlib, tblVER.verlib, tblCTL.ctlnot, tblCTL.ctlobs " & _
        "FROM (tblTYP INNER JOIN tblVER ON tblTYP.typid = tblVER.vertypid) INNER JOIN ((tblELE INNER JOIN tblMOD ON tblELE.eleid = tblMOD.modeleid) INNER JOIN tblCTL ON tblMOD.modid = tblCTL.ctlmodid) ON tblVER.verid = tblMOD.modverid " & _
        "WHERE (((tblCTL.ctlcasid) = " & Me.casid & ")) " & _
        "ORDER BY tblELE.eleref, tblTYP.typlib, tblVER.verlib;"
    sFichier = CurrentProject.Path & "\VS" & Format(Me.casdat, "yyyymmdd") & "_" & Me.sitlib & ".xls"
    CurrentDb.CreateQueryDef "MaRequete", sSQL
    DoCmd.OutputTo acOutputQuery, "MaRequete", acFormatXLS, sFichier
    CurrentDb.QueryDefs.Delete "MaRequete"
End Sub

Si quelqu'un a une meilleure idée, je suis toujours preneur...

[Heureux-oli]

Ici une solution ?

[Gabout]

Bonjour Heureux-oli et merci de t'être penché sur mon problème,

J'avais parcouru le tutoriel Communication entre Access et Excel et je n'y avais pas trouvé la solution "sans passer par une requête enregistrée".

Je pense que pour l'instant, je vais conserver ma solution. Le but de cette partie de traitement est de proposer à des contrôleurs un fichier de vérifications que je réintègrerai un fois qu'ils l'auront complété (ils n'ont pas accès au réseau).

Un export en premier lieu, puis un import (mise à jour) en vérifiant (ce qui ne va pas être le plus simple) que le fichier n'a pas été altéré.... du boulot sur la planche (surtout pour un autodidacte complet).

Encore merci de ton aide

[Heureux-oli]

Tu peux le faire avec une requête non enregistrée, mais en passant par du DAO.

Et avec le DAO, tu peux le faire dans les deux sens, partir d'Access vers Excel et de Excel vers Access.

Peut-être une autre lien ici

[Invité]

Bonjour,

Une petit piste en complément des liens d'Heureux-Oli, l'utilisation de la méthode CopyFromRecordset de l'objet Range d'Excel grâce au lien qui t'a été donné sur DAO.

Il te faut donc piloter Excel. Tu trouveras des exemples de pilotage dans la

Starec

[Gabout]

Merci pour vos bons conseils Heureux-oli et Starec.

Il ne me reste plus qu'à plancher...