Hello everybody,everybody hello
Bon voilà, je suis hyper nul en Acces ,et encore plus à VBa dans Acces.
Je dois exporter un tableau acces dans un tableau Exce, et je ne m' en sors pas. G utilisé le code qui est sur ce site pour essayer de le faire.
mais en fait, je dois créer un jeu de données recordset, c est pour sa que sa marche pas.?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Sub transport() Dim appexcel As Excel.Application Dim wbexcel As Excel.Workbook 'Ne pas oublier de cocher dans le menu Outil/Références, la bibliothèque Microsoft Excel X Object Library (avec x = 8 pour Excel 97, x = 9 pour Excel 2000, x = 10 pour Excel XP, x = 11 pour excès 2003). 'Appel du fichier Excel : Set appexcel = CreateObject("Excel.Application") appexcel.Visible = True Set wbexcel = appexcel.Workbooks.Open("C:\Documents and Settings\LAFONTAINE\Mes documents\testacces") 'Appel de la feuille correspondante : appexcel.Sheets("Feuil1").Select 'Remplissage dans Excel (Exemple à partir d'une requête), sur des cellules bien précises. appexcel.Cells(5, 2) = rst![nom] appexcel.Cells(5, 4) = rst![ville] appexcel.Cells(5, 7) = rst![pays] End Sub
A quoi sert ce jeu de données, ou je dois le créer, j'ai vu le code sur le site pour le faire, mais je sais pas ou le placer.... (chui vraiment trop nul)
Au fait, y a moyen de créer un bouton sur Acces avec Vba, comment on fait, si c'est pas ,trop demandé...
Partager