Discussion :

[Phiss]

Bonjour.
Voilà exactement mon problème:
J'essaies d'ouvrir un fichier excel en asp/vvbscript avec le code suivant

Code :

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

1
2
3
4
5
6
7
 
Set monexcel = CreateObject("Excel.Application") 
monexcel.Workbooks.Open "chemin\fichier.xls"
monexcel.activeworkbook.SaveAs "chemin\fichier.html" 
monexcel.ActiveWorkbook.Close 
monexcel.Application.Quit 
Set monexcel = Nothing

Mais cela bloque au niveau de la création de l'objet (1ere ligne du code).
erreur :

erreur '80010001'

Pour info j'ai excel d'installé sur le serveur.

Pouvez vous m'aider?

[Phiss]

pas d'idées?

[Immobilis]

Code :

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

1
2
3
4
5
6
7
 
Set monexcel = Server.CreateObject("Excel.Application") 
monexcel.Workbooks.Open "chemin\fichier.xls"
monexcel.activeworkbook.SaveAs "chemin\fichier.html" 
monexcel.ActiveWorkbook.Close 
monexcel.Application.Quit 
Set monexcel = Nothing

:

[Promesses]

Essaye ca pour voir:

Code :

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

set monexcel = new Excel.Application

[Phiss]

Merci pour votre aide mais toujours pas mieux.

Immobilis ==> j'ai la même erreur.

Promesses ==>

Erreur d'exécution Microsoft VBScript erreur '800a01fa'
Classe non définie: 'Excel'

Si vous avez d'autres idées?

[Immobilis]

As-tu bien excel d'installé sur ta machine?

[Phiss]

Si tu veux j'ai excell d'installer sur le serveur.
Mais la ou je ne comprends pas c'est que le code fonctionnait très bien sur un autre serveur...

J'ai changé de serveur par nécessité et là plus rien ne marche.

Pour info c'est des serveurs sous windows 2003 server avec excell d'installer avec tout le pack office en mode normal.

[Immobilis]

Moi aussi j'ai W2003, Office 2003
Une explication par là ? http://www.dotnet-tech.com/tutoriels/rapport-excel/
J'avoue ne pas avoir eu besoin de le faire.
A+

[Phiss]

On va mettre ça de coté car c'est pas primordial pour l'onstant.
Je verrais ça plus tard si j'y arrive mieux sans forcément passez par cette solution.

Merci quand même.
Et peut être à plus.


edit :
Si vous avez une autre solution que celle que j'utilise pour ouvrir un fichier excell et l'enregistrer je suis quand même preneur

[Phiss]

up

[Phiss]

Je bloque toujours sur ce problème.

Je reprends du début.

J'ai un fichier excell sur mon serveur que je veux ouvrir et afficher sous forme HTML ou pdf coté client.

Je développe en asp/vbscript.

le code que j'utilise actuellement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
fic_name = "fic"
fic_path = "\\chemin\" 
fic_nv_path = "\\chemin\sauv\"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
if not FSO.FileExists(fic_nv_path & fic_name & ".html") Then
  Set monexcel = server.CreateObject("Excel.Application") 
  monexcel.Workbooks.Open fic_path & fic_name &".xls"
  monexcel.activeworkbook.SaveAs fic_nv_path & fic_name & ".html" 
  monexcel.ActiveWorkbook.Close 
  monexcel.Application.Quit 
  Set monexcel = Nothing 
end if

erreur : erreur '80010001'

Si vous avez une solution pour que cela marche ou une autre possibilité?
Merci.

[Phiss]

problème toujours pas résolu mais qui presse.
Vous n'aurez pas de solution?

[amar00]

et un utilsant le fournisseur oledb :

Code :

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

1
2
3
4
5
 
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & "chemin physique du fichier excel" & _
               ";Extended Properties=""Excel 8.0;HDR=YES;"""

tu as une erreur?
Si c'est ok tu peux toujours générer toi même le html en ouvrant un recordset sur la première feuille de ton classeur, puis en le parcourant à l'aide d'une boucle for each.
Rq : il faut au moins avoir la version 2.5 de ado (pas besoin de excel).Permet d'utiliser ADODB.Stream.

[Immobilis]

Je vois aussi que ton fichier se trouve sur un serveur différent du serveur Web. Le problème ne serait-il pas au niveau des droits?
Essaye avec un fichier local.
A+

[sabin]

Je pense avoir trouvé ton problème.

Tout d'abord il te faut rajouter "Server." devant la méthode CreateObject.
Ensuite, j'avais une autre erreur :
Unknown Error: 8001010A
Le filtre de messages indiquait que l'application était occupée

En cherchant sur le web, j'ai trouvé ce qu'il fallait faire.
- Lancer dcomcnfg.exe (si tu es sous W2000)
- dans l'onglet "Sécurité par défaut", modifier les "Autorisations d'accés par défaut", en ajoutant l'utilisateur "IUSR_nommachine"

A priori, cela suffit pour Excel.
Par contre, perso, mon problème était en utilisant Word. Et là j'ai été obligé de faire une autre manip, toujours dans la même fenêtre :
- dans l'onglet "Application", choisir "Document Microsoft Word", dans l'onglet "Identité", ne pas cocher "L'utilisateur exécutant", car cela ne fonctionne pas pour moi. Choisir une des deux autres options.

voilà

sabin