Ouvrir un fichier excel avec vb.net
haplo67
Messages postés
31
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
4 juillet 2007
-
8 janv. 2006 à 14:02
amieyrara Messages postés 1 Date d'inscription dimanche 8 mars 2009 Statut Membre Dernière intervention 12 janvier 2010 - 12 janv. 2010 à 23:15
amieyrara Messages postés 1 Date d'inscription dimanche 8 mars 2009 Statut Membre Dernière intervention 12 janvier 2010 - 12 janv. 2010 à 23:15
7 réponses
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
8 janv. 2006 à 15:17
8 janv. 2006 à 15:17
Bonjour,
Ajoute une référence COM à Micrsoft Excel xx Object Librairy
Pour ouvrir un fichier excel ceci doit fonctionner
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdOk.Click
Dim x As New Microsoft.Office.Interop.Excel.Application
Dim w As Microsoft.Office.Interop.Excel.Workbook
x.Workbooks.Application.Visible = True
If CbNote.Checked True Then w x.Workbooks.Open("C:\xxx\tonfichier1.xls") If CbMusique.Checked True Then w x.Workbooks.Open("C:\xxx\tonfichier2.xls")
End Sub
Par contre n'oublie pas quand tu ferme ton appli de fermer Excel
x.Workbooks.Close()
x.Quit()
Si la réponse te conviens merci de l'accepter
Ajoute une référence COM à Micrsoft Excel xx Object Librairy
Pour ouvrir un fichier excel ceci doit fonctionner
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdOk.Click
Dim x As New Microsoft.Office.Interop.Excel.Application
Dim w As Microsoft.Office.Interop.Excel.Workbook
x.Workbooks.Application.Visible = True
If CbNote.Checked True Then w x.Workbooks.Open("C:\xxx\tonfichier1.xls") If CbMusique.Checked True Then w x.Workbooks.Open("C:\xxx\tonfichier2.xls")
End Sub
Par contre n'oublie pas quand tu ferme ton appli de fermer Excel
x.Workbooks.Close()
x.Quit()
Si la réponse te conviens merci de l'accepter
