Discussion :

[WhitePearl]

Hello, je suis coincé pour exporter le contenu d'une listbox vers excel. Ma listbox comporte trois colonnes et plusieurs lignes. J'arrive à exporter une ligne sélectionner mais je n'arrive pas à exporter plusieurs lignes sélectionner..

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
Private Sub Commande26_Click()
    Dim ExcelSheet As Object
    Set ExcelSheet = CreateObject("Excel.Sheet")
 
    'Cacher la fenêtre excel
    ExcelSheet.Application.Visible = False
    'Ecris la ligne sur la cellule d'excel
    ExcelSheet.Application.Cells(c, 1).Value = Liste12.Column(0)
    ExcelSheet.Application.Cells(c, 2).Value = Liste12.Column(1)
    ExcelSheet.Application.Cells(c, 3).Value = Liste12.Column(2)
    'Désactive / Active l'alerte pour écraser un fichier existant
    ExcelSheet.DisplayAlerts = False
    ExcelSheet.SaveAs "H:\Documents\ExportID.xlsx"
    ExcelSheet.DisplayAlerts = True
    'Ferme excel
    ExcelSheet.Application.Quit
    'Affiche une msgbox pour afficher le résultat ou non
    If MsgBox = ("Afficher le résultat ?",vbYesNo,"Fin du traitement") = vbYes Then
        Set X1 = New Excel.Application
        X1.Visible = True
        Set Classeur = X1.Workbooks.Open("H:\Documents\ExportID.xlsx")
    End If
End Sub

Il y a surement plusieurs façons plus simple à faire mais je suis débutant et je m'y retrouve mieux en faisant plusieurs étapes.

J'ai également un soucis sur la msgbox, Access m'indique une erreur de syntaxe à la ligne 18 mais je ne vois pas où elle est...

[tee_grandbois]

Bonsoir,
j'ai corrigé ton code sans trop en modifier l'esprit. Dis moi si quelques explications sont nécessaires ...

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
25
26
27
28
29
30
31
32
33
34
Private Sub Commande26_Click()
    Dim i As Long, j As Long, k As Long
    Dim ExcelSheet As Object
    Dim X1 As Object
 
    Set ExcelSheet = CreateObject("Excel.Sheet")
 
    'Cacher la fenêtre excel
    ExcelSheet.Application.Visible = False
    'Ecrit les lignes sélectionnées dans les cellules Excel
    For j = 0 To Me.Liste12.ListCount - 1               ' lecture de la liste
        If Me.Liste12.Selected(j) = True Then           ' sélection des items sélectionnés
            k = k + 1
            For i = 0 To Me.Liste12.ColumnCount         ' lecture des colonnes de la liste
                                                        ' N° ligne: k, N° colonne: i+1
                ExcelSheet.Application.Cells(k, i + 1).Value = Liste12.Column(i, j)
            Next i
        End If
    Next j
 
    ExcelSheet.Application.DisplayAlerts = False
    ExcelSheet.SaveAs "H:\Documents\ExportID.xlsx"
    ExcelSheet.Application.DisplayAlerts = True
    'Ferme excel
    ExcelSheet.Application.Quit
 
    'Affiche une msgbox pour afficher le résultat ou non
    If MsgBox("Afficher le résultat ?", vbYesNo, "Fin du traitement") = vbYes Then
        Set X1 = New Excel.Application
        X1.Visible = True
        X1.Workbooks.Open ("H:\Documents\ExportID.xlsx")
    End If
 
End Sub

[WhitePearl]

Hello, merci pour l'aide apporté, tout fonctionne maintenant.