Code pour export Excel d'une requête Access ?
Résolu
Edy360
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
Edy360 Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Edy360 Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Code pour export Excel d'une requête Access ?
- Code ascii - Guide
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Word et excel gratuit - Guide
- Code puk bloqué - Guide
2 réponses
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' ?
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' ?
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
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