Discussion :

[marsouin_89]

Bonjour à tous,

J'ai créé une barre d'outils personnalisée (DLL) pour un logiciel qui s'appelle ArcGIS.
Cette barre d'outil lit un fichier Excel en pur VB.net.
J'ai donc ajouté la référence Excel dans mon code VB.net.
Mon PC est en SEVEN Office 2007 (Excel 12) et les PC qui vont avoir cette barre d'outils sont en XP Office 2003 (Excel 11).

Donc pour que cela puisse être compatible, il semblerait qu'il faille utiliser Excel9.olb (office 2000) (voir ici), la convertir en DLL afin que cela puisse fonctionner.

Le batch présenté dans cette article est :
@echo off

Code :

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

1
2
3
 SET prog="C:\Program Files\Microsoft Visual Studio .NET 2003\SDK\v1.1\Bin\TlbImp.exe"
 %prog% EXCEL9.OLB /out=My.Excel9.Interop.dll
 pause

Hors comme je suis en SEVEN, ce code, à priori, deviendrait :

Code :

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

1
2
3
4
@ Echo off
SET prog = "C:\Program files\Microsoft SDKs\Windows\v6.0A\bin\TlbImp.exe"
%prog% Excel9.OLB /out=My.Excel9.Interop.dll
pause

Toutefois, lorsque j'exécute ce batch, j'ai un message qui me demande avec quoi je veux ouvrir Excel9.olb et bien sur ce fichier n'est pas converti en DLL.

Comment faire pour que ma DLL puisse être compatible sur des PC Office 2003 Office 2007.

Cela fait 2 jours que je galère la dessus et vos conseils seraient vraiment les bienvenus.

Merci beaucoup

Cordialement

Christophe

[marsouin_89]

Bonsoir à tous,

Après une autre journée de galère, j'ai finalement trouvé la solution.

Au lieu de déclarer :

Code :

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

1
2
3
4
Imports Microsoft.Office.Interop
Dim xlApp As xls.Application = = New xls.ApplicationClass
Dim xlWorkBook As xls.Workbook = xlApp.Workbooks.Open(oExcelFile, , True)
Dim xlWorkSheet As xls.Worksheet = xlWorkBook.Worksheets("Feuil1")

Je ne mets plus de référence Excel et je déclare :

Code :

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

1
2
3
4
Dim xlApp As Object 
xlApp = CreateObject("Excel.Application") 
Dim xlWorkBook As Object = xlApp.Workbooks.Open(oExcelFile, , True)
Dim xlWorkSheet As Object = xlWorkBook.Worksheets("Feuil1")

Cela fonctionne pour Office 2003 et 2007.
En revanche, cela ne focntionne pas pour Office 2002.

En espérant que cela puisse aider quelqu'un.

Cordialement

Christophe