Discussion :

[Pynuch]

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

[Kcirtap]

[Kcirtap]

Essaie ce code

Code :

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

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

[Pynuch]

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

[Kcirtap]

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

[Pynuch]

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

[Kcirtap]

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.


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

[Yorglaa]

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

Code :

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

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)

[Kcirtap]

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.

[Pynuch]

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...

[Pynuch]

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

[Pynuch]

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

Merci pour votre aide

[Kcirtap]

N'oublie pas le tag .

[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 :

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

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)