Discussion :

[valy_442]

Bonjour à tous.
J'ai un formulaire et un sous-formulaire.
Je souhaite envoyer des enregistrements de mon sous-formulaire vers des cellules d'une feuille excel.
Voici un exemple:


Je souhaite exporter les noms Luc et Pierre. Malheureusement mon code VB n'exporte que le 1er enregistrement(Luc) du sous formulaire et néglige les autres.
J'utilise le code suivant (merci loufab):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function exportexcelvb()
 
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open(CurrentProject.Path & "\feuille1")
appexcel.Sheets("Cover").Select
 
'Exportation du champ nom
appexcel.Cells(2, 2) = Forms.repertoire.[Clients].Form.Nom

Comment faire?
Merci d'avance

[micniv]

Bonjour
pour exporter sous Excel tout le recordset du ss-form

Code :

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

1
2
3
4
 
'Exportation du recordset
 
appexcel.Cells(2, 2).CopyFromRecordset  Forms.repertoire.[Clients].Form.recordsetClone

[valy_442]

Salut micniv.
Merci pour ta réponse, ça fonctionne très bien.

Maintenant est-il possible:

• d'exporter seulement certaines valeurs? Et non pas tout le recordset.
• de pouvoir ensuite choisir une cellule précise pour chaque valeur?

Merci pour ton aide

[micniv]

Bonjour,
Pour trouver des réponses, n'hésite pas à consulter la FAQ http://access.developpez.com/faq/?page=Automation

=> Comment envoyer des données Access sur Excel ?
ou les tutos comme http://cafeine.developpez.com/access/tutoriel/excel/

Bonne suite

[valy_442]

Merci pour les liens micniv. Je les ai parcourus
J'arrive à choisir quelle colonne du sous-formulaire je souhaite exporter.
Mais toujours le même problème : il n'exporte que le 1er enregistrement du recordset.

Code :

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

appexcel.Cells(2, 2) = Forms.repertoire.[Clients].Form.Recordset!nom

Et comment se fait-il que la formule que tu m'as indiquée ne fonctionne qu'une fois?
Lorsque je lance une 2e fois l'exportation, plus rien n'est exporté pour l'exportation de tout le recordset.
Et pour l'exportation d'un seule colonne du sous-formulaire (cf code ci-dessus) il me dit: Aucun enregistrement.
Je dois fermer la base et la réouvrir pour que l'exportation se fasse à nouveau
Merci pour ton aide

[micniv]

Ben, comme tu peux l'étudier dans le tuto de Cafeine (2eme lien ci-dessus),
si tu veux alimenter différentes cellules de la feuille XLS, il te faut faire une boucle telle que :

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
 
...
  I = 3
    Do While Not rec.EOF
        For J = 0 To rec.Fields.Count - 1
            ' .Fields(Index).Type renvoie le type du champ
            '   si c'est un Texte (dbText) nous insérons "'" pour
            '   qu'il soit reconnu par Excel comme du Texte
            If rec.Fields(J).Type = dbText Then
                xlSheet.Cells(I, J + 1) = "'" & rec.Fields(J)
            Else
                xlSheet.Cells(I, J + 1) = rec.Fields(J)
            End If
        Next J
        I = I + 1
        rec.MoveNext
    Loop
...

[valy_442]

J'ai pu voir ce code.
Il créé un recordset à partir d'une table.
Du coup quand on lui demande d'exporter une colonne, il exporte tous les enregistrements de la table.
Or je souhaiterais exporter uniquement les enregistrements qui apparaissent dans mon sous-formulaire.

[micniv]

Il faut bien sûr l'adapter :
as tu initialisé le recordset auparavant comme :

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
 
...
dim rec as DAO.recordset
 
SET rec = Forms.repertoire.[Clients].Form.recordsetClone
 
 I = 3
    Do While Not rec.EOF
        For J = 0 To rec.Fields.Count - 1
            ' .Fields(Index).Type renvoie le type du champ
            '   si c'est un Texte (dbText) nous insérons "'" pour
            '   qu'il soit reconnu par Excel comme du Texte
            If rec.Fields(J).Type = dbText Then
                xlSheet.Cells(I, J + 1) = "'" & rec.Fields(J)
            Else
                xlSheet.Cells(I, J + 1) = rec.Fields(J)
            End If
        Next J
        I = I + 1
        rec.MoveNext
    Loop
...

[valy_442]

Ce code ne m'exporte toujours pas tous mes enregistrements. Je n'ai peut être pas réussi à l'adapter correctement, mais je ne pense pas que ce code me permette de choisir d'exporter par exemple le nom d'une personne dans la cellule B2, la date dans la cellule C4 etc...