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:
Avec ça, j'ouvre bien le fichier Excel préformaté et je peux remplir une case de ce fichier.
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
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:
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...
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
Merci
++
Partager