Discussion :

[abiking]

bonjour les amis
je vous explique mon pb j'ai 3 listbox :
listbox 1 matricule
listbox 2 : nom prénom
listbox 3: date d'embauche
je veux utiliser un boutton pour exporter les données sélectionnés de trois listbox vers un fichier excel avec vb6
et grand merci pour vous tous

[ProgElecT]

salut
FAQ Visual Basic
Comment utiliser Excel en VB6 ?

[abiking]

salut j'ai déja consulter le FAQ mais j'ai pas trouvé comment faire
exporter les donnés depuis une liste box sous vb 6 vers un ficher excel
merci de m'aider

[iclic]

Bonjour,

Voici un exemple

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
35
36
37
 
Option Explicit
Dim oExcel As Excel.Application
 
Private Sub Form_Load()
Set oExcel = CreateObject("Excel.Application")
   List1.AddItem "Tartempion"
   List1.AddItem "Dupont"
   List1.AddItem "Durant"
   List1.AddItem "Toto"
End Sub
 
Private Sub cdCreerClasseur_Click() 'bouton cdcreerclasseur
 
Dim oWk As Workbook
Dim Nbe As Integer
Dim i As Integer
Dim Element As String
    'Set oExcel = CreateObject("Excel.Application")
    oExcel.Visible = False 'Masque l'application excel (valeur par défaut)
    Set oWk = oExcel.Workbooks.Add
    oWk.Sheets(1).Range("A1") = " matricule"
    oWk.Sheets(1).Range("B1") = "nom prénom"
    oWk.Sheets(1).Range("C1") = "Date d'embauche"
    Nbe = List1.ListCount  'mettre le nombre d'éléments dans une variable
    For i = 0 To Nbe - 1 'lire dans la listbox et écrire dans excel
        Element = "B" & Trim(Str(i + 2))
        oWk.Sheets(1).Range(Element) = List1.List(i)
    Next
    'Sauve le classeur
    oExcel.DisplayAlerts = False ' Pour éviter des questions si classeur déjà existant
    oWk.SaveAs "C:\Mon Dossier\MonClasseur.xls"
    oWk.Close False 'Ferme le classeur
    oExcel.Quit
    Set oWk = Nothing
    Set oExcel = Nothing 'libération mémoire..
End Sub