Discussion :

[lelej]

Bonjour,

Je suis complétement néophyte en langage VB mais j'ai des notions pas trop mauvaises dans l'informatique. (Je fais des études dans l'informatique mais spécialisé dans le réseaux/télécoms)

J'ai un soucis avec une application VB 2003 et Excel.
A la base cette appli tourne sur un Win XP Pro, Office 2K3 et MS SQL 2K8.

J'essaie de la migrer sur win Serv 2K8 et après plusieurs batailles épiques j'ai pu faire fonctionner l'application SAUF pour Excel....

Dans cette appli (appli web au fait ^^), je veux ouvrir une page avec Excel et ... Paf erreur... Alors que le code n'as pas changé entre les 2 versions et que sous XP cela marche parfaitement. La version d'Excel est toujours 2K3.

La seule chose qui pourrait interférer serais le changement d'IIS (enfin j'en ai conclu ca après de nombreuses recherches) mais je dit ca sans aucune conviction!!

Une idée pour me sortir de cette impasse?

Voici le code et l'erreur est stipuler sur la ligne wbExcel=.... et me retourne "Impossible de lire la propriété Open de la classe Workbooks"

Code :

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

1
2
3
4
5
6
7
8
 
Dim appExcel=CreateObject("Excel.Application")
Dim wbExcel
Dim chemin As String
 
chemin = "C:\lolcat.xls"
 
wbExcel=appExcel.Workbooks.Open(chemin)

[tototiti2008]

Bonjour lelej,

je dois avouer que l'écriture

Code :

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

Dim appExcel=CreateObject("Excel.Application")

ne me plait pas trop, déjà... j'aurais plutôt vu un truc comme

Code :

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

1
2
Dim appExcel
Set appExcel=CreateObject("Excel.Application")

et il manque certainement un Set sur l'autre ligne aussi :

Code :

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

Set wbExcel=appExcel.Workbooks.Open(chemin)

Set est utilisé pour affecter des variables objets

[lelej]

Salut,

Je reprend du code d'une personne qui n'est plus présente... J'ai parcouru le code et même en n'étant pas un expert VB, le code est loin d'être propre.

J'ai fait des recherches ce matin et j'avais repris ce que tu m'as mis (avec un "Dim appExcel As Excel.Application" en plus )

Malgré tout je reste toujours bloqué... (D'ailleurs les "Set" disparraissent automatiquement dans VS Studio 2003 ^^)

Et de ce que j'ai pu comprendre, c'est que mon problème se situerais au niveau du "WorkBooks".

Mais c'est quoi ce "WorkBooks"???
C'est lié à quoi ? (IIS, Librairie Excel, Librairie Windows...??)

Une idée?

[Pierre Fauconnier]

Salut.

Voici le code VB.NET qui permet cela

Code :

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

1
2
3
4
5
6
        Dim appExcel As Object, wbExcel As Object
        Dim Chemin As String
 
        Chemin = "d:\données\classeur1.xlsx"
        appExcel = CreateObject("excel.application")
        wbExcel = appExcel.workbooks.open(Chemin)

Workbooks est la collection des classeurs d'une instance Excel, c'est donc lié à la libraire des objets Excel, et cette collection est directement liée à l'application Excel

[lelej]

Hum hum merci de ta lumière Pierre, je regarde mon code pour le tester...

Bon ben toujours la même erreur

"Impossible de lire la propriété Open de la classe Workbooks"

Même l'erreur est pour moi incompréhensible... Il veule dire Argument au lieu de propriété?

Par contre, est il possible qu'une incompatibilité existe entre Windows Server 2008 et Office 2003 pour cette WorkBooks?

Car le code est totalement fonctionnel sur un Win XP et Office 2K3...

C'est a se manger les C****, hurm, les mains cette histoire !!

[Pierre Fauconnier]

As-tu essayé d'ouvrir le fichier directement par Excel?

Es-tu certain du chemin et du nom du fichier?