Discussion :

[kamaxime]

Bonjour,

dans un formulaire j'affiche dans une ListBox le résultat d'une requête.

Je souhaite ajouter dans le formulaire un bouton qui en l'actionnant affiche le résultat de la requête dans Excel.


Quelqu'un aurait-il le code vba permettant de réaliser cette opération? (Le code ouvre Excel et exporte la requête dans une feuille Excel)

Merci d'avance

[chrtophe]

Je te donne le code que j'ai déjà implémenté.

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
24
25
 
Dim xlapp As Object
Dim xlwb As Object
Dim xlsh As Object
 
Set xlapp = CreateObject("Excel.Application")
Set xlwb = xlapp.Workbooks.Add
Set xlsh = xlwb.Worksheets(1)
Set rs = Me.Recordset
 
xlsh.Range("A1").SELECT
intCount = 0
Do Until intCount = rs.Fields.Count
        xlapp.ActiveCell = rs.Fields(intCount).Name
        xlapp.ActiveCell.Offset(0, 1).SELECT
        intCount = intCount + 1
Loop
 
rs.MoveFirst
xlsh.Range("A2").CopyFromRecordset rs
 
xlsh.Range("1:1").SELECT
xlapp.Selection.Font.Bold = True
xlsh.Range("A1").SELECT
xlapp.Visible = True

Il est pas entièrement de moi, je l'ai modifié.
Il te met sur la 1ère ligne les titres des champs ( en gras )

Moi je récupère le contenu du recordset de mon formulaire.

C'est pas tout à fait ton besoin mais ça doit être adaptable.

Il te faut récuperer les éléments de ta listbox avec une boucle, et trouver la fonction plaçant une valeur dans une cellule précise du doc Excel probablement un truc comme xlsh.Range("A2").value ( en reprenant la variable de mon code ).
La Valeur de "A2", tu la fais varier dans ta boucle

[RobiPMS]

Bonjour.

S'il s'agit simplement d'afficher le résultat d'une requête dans un fichier Excel, le plus simple est la méthode DoCmd.TransferSpreadsheet.

Dans la faq : http://access.developpez.com/faq/?page=Excel#ExpExclReq.

Puis, pour l'ouvrir :
dans les déclarations

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

et le code pour ouvrir le fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute Me.hwnd, "open", "ici le chemin complet du fichier", "", CurrentProject.Path, 1

Dans la faq : http://access.developpez.com/faq/?pa...n#shellexecute
Cordialement
RL

[kamaxime]

Merci beaucoup à vous deux. Je vais tester ça.

[kamaxime]

Ta proposition fonctionne parfaitement. C'est exactement ce dont j'avais besoin! Du coup, j'ai changé Ma listebox en sous formulaire avec affichage des données en mode Feuille de réponse dynmaique, ce qui est encore mieux.

MERCI INFINIMENT

Je te donne le code que j'ai déjà implémenté.

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
24
25
 
Dim xlapp As Object
Dim xlwb As Object
Dim xlsh As Object
 
Set xlapp = CreateObject("Excel.Application")
Set xlwb = xlapp.Workbooks.Add
Set xlsh = xlwb.Worksheets(1)
Set rs = Me.Recordset
 
xlsh.Range("A1").SELECT
intCount = 0
Do Until intCount = rs.Fields.Count
        xlapp.ActiveCell = rs.Fields(intCount).Name
        xlapp.ActiveCell.Offset(0, 1).SELECT
        intCount = intCount + 1
Loop
 
rs.MoveFirst
xlsh.Range("A2").CopyFromRecordset rs
 
xlsh.Range("1:1").SELECT
xlapp.Selection.Font.Bold = True
xlsh.Range("A1").SELECT
xlapp.Visible = True

Il est pas entièrement de moi, je l'ai modifié.
Il te met sur la 1ère ligne les titres des champs ( en gras )

Moi je récupère le contenu du recordset de mon formulaire.

C'est pas tout à fait ton besoin mais ça doit être adaptable.

Il te faut récuperer les éléments de ta listbox avec une boucle, et trouver la fonction plaçant une valeur dans une cellule précise du doc Excel probablement un truc comme xlsh.Range("A2").value ( en reprenant la variable de mon code ).
La Valeur de "A2", tu la fais varier dans ta boucle