Discussion :

[titou]

Bonjour,

Maintenant que mon problème de sous formulaire est résolu, je souhaite l'exporter vers excel.
Je rappelle qu'il dépend d'une liste modifiable.
Voilà ce que j'ai comme code sur un bouton du formulaire et ce que j'arrive à faire:

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
Private Sub Commande5_Click()
 
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
Dim i As Integer
 
'Initialisation de l'indice de ligne à 2 pour commencer sous les titres des colonnes
i = 2
 
Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open("c:\TestExportNomenclature")
 
appexcel.Sheets("TestExportNomenclature").Select
 
appexcel.cells(i, 1) = rs2![Ref Nomenclature]
 
MsgBox "Nomenclature exportée"
 
End Sub

Avec ça, j'ouvre bien le fichier Excel préformaté et je peux remplir une case de ce fichier.
Maintenant, je souhaiterais en remplir plusieurs...
Je précise que "rs2" est un Objet déclaré en public, et qu'il est initialisé dans la procédure qui remplit mon sous formulaire. Avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Modifiable0_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    Set rs2 = Me.Recordset.Clone
    rs.FindFirst "[Ref Nomenclature] = '" & Me![Modifiable0] & "'"
    rs2.FindFirst "[Ref Nomenclature] = '" & Me![Modifiable0] & "'"
    Me.Bookmark = rs.Bookmark
    rs2.Bookmark = rs.Bookmark
End Sub

Apparemment, cette question a fait l'objet d'un post, mais le moteur de recherche indique qu'il n'existe plus. Si l'un d'entre vous a un souvenir...

Merci

++

[titou]

Je précise aussi que si je fais une boucle avec un "While Not rs2.eof (...) Wend" sur cette instruction

Code :

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

appexcel.cells(i, 1) = rs2![Ref Nomenclature]

Le fichier Excel se remplit bien, mais il y a trop de données, commme si il ne tenait pas compte du filtrage qui avait été demandé pour remplir le sous formulaire...

++

[Tofalu]

Pas besoin de boucle. Ton formulaire est basé sur une requête donc exporte la requête sous Excel avec docmd.transfertSpreadsheet

[titou]

J'ai résolu mon problème grâce à ta réponse à un autre post...
En fait, il fallait juste déclarer un recordset dans ma fonction OnClick, le lier au sous formulaire en question, et le parcourir pour remplir mon fichier Excel.

Merci à toi.

++