[VB.NET] problème pour piloter une appli. excel 2003

Bonjour,

j'ai un souci concernant le pilotage d'une appli excel 2003 sous vb.net

j'ai pourtant l' interop.Excel.dll (11.0)

Mais dès que j'essaye d'ajouter un classeur, cela me provoque une erreur :

Old Format or Invalid type,

pourtant je la dernière dll dispo, même si excel est une version 11.6 (sp2)

voici le code:

'Déclaration des variables
Dim appExcel As New Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As New Excel.Worksheet 'Feuille Excel

'Ouverture de l'application
'appExcel = CreateObject("Excel.Application")

If appExcel Is Nothing Then

MsgBox("L'application ne se lance pas!")

Else

MsgBox("Objet créé")

End If

MsgBox(appExcel.Ready)

wbExcel = appExcel.Workbooks.Add()


Voila ca bloque a ce moment la, impossible de savoir d'où cela provient si quelqu'un a une suggestion... (je n'ai pas le choix je dois piloter excel 2003 et pas un autre).

Merci d'avance

:tagcode:

Essaie ce code

Code:

---

1 2	appExcel.Workbooks.Add(Type.Missing) ; wbExcel = (Excel.WorkbookClass)appExcel.Workbooks[1] ;

---

Merci, pour ton aide mais cela ne m'a pas servi,

le problème vient du fait qu'il y a un conflit entre excel et l'objet Application qui ne doit pas réussir a envoyer les ordres.

Y aurait-il conflit à cause de SP2 ?

est ce qu'il y a des mises à jour a faire ?
ou me manque t -il une DLL.

je suis ouï à toute suggestion, même si elles paraissent hors sujet on ne sait jamais...

merci

Est-ce que tu as fait un debug pas à pas afin de voir exactement quelle ligne déclenche ce message d'erreur :?:

La ligne qui créée cette erreur.. c'est la méthode WorkBooks.Add() , Add() pour tout autres objets (Sheets.add() ...)

en réalité, dès que je 'Set' quelquechose ou que j'essaye de récupérer les objets d'une appli.µ

end'autres termes apparament il n a un problème entre les méthodes de l'objet Application et les méthodes de l'application excel en elle même

Citation:

---

Envoyé par Pynuch

La ligne qui créée cette erreur.. c'est la méthode WorkBooks.Add() , Add() pour tout autres objets (Sheets.add() ...)

---

En fait la méthode Add(object) n'est pas référencée sans argument.
http://img464.imageshack.us/img464/7...etexcel0id.png

Tu dois dès lors lui passer Type.Missing en paramètre qui correspond à un Template dont tu n'as de toute évidence pas besoin.

A plus

voici un moyen de rendre ton code compatible avec toutes les versions d'Excel :

Code:

---

1 2 3 4 5 6 7

la methode qui marche avec toutes les versions d'excel :   Dim x As New Object x = CreateObject("excel.application") Dim classeur As Object Dim feuille As Object classeur = x.Workbooks.Open("C:\Machin\fichier.xls", False)

---

Citation:

---

Envoyé par Yorglaa

voici un moyen de rendre ton code compatible avec toutes les versions d'Excel

---

Oui, si ton classeur Excel existe déjà. Ce qui n'était pas le cas dans son précédent exemple.

Voici l'erreur produite


type 'System.Runtime.InteropServices.COMException' occurred in ExcelProject.dll.
Additional information: Old format or invalid type library.


le souci c'est que chez microsoft ils disent que ca viendrait des paramètres régionaux.

Mais je ne vois pas ce que les paramètres régionaux vienent faire, avec le fait que je ne puisse pas ajouter un classeur ou tout autre objet...

La méthode Add(Object) a un argument, vide par défaut :

Object= Nothing, et cela dans le cas où l'on veut créer un objet non existant.

Donc cela ne vient pas de l'argument (d'ailleurs j'ai quand même essayé par curiosité)

merci quand même ;)

J'ai trouve le probleme il provenait de mes para;etres regionaux.

Merci pour votre aide ;)

N'oublie pas le tag :resolu:.

:wink:

Citation:

---

Envoyé par Kcirtap

Citation:

---

Envoyé par Yorglaa

voici un moyen de rendre ton code compatible avec toutes les versions d'Excel

---

Oui, si ton classeur Excel existe déjà. Ce qui n'était pas le cas dans son précédent exemple.

---

ok, alors comme ceci

Code:

---

1 2 3 4 5 6 7

Dim XLSApp As New Object Dim XLSBook As Object Dim XLSSheet As Object   XLSApp = CreateObject("Excel.Application") XLSBook = XLSApp.Workbooks.Add XLSSheet = XLSBook.Worksheets(1)

---