Tranferer le contenue de ma form2 dans un fichier excel

Signaler
Messages postés
2
Date d'inscription
jeudi 12 août 2004
Statut
Membre
Dernière intervention
24 mai 2011
-
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
-
Bonjour

Pour commencer je suis vraiment débutant, j'aimerais pouvoir transferer le contenue de ma form2 dans un fichier excel, j'ai trouver quelque code ici et sur d'autre forum, sur ma form1 jai 2 boutons un pour ouvrir excel avec openfiledialog, mon autre bouton pour ouvrir ma form2, sur ma form2 j'ai des textbox, combobox, et des label et un bouton ok ,j'aimerais quand je click sur ok de ma form2 que le contenue de mes texbox ect apparaisse sur mon fichier excel que jai ouvert a partir de ma form1, je vous donne le code de ma form1 et ma form2

Merci a l'avance pour votre aide

Imports Microsoft.Office.Interop

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim appxls As Microsoft.Office.Interop.Excel.Application
Dim book As Microsoft.Office.Interop.Excel.Workbook
Dim excelfile As String

'configuation de l'openfiledialogue du fichier excel
OpenFichierExcel.FileName = ""
OpenFichierExcel.InitialDirectory = "C:"
OpenFichierExcel.Filter = "Fichiers Excel (*.xlsx)|*.xlsx"
OpenFichierExcel.FilterIndex = 1
OpenFichierExcel.Title = "Ouvrir un fichier Excel"
OpenFichierExcel.RestoreDirectory = True

Dim result As DialogResult = OpenFichierExcel.ShowDialog() 'affiche la boite

If (result = Windows.Forms.DialogResult.OK) Then
'ouverture de l'application et du classeur
appxls = New Microsoft.Office.Interop.Excel.Application
appxls.Visible = True
excelfile = OpenFichierExcel.FileName
book = appxls.Workbooks.Open(excelfile)

Else
Exit Sub
End If
book.Close(True)
appxls.Quit()

releaseObject(appxls)
releaseObject(book)
releaseObject(xlWorkSheet)


End Sub
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try

End Sub



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
End Class

ma form2

Imports Microsoft.Office.Interop

Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim appxls As New Microsoft.Office.Interop.Excel.Application
Dim book As Microsoft.Office.Interop.Excel.Workbook, xlWorkSheet As Excel.Worksheet


xlWorkSheet = CType(book.Worksheets.Item(1), Excel.Worksheet)
CType(xlWorkSheet.Cells(1, 1), Excel.Range).Value = Me.TextBox1.Text
CType(xlWorkSheet.Cells(2, 1), Excel.Range).Value = Me.TextBox2.Text
CType(xlWorkSheet.Cells(3, 1), Excel.Range).Value = Me.TextBox3.Text

book.Save()
MsgBox("Excel file created , you can find the file c:")

End Sub

3 réponses

Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
Salut
ton code ne marche pas ?
Messages postés
2
Date d'inscription
jeudi 12 août 2004
Statut
Membre
Dernière intervention
24 mai 2011

Salut ShayW

Non sa marche pas , j'ai besoin d'aide aussi pour le faire fonctionner, est ce que tu a une idee ?
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
Salut
Non sa marche pas

ce n'est pas une réponse
quoi
rien ,une erreur