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
j'ai un message d'erreur : l'indice n'appartient pas à la sélection sur la première ligne d'insertion : .listObjects("documents").listeRows.........
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
le tableau Excel dispose bien d'un entête Identifiant et Version.
si Quelqu'un peut m'aider svp, je vous remercie d'avance.
Partager