Code pour export Excel d'une requête Access ?

Résolu/Fermé
Signaler
Messages postés
15
Date d'inscription
mercredi 24 mars 2010
Statut
Membre
Dernière intervention
15 novembre 2010
-
Messages postés
15
Date d'inscription
mercredi 24 mars 2010
Statut
Membre
Dernière intervention
15 novembre 2010
-
Bonjour à tous,

Je travaille actuellement sur une base Access et je me suis créé un formulaire avec des boutons qui lance directement des requêtes.

Cela marche mais je souhaiterais que la requête se lance directement en export sous Excel, juste avant le choix de l'enregistrement du fichier sur l'ordinateur.

J'ai essayé avec la fonction "Domcmd.TransferSpreadsheet" etc. mais je n'y arrive pas malgré avoir regardé de nombreux topics...

Je précise que je suis débutant, voici mon code qui lance la requête :

Private Sub LIA_01_Click()
On Error GoTo Err_LIA_01_Click

Dim stDocName As String

stDocName = "* LIA01 INTERLOC > 23 J"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_LIA_01_Click:
Exit Sub

Err_LIA_01_Click:
MsgBox Err.Description
Resume Exit_LIA_01_Click

End Sub

Que dois rajouter et où pour lancer directement un export sous Excel 97-2003 avant enregistrement ?

Merci d'avance de votre aide

Cordialement

Edy360

2 réponses

Messages postés
23778
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
26 novembre 2021
3 147
Salut,

DoCmd.TransferSpreadsheet acExport, , "* LIA01 INTERLOC > 23 J","C:\toto.xls", True
devrait faire l'affaire...

A une nunace près, je ne saisis pas ce que tu entends par exporter avant enregistrement, c'est 'enregistrement de quoi' ?
Messages postés
15
Date d'inscription
mercredi 24 mars 2010
Statut
Membre
Dernière intervention
15 novembre 2010

Bonjour,

Au fait je voulais dire que je voulais m'arrêter à la page où il demande où est-ce que le fichier Excel doit être enregistré. Avant de voir ta réponse et en fouillant j'ai trouvé :

DoCmd.OutputTo acOutputQuery, stDocName, acFormatXLS, , True à<gras> la
place de DoCmd.OpenQuery stDocName, acNormal, acEdit

Ce qui revient à la même chose mais sans indiquer un emplacement d'enregistrement.

Merci beaucoup pour ton aide en tout cas.

A plus

Edy 360