Excel et VB6

Réponse acceptée !
Salut,

vas voir sur http://www.vbfrance.com/recherche.aspx?r=ouvrir+fichier+excel&tr=source


++

Zlub

Réponse acceptée !
Bonsoir,
N'oublie pas dans Projet/Références de cocher la case Microsoft Excel x.0 Object Library.Ce code copie le texte Bonjour et comment vas-tu dans les cellules B1 et B2, à la place tu peux mettre des TextBox, pour importer des des TextBox, tu fais l'inverse.
Text1 = wsXL.Cells(2, 1).Value

Private Sub Command1_Click()
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
DimwsXL as New Excel.Worksheet

If Not IsObject(objXL) Then
MsgBox "Vous avez besoin d'Excel pour cette fonction", vbExclamation, "Excel"
Exit Sub
End If
'Ouvre Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Open("C:\Test.xls")
Set wsXL = objXL.ActiveSheet

'Ecrit dans les cellules B1 et B2
wsXL.Cells(2, 1).Value = "Bonjour"
wsXL.Cells(2, 2).Value = "Comment vas-tu ?"

objExcel.ActiveWorkBook.SaveAs ("C:\test.xls")
objXL.WorkBooks.Close
End Sub

jpleroisse

si la réponse te conviens clique réponse acceptée