Export Avec ACCESS

Bonjour à tous !

Voici une petite question que je n'arrive pas à résoudre avec access.

J'ai une table composé comme ci-dessous :

numéro article - numéro de ligne - texte

81550 - 1 - clavier coloris beige
81550 - 2 - 102 touches avec fonction navigation
81550 - 3 - rapide pour internet
81551 - 1 - moniteur 17 pouces
81551 - 2 - lcd / 0,5 ms
81551 - 3 - garantie 3 ans sur site
81551 - 4 - extension possible : 2 ans sur site
81552 - 1 - boitier pc moyen tour
81552 - 2 - coloris noir et argent
81552 - 3 - 5 emplacement 5 pouces 1/4
81552 - 4 - 2 emplacement 3 pouces 1/2
81552 - 5 - 1 facade avec port usb et ieee 1394
81553 - 1 - cable usb 1m00 sous blister

J'ai donc des codes articles, avec un numéro de ligne différent pour chaque ligne de texte (le nombre de ligne n'étant pas identiques pour chaques code articles).

Je voudrais pouvoir extraire sous Excel, les codes articles avec le regroupement de toutes les lignes de texte qui lui sont associé.

Exemple de colonne sous excel :

Code article - texte
81550 - clavier coloris beige, 102 touches avec fonction navigation rapide pour internet.

J'éspère que c'est possible.

Précision importante : la base de données sous acces est déjà comme cela, je n'en suis pas l'auteur.

Pour ce que je veux faire, j'ai besoin d'avoir le code article et le texte qui va avec.

Le mieux serait au format excel pour l'exporter en CSV.

Voilà, merci pour vos réponses.

cordialement,

Cyber73

Bonjour et bienvenue sur le forum Office de DVP.

Ce n'est pas tant l'export qui te tracasse, mais la mise en commun des lignes de données.

Essaie ce code :

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 26 27 28 29 30 31 32 33 34 35 36

Sub ExportExcel()   Dim rs As DAO.Recordset Dim xlApp As Object Dim xlWb As Object Dim xlWs As Object Dim sql As String Dim stTemp As String Dim stExport As String Dim intI As Integer   sql = "Select * From tbl_01"   Set xlApp = CreateObject("Excel.Application") Set xlWb = xlApp.Workbooks.Add Set xlWs = xlWb.Worksheets.Add   Set rs = CurrentDb.OpenRecordset(sql) While Not rs.EOF   If rs.Fields(0) = stTemp Then stExport = stExport & " " & rs.Fields(2) Else intI = intI + 1 xlWs.cells(intI, 1) = stTemp xlWs.cells(intI, 2) = stExport stTemp = rs.Fields(0) stExport = rs.Fields(2) End If rs.MoveNext Wend   xlApp.Visible = True     End Sub

---

Remplace dans le code tbl_01 par le nom de ta table.