Discussion :

[pom]

Bonjour,

J'ai développé une application web qui tourne sous IIS. Cette application génère des fichiers texte et les upload sur le poste client. Je voudrais maintenant lui faire générer des fichiers Excel et les uploader de la même manière. J'ai lu le petit tutoriel à ce sujet sur ce site, et tout fonctionne très bien en local. Quand je dépose ma dll sur le serveur, la création de fichier échoue au moment où j'instancie mon objet:

Code :

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

    Set appExcel = CreateObject("Excel.Application")

et je récupère cette erreur

Number : -2147221168
Description : Automation error
Could not read key from registry

Je constate que mon poste a une version d'Excel qui est la 10 (donc celle que j'inclue dans les References de mon projet), alors que le serveur a la 8 installée. Cela peut-il avoir un rapport? Et si oui, avez-vous une idée pour le contourner?

Merci,
pom

[zazaraignée]

Salut

Oui, c'est sans doute un problème de version. Il te faudra référencer la version du réseau. Vérifie avec le gestionnaire du réseau s'il le faut.

[BM42]

Salut

Il faut qu tu charge les références de Excel 8 dans ton appli ou la version la plus ancienne d'excel qui peut être installé sur ton réseau.

A+

[ThierryAIM]

avec une liaison tardive comme celle-ci :

Code :

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

    Set appExcel = CreateObject("Excel.Application")

il te suffit de déclarer dans ton code ... As Object, au lieu de ... As Excel.Application pour éviter les erreur du compilateur et de décocher la référence à Excel avant de distribuer l'appli, pour prendre la version installée

Ceci fonctionne très bien, sans référence Excel cochée

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Load()
Dim appExcel As Object
Dim objFEB As Object
    Set appExcel = CreateObject("Excel.Application")
    Set objFEB = appExcel.Workbooks.Open("c:\test.xls")
 
    appExcel.Visible = True
End Sub

[pom]

Après tests plus fouillés, il plante au moment du

Code :

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

Set wbExcel = appExcel.Workbooks.Add

et il me dit

Error Number : -2147221168
Description : Automation error
Could not read key from registry

Toujours la même chose, en fait.

Je vais brûler un cierge et j'essaie tout de suite après ta ruse de sioux, ThierryAIM!

[pom]

ThierryAIM, tu es dorénavant mon nouveau dieu, si tu passes du côté du Boulevard des Italiens, il y aura toujours une bière au frais dans mon frigo. Quand j'en aurai un bien entendu. MERCI!