Discussion :

[maylouz]

Bonjour à tous ,

Svp je voudrais insérer le résultat d'un recordset dans un tableau sur Excel en vba .

j'ai utilisé le code suivant mais cela ne marche pas ( je ne maîtrise pas les tableaux sous Excel , donc je ne sais pas si la syntaxe est bonne)

// Documents : Est le nom du Tableau et aussi le nom de la feuille

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
Dim objWkb As Excel.Workbook
Dim objSht As Excel.Worksheet
conWKB_NAME = Application.CurrentProject.Path & "\Doc_import.xlsx"
 
 
 
          Set objWkb = .Workbooks.Open(conWKB_NAME)
          Set objSht = objWkb.Worksheets("Documents")
          Dim rs As DAO.Recordset
 
Set rs = CurrentDb.OpenRecordset("select id_livrable, version_Livrable from Livrables ", dbOpenSnapshot)
 
          With objSht
 
               rs.MoveFirst
               While Not rs.EOF
 
            .ListObjects("Documents").ListRows("Identifiant") = rs.fields("id_livrable")
            .ListObjects("Documents").ListRows("version") = rs.fields("version_livrable")
 
               rs.movenext
               wend
 
          End With

j'ai un message d'erreur : l'indice n'appartient pas à la sélection sur la première ligne d'insertion : .listObjects("documents").listeRows.........

le tableau Excel dispose bien d'un entête Identifiant et Version.

si Quelqu'un peut m'aider svp, je vous remercie d'avance.

[ClaudeLELOUP]

Bonjour,

Jette un œil ici : http://claudeleloup.developpez.com/t...-access-excel/
et plus particulièrement au point III-D, il y a un exemple qui, je crois, correspond à ce que tu veux faire.