Access To Excel

[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

[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

"Yann" a écrit :

[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
ne...@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Mona" <Mo...@discussions.microsoft.com> a écrit dans le message news:
A7FED8D5-70C9-48EC...@microsoft.com...

[castielmiller]

Le mardi 05 Octobre 2004 à 23:36 par 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