- 'code effectué avec VB2005 Express Edition
- 'dans un premier temps il faut ajouter excel en référence dans votre projet.
- 'ATTENTION pour ce qui programme en .NET Microsoft.Office.Interop n'est pas nécessaire.
- 'code à mettre dans un évenement click d'un boutton "ouvrir" ou "parcourir".
- 'et il faut ajouter un composant openfiledialog nommé ici "OpenFichierExcel"
-
- 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 (*.xls)|*.xls"
- 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
-
- 'Pour quitter l'application
- book.Close(True, , )
- appxls.Quit()
- book=Nothing
- xlsapp=Nothing
'code effectué avec VB2005 Express Edition
'dans un premier temps il faut ajouter excel en référence dans votre projet.
'ATTENTION pour ce qui programme en .NET Microsoft.Office.Interop n'est pas nécessaire.
'code à mettre dans un évenement click d'un boutton "ouvrir" ou "parcourir".
'et il faut ajouter un composant openfiledialog nommé ici "OpenFichierExcel"
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 (*.xls)|*.xls"
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
'Pour quitter l'application
book.Close(True, , )
appxls.Quit()
book=Nothing
xlsapp=Nothing