Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Résultat requête

Résultat requête

21 réponses
Avatar
lolo_bob2
Bonjour

Je souhaiterais envoyer le r=E9sultat d'une requ=EAte dans excel est ce
que cela est possible =E0 partir d'un bouton sur un formulaire ?

Merci de votre aide

A++

Lolo
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Thierry (ze Titi)
Salut lolo_bob2 !

Bien sûr ! La ligne suivante transfert la requête "la requête" vers le fichier "nomDuFichier.xls" et ouvre Excel avec le fichier obtenu.
DoCmd.OutputTo acOutputQuery, "la requête", acFormatXLS, "nomDuFichier.xls", True

Pour empêcher l'ouverture, tu remplaces True par False.

Voilou !

Bonjour

Je souhaiterais envoyer le résultat d'une requête dans excel est ce
que cela est possible à partir d'un bouton sur un formulaire ?

Merci de votre aide

A++

Lolo


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info

Avatar
lolo_bob2
Bonsoir ze Titi Thierry

Merci pour ton aide. Encore une question j'envoi avec ma requête 6
Colonnes est ce que c'est possible d'envoyer ma requête que sur les 6
première colonne et de rajouter d'autre colonne ensuite.
Deuxième question je voudrais créer une autre feuille dans mon fichier
mais à chaque envoi de ma requête, il m'écrase l'ensemble diu fichier.
Est ce que c'est possible de demander d'envoyer vers une feuille bien
précise ?

Merci de ton aide

A+

Lolo
Avatar
Thierry (ze Titi)
Hello lolo_bob2 !

Du peu que je connaisse, je ne pense pas que ça soit possible. Dans ce
genre de cas, je pense que seul l'automation peut répondre à ton
problème. Mais je n'en suis pas certain. Si je me trompe, les MVP me
remettront d'équerre...

En ce jour mémorable du mardi 10/07/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonsoir ze Titi Thierry

Merci pour ton aide. Encore une question j'envoi avec ma requête 6
Colonnes est ce que c'est possible d'envoyer ma requête que sur les 6
première colonne et de rajouter d'autre colonne ensuite.
Deuxième question je voudrais créer une autre feuille dans mon fichier
mais à chaque envoi de ma requête, il m'écrase l'ensemble diu fichier.
Est ce que c'est possible de demander d'envoyer vers une feuille bien
précise ?

Merci de ton aide

A+

Lolo


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info

Avatar
Raymond [mvp]
Bonjour Thierry (tu vas bien ?).

juste une précision.
à la première question, il n'est pas possible de faire un export vers une
plage excel. tout export démarre à la cellule A1 et écrase les valeurs
existantes.
à la deuxième question, il est possible de faire un export vers excel dans
une feuille précise, existante ou non, en indiquant son nom dans l'option
Range en fin de commande.
et je ne me rappelle plus s'il faut ajouter le ! après le nom de la feuille
comme "Mafeuille!", c'est à vérifier.
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"Thierry (ze Titi)" a écrit dans le
message de news:
| Hello lolo_bob2 !
|
| Du peu que je connaisse, je ne pense pas que ça soit possible. Dans ce
| genre de cas, je pense que seul l'automation peut répondre à ton
| problème. Mais je n'en suis pas certain. Si je me trompe, les MVP me
| remettront d'équerre...
|
| En ce jour mémorable du mardi 10/07/2007, tu as entrepris la lourde
| tâche de taper sur ton clavier :
| > Bonsoir ze Titi Thierry
| >
| > Merci pour ton aide. Encore une question j'envoi avec ma requête 6
| > Colonnes est ce que c'est possible d'envoyer ma requête que sur les 6
| > première colonne et de rajouter d'autre colonne ensuite.
| > Deuxième question je voudrais créer une autre feuille dans mon fichier
| > mais à chaque envoi de ma requête, il m'écrase l'ensemble diu fichier.
| > Est ce que c'est possible de demander d'envoyer vers une feuille bien
| > précise ?
| >
| > Merci de ton aide
| >
| > A+
| >
| > Lolo
|
| --
| Cordialement,
| Thierry
|
| Tout pour réussir avec Access :
| http://www.mpfa.info
|
|
Avatar
Thierry (ze Titi)
Hello Raymond !

Ca va bien mais c'est la course au boulot, vive les migrations !
Comment vas-tu toi ?

Je me suis trompé, merci de m'avoir remis dans le droit chemin !

En ce jour mémorable du mercredi 11/07/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonjour Thierry (tu vas bien ?).

juste une précision.
à la première question, il n'est pas possible de faire un export vers une
plage excel. tout export démarre à la cellule A1 et écrase les valeurs
existantes.
à la deuxième question, il est possible de faire un export vers excel dans
une feuille précise, existante ou non, en indiquant son nom dans l'option
Range en fin de commande.
et je ne me rappelle plus s'il faut ajouter le ! après le nom de la feuille
comme "Mafeuille!", c'est à vérifier.
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"Thierry (ze Titi)" a écrit dans le
message de news:
Hello lolo_bob2 !

