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 Access To Excel

Access To Excel

3 réponses
Avatar
Yann
Bonsoir,

Je cherche à partir d'une requête access de remplir une cellule d'une
feuille excel.

Par exemple, la requête calcule la somme des ventes de l'années. J'aimerais
savoir comment envoyer ce montant dans Excel (une cellule d'une feuille).

Vous connaissez des solutions ?


Merci d'avance.

Yann
Signaler un problème avec ce contenu

3 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
Avatar
Mona
Salut, tu peux te baser la dessus:

Dim appExcel As Object
Set appExcel = CreateObject("Excel.Application")

Set rst = db.OpenRecordset("TaRequete")

appExcel.Workbooks.Open ("Un path vers un doc vide .xls") 'Ou tu en
creer un nouveau

appExcel.ActiveSheet.Range("A1") = rst("Un Champ de ta requete")

'Ici c'est un exemple si tu veux mettre une formule dans une cellule
appExcel.ActiveSheet.Range("G" & intLigne + 5).Formula = "=SUM(G5:G" &
intLigne & ")"

appExcel.Visible = True

On Error Resume Next
appExcel.UserControl = True



bye bye

Mona


Bonsoir,

Je cherche à partir d'une requête access de remplir une cellule d'une
feuille excel.

Par exemple, la requête calcule la somme des ventes de l'années. J'aimerais
savoir comment envoyer ce montant dans Excel (une cellule d'une feuille).

Vous connaissez des solutions ?


Merci d'avance.

Yann





Avatar
Jessy Sempere [MVP]
Bonjour

Je rajouterais juste de surtout ne pas oublier de libérer la variable
objet que tu as créé en utilisant :

set appexcel = nothing

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Mona" a écrit dans le message news:

Salut, tu peux te baser la dessus:

Dim appExcel As Object
Set appExcel = CreateObject("Excel.Application")

Set rst = db.OpenRecordset("TaRequete")

appExcel.Workbooks.Open ("Un path vers un doc vide .xls") 'Ou tu en
creer un nouveau

appExcel.ActiveSheet.Range("A1") = rst("Un Champ de ta requete")

'Ici c'est un exemple si tu veux mettre une formule dans une cellule
appExcel.ActiveSheet.Range("G" & intLigne + 5).Formula = "=SUM(G5:G"
&

intLigne & ")"

appExcel.Visible = True

On Error Resume Next
appExcel.UserControl = True



bye bye

Mona


Bonsoir,

Je cherche à partir d'une requête access de remplir une cellule d'une
feuille excel.

Par exemple, la requête calcule la somme des ventes de l'années.
J'aimerais


savoir comment envoyer ce montant dans Excel (une cellule d'une
feuille).



Vous connaissez des solutions ?


Merci d'avance.

Yann







Avatar
castielmiller
Le mardi 05 Octobre 2004 à 23:36 par Yann :
Bonsoir,
Je cherche à partir d'une requête access de remplir une cellule
d'une
feuille excel.
Par exemple, la requête calcule la somme des ventes de l'années.
J'aimerais
savoir comment envoyer ce montant dans Excel (une cellule d'une feuille).
Vous connaissez des solutions ?
Merci d'avance.
Yann
With Access to Excel Conversion, one can effortlessly import MS Access files into XLSX file format. The utility takes a few minutes to Migrate Access MDB and ACCDB files to Excel file format. The entire data of Access is comfortably exported into Excel file format. The tool has 4-5 straightforward steps to import Access data to Excel file format add Access file, preview data, enter-output location, and hit Migrate Now button.
More Info:- https://www.softakensoftware.com/access-to-excel-converter.html