OUVERTURE D'UNE APPLICATION EXCEL AVEC OPENFILEDIALOG EN VUE DE MANIPULER L'APPLICATION

'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

30 juin 2006 14:05:23 :

néant

30 juin 2006 14:25:06 :

C'est bien de savoir comment quitter l'application aussi!!!

03 juillet 2006 11:30:55 :

précision titre

04 juillet 2006 11:14:50 :

néant

13 juillet 2006 13:30:33 :

Annotation

27 novembre 2006 17:36:41 :

.