Code pour export Excel d'une requête Access ?Résolu/Fermé

Question

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

Configuration: Windows XP / Internet Explorer 6.0

blux · Answer

Salut,

DoCmd.TransferSpreadsheet acExport, , "* LIA01 INTERLOC > 23 J","C:	oto.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' ?

Edy360 · Answer

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

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

2 réponses

Newsletters