Discussion :

[Chris@Xerox]

Bonjour,

Dans un projet VB.NET j'ai besoin de manipuler des fichiers Excel. Je dois donc rajouter:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports Microsoft.Office.Interop.Excel

J'ai donc télécharger O2003PIA.EXE sur le site de microsoft. J'exécute le O2003PIA.MSI obtenu et ... rien. Nada. Que dal.

Quelqu'un aurait-il une idée svp? Merci d'avance.

[Chris@Xerox]

Petites précisions.

J'ai bien la référence Microsoft Excel 11.0 Object Library dans mon programme. Mais quand je fais le Imports Microsoft.Office.Interop.Excel, celui-ci est souligné en vert et indiqué comme "L'espace de noms ou le type spécifié dans les Imports 'Microsoft.Office.Interop.Excel' ne contient aucun membre public ou est introuvable. Vérifiez que l'espace de noms ou le type est défini et qu'il contient au moins un membre public. Vérifiez que le nom de l'élément importé n'utilise pas d'autres alias."

Et voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Private Sub Annexe1(ByVal xlsName As String)
        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
 
        xlApp = New Excel.Application
        xlApp.Visible = False
        'xlsName est un String content le chemin d'accès et le nom de mon fichier Excel
        xlWorkBook = xlApp.Workbooks.Open(xlsName) 'Ligne où plante le programme
        xlWorkSheet = xlWorkBook.Worksheets("sheet1")
 
        xlWorkSheet.Cells(1, 1) = "TEST"
        xlWorkSheet.SaveAs(Ongoing & xlsName)
 
        xlWorkBook.Close()
        xlApp.Quit()
 
        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlWorkSheet)
 
    End Sub

Et le message d'erreur est le suivant:
Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))

Help me please!

[Chris@Xerox]

Et bien! Y a pas foule sur mon sujet.

Bon, j'ai trouvé une solution. Je la mets pour ceux que intéresserait.

Le problème venait du fait que mon Windows tourne en français et que Excel est en anglais. J'ai donc du rajouter la ligne suivante dans mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

System.Threading.Thread.CurrentThread.CurrentCulture =System.Globalization.CultureInfo.CreateSpecificCulture("en-US")

Pas besoin de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports Microsoft.Office.Interop.Excel

Et ça marche