[AC-2003] Export d'un sous-formulaire qu'une seule fois

[valy_442]

Bonjour.
Je souhaite exporter le recordset d'un sous-formulaire access vers une feuille excel.
L'export fonctionne correctement, mais qu'une seule fois
Lorsque je lance une 2e cet export, le sous-formulaire n'est plus exporté, que du vide.

Voilà mon code pour l'exportation :

Code :

appexcel.Cells(58, 2).CopyFromRecordset rec

J'ai tenté d'ajouter ceci à la fin :

Code :

1
2
3
4
rec.Close
    Set rec = Nothing
    Set wbexcel = Nothing
    Set appexcel = Nothing

Sans succès
Que faut-il faire pour pouvoir réitérer l'exportation autant de fois que l'on veut?


Merci.

[valy_442]

J'ai rajouté " rec.MoveFirst " avant de fermer mes objets. J'arrive maintenant à exporter mon sous-formulaire 1 fois sur 2, ce qui est assez étrange.
Lorsque je change les enregistrements apparaissant dans le sous-formulaire et que je lance l'export : ca n'exporte rien. Je relance une 2e fois: ça exporte!
Quelqu'un sait pourquoi?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
    'Exportation du recordset ss formulaire
 
    appexcel.Cells(58, 2).CopyFromRecordset rec
 
    rec.MoveFirst
 
    ' Ferme les objets
    rec.Close
    Set rec = Nothing
        ' Release Excel references
    Set wbexcel = Nothing
 
    Set appexcel = Nothing

[Philippe JOCHMANS]

Bonjour

Il faudrait plus de code, car tu ne mets que l'export (CopyFromRecordset), mais comment remplis-tu ton recordset ? Celui-ci est peut-être vide un export sur deux, il faut donc plus d'informations.

Philippe

[valy_442]

Au début je fais comme ceci:

Code :

Set rec = Forms.formulaire.sous-formulaire.Form.RecordsetClone

Je remplis mon recordset avec tout le sous-formulaire, car je souhaite tout exporter.

Voilà le code entier si ça peut aider :

Code :

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
Function exportexcelvb()
 
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
Dim rec As DAO.Recordset
Set rec = Forms.formulaire.sous-formulaire.Form.RecordsetClone
 
Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open(CurrentProject.Path & "\classeur01.xls")
 
appexcel.Sheets("Feuille1").Select
 
    'Exportation du recordset ss formulaire 
    appexcel.Cells(58, 2).CopyFromRecordset rec
 
    rec.MoveFirst
    ' Ferme les objets ADO
    rec.Close
    Set rec = Nothing
 
    Set wbexcel = Nothing
    Set appexcel = Nothing
 
End Function

[valy_442]

Personne ne voit ?

[valy_442]

Bon ben merci quand même