Discussion :

[lololebricoleur]

Bonjour,

Je vais probablement poser une question basique mais je ne m'en sors pas.

En VBA Access, de définis requête SQL puis je l'affecte à un champ de type liste dans un formulaire.
Et je voudrais exporter les données de la liste, vers un fichier Excel.
Je pensais faire un DoCmd.OutputTo acOutputQuery... mais le souci c'est que je n'utilise aucune table ni aucune requête existante dans ma BD Access.

Ensuite, j'ai tenté d'utiliser un ADODB.Recordset mais je ne vois pas comment transférer les données de mon Record vers le fichier Excel.

Avez vous une solution simple svp ?

Merci d’avance de votre aide

[hyperion13]

Salut
La méthode ici.

[lololebricoleur]

Merci Hyperion mais non (ou alors je n'ai pas compris)

J'ai bien trouvé cette méthode mais elle nécessite d'utiliser un objet existant (une table ou une requête par exemple).
Dans mon cas, je n'ai ni l'un ni l'autre.
Du coup, j'ai essayé le Recordset mais il n'en veut pas.

[lololebricoleur]

Mon code actuel en méthode recordset mais il ne marche pas.
Bug sur la ligne DoCmd

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Btn_Exporter_Click()
 
    'Déclaration des variables
    Dim Name As String
    Dim Chemin As String
    Dim Con As ADODB.connection
    Dim Jeu_Imp As ADODB.Recordset
 
    'Initialisation ADO
    Set Con = CurrentProject.connection
    Set Jeu_Imp = New ADODB.Recordset
 
    'Sélection des données
    Jeu_Imp.Open SQL, Con, adOpenForwardOnly, adLockReadOnly
 
    Chemin = "C:\Export\"
 
 
    Name = InputBox("Indiquez le nom du fichier à enregistrer :", "Exporter", "ListeECS_" & Replace(Date, "/", "-"))
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, Jeu_Imp.ActiveConnection, Chemin & Name & ".xls"
 
End Sub

[lololebricoleur]

J'utilise une requête SQL pour créer une table temporaire
J'utilise ma table temporaire dans la fonction d'export vers Excel
Je supprime ma table temporaire

[tee_grandbois]

bonsoir,

J'utilise une requête SQL pour créer une table temporaire
J'utilise ma table temporaire dans la fonction d'export vers Excel
Je supprime ma table temporaire

J'ai bien trouvé cette méthode mais elle nécessite d'utiliser un objet existant (une table ou une requête par exemple).
Dans mon cas, je n'ai ni l'un ni l'autre.
Du coup, j'ai essayé le Recordset mais il n'en veut pas.

il serait intéressant de savoir d'où proviennent les données si tu n'utilises pas de tables: est-ce de la saisie directe depuis des contrôles du formulaire ?