Résolu exporter des donnes des plusieurs listbox vers excel vb6

[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

 

[drul]

Salut peux tu être un peu précis ?
Tes liste box sont ou ? dans un feuille excel ?
Par VB6 tu entends l'éditeurs de macro intégré (donc VBA) ?

 

[abiking]

merci pour la réponse je vous explique :
j'ai trois listbox sur un form en vb6
listbox1 contient les matricules des employés
listbox2 contient leurs nom prénom
listbox3 contient leurs date d'embauche
je veux exporter les informations sélectionnés des trois listbox vers un fichier excel

 

[drul]

Quelques exemples:

Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")

' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.Application.Cells(1, 1).Value = "This is Putting Data in column A, row 1"
' Save the sheet to C:\test.xls directory.
ExcelSheet.SaveAs "C:\TEST.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing

'There are many other options you can do like rename sheets select a sheet by name some versions of VB
'allow you to also give the cell location as excelsheet.application.cells("A",1)  or say
' excelsheet.application.cells("R","4")

ou ici:

Vous devez être connecté pour voir les liens.

 

[abiking]

bonjour,
merci pour la réponse, mais le code mentionné ci-dessus est juste pour créer le fichier
mais comment exporter les donnés des listbox vers ce ficher ?

 

[drul]

Je dirais:

ExcelSheet.Application.Cells(1, 1).Value = MyListBox.Value