Du peu que je connaisse, je ne pense pas que ça soit possible. Dans ce
genre de cas, je pense que seul l'automation peut répondre à ton
problème. Mais je n'en suis pas certain. Si je me trompe, les MVP me
remettront d'équerre...

En ce jour mémorable du mardi 10/07/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonsoir ze Titi Thierry

Merci pour ton aide. Encore une question j'envoi avec ma requête 6
Colonnes est ce que c'est possible d'envoyer ma requête que sur les 6
première colonne et de rajouter d'autre colonne ensuite.
Deuxième question je voudrais créer une autre feuille dans mon fichier
mais à chaque envoi de ma requête, il m'écrase l'ensemble diu fichier.
Est ce que c'est possible de demander d'envoyer vers une feuille bien
précise ?

Merci de ton aide

A+

Lolo


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info





--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info



Avatar
Raymond [mvp]
toujours tranquille et plus il y a de personnes comme toi, plus je me sens
calme et serein.

--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"Thierry (ze Titi)" a écrit dans le
message de news:
| Hello Raymond !
|
| Ca va bien mais c'est la course au boulot, vive les migrations !
| Comment vas-tu toi ?
|
| Je me suis trompé, merci de m'avoir remis dans le droit chemin !
|
Avatar
lolo_bob2
Merci pour votre aide

Mais n'y connaissant rien en VBA je pense que ça va être dur...
Pouvez vous me donner une indication sur le code car je vois pas
comment intégrer la partie manquante...

Merci encore

A++

Lolo
Avatar
Raymond [mvp]
si tu ne connait pas le vba, ça va être très dur.
garde le moral.
commence par lire les pages http://officesystem.access.free.fr/vba/excel.htm
et toutes les pages connexes.
si ça ne va pas, reviens nous voir.

--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"lolo_bob2" a écrit dans le message de news:

Merci pour votre aide

Mais n'y connaissant rien en VBA je pense que ça va être dur...
Pouvez vous me donner une indication sur le code car je vois pas
comment intégrer la partie manquante...

Merci encore

A++

Lolo
Avatar
lolo_bob2
Merci Raymond

Voici le code que j'ai fais:

Dim conn As New ADODB.Connection
Dim Rs As ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S:
QUALITESERVICELAURENTRéclamations Clients.mdb" & ";"
conn.CursorLocation = adUseClient
Set Rs = conn.Execute("clients", , adCmdTable)
Dim XL_App As Object
Set XL_App = CreateObject("Excel.Application")
Dim XL_classeur As Object
Dim XL_feuille As Object
With XL_App
Set XL_classeur = .Workbooks.Open("indicateurRC.XLS")
Set XL_feuille = XL_classeur.Sheets("Janvier")
With XL_feuille
XL_feuille.Range("A1").CopyFromRecordset Rs
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Rs.Close
conn.Close
Set XL_App = Nothing
Set XL_classeur = Nothing
Set XL_feuille = Nothing
End Sub

mais j'ai une erreur de à ce niveau là il me dis que ma base est
introuvable...j'ai bien activé le Microsoft Activex Data Objects 2.7
Library
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S:QUALITE
SERVICELAURENTRéclamations Clients.mdb" & ";"

Merci de ton aide
A++
Lolo
Avatar
Raymond [mvp]
je viens de tester la procédure, elle fonctionne correctement.

tu dois avoir une faute de frappe à quelque part ici:
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
"S:QUALITESERVICELAURENTRéclamations Clients.mdb" & ";"

vérifies le chemin complet.
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"lolo_bob2" a écrit dans le message de news:

Merci Raymond

Voici le code que j'ai fais:

Dim conn As New ADODB.Connection
Dim Rs As ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S:
QUALITESERVICELAURENTRéclamations Clients.mdb" & ";"
conn.CursorLocation = adUseClient
Set Rs = conn.Execute("clients", , adCmdTable)
Dim XL_App As Object
Set XL_App = CreateObject("Excel.Application")
Dim XL_classeur As Object
Dim XL_feuille As Object
With XL_App
Set XL_classeur = .Workbooks.Open("indicateurRC.XLS")
Set XL_feuille = XL_classeur.Sheets("Janvier")
With XL_feuille
XL_feuille.Range("A1").CopyFromRecordset Rs
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Rs.Close
conn.Close
Set XL_App = Nothing
Set XL_classeur = Nothing
Set XL_feuille = Nothing
End Sub

mais j'ai une erreur de à ce niveau là il me dis que ma base est
introuvable...j'ai bien activé le Microsoft Activex Data Objects 2.7
Library
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "S:QUALITE
SERVICELAURENTRéclamations Clients.mdb" & ";"

Merci de ton aide
A++
Lolo
1 2 3