Discussion :

[kbkbk]

Bonjour,

J'aimerai copier des données d'une table sous Webdev dans excel en pilotant Excel par objet OLE.
Je le fais très bien en Windev et ça marche super bien:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
xl est un objet OLE "Excel.Application" 
xl>>visible = OLEVrai 
xl>>workbooks>>add() 
xl>>Sheets("Feuil1")>>Select() 
 
i est un entier=1
nNblignes est un entier = TableOccurrence(Test) //nombre de lignes dans la table
 
TANTQUE i<nNblignes 
 
xl>>range("A"+i)>>Value =Structure1[i]	
xl>>range("B"+i)>>Value =Classement_Général[i]			
xl>>range("C"+i)>>Value =Poids_ou_Coefficient[i]
xl>>range("D"+i)>>Value =Resultat_ETP[i]
xl>>range("E"+i)>>Value =Ecart_au_1er[i]
xl>>range("F"+i)>>Value =Resultat_ETP[i]
xl>>range("G"+i)>>Value =Rang_M[i]
xl>>range("H"+i)>>Value =Rang_M_1[i]
i=i+1
FIN

Mon probème est que quand je refais exactement la même chose avec WebDev, j'ai le message d'erreur suivant:

L'objet automation 'Excel.Application' n'est pas installé sur votre système.

Code erreur : 2202
Niveau : erreur fatale (EL_FATAL)

Dump de l'erreur du module 'WD150VM.DLL' (15.00Os).
Identifiant des informations détaillées (.err) : 2202
Informations de débogage :
__AlloueAutomation
Informations supplémentaires :
EIT_PILEWL :

Quelqu'un sait-il pourquoi et comment faire pour que ça marche?

Merci d'avance pour vos réponses.

[miripesage]

Bonjour, avec WB, faite un essai comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
xl  est un objet Automation dynamique
xl = allouer un objet Automation "Excel.Application"
xl>>visible =Vrai 
 
xl>>workbooks>>add() 
xl>>Sheets("Feuil1")>>Select() 
 
i est un entier=1
nNblignes est un entier = TableOccurrence(Test) //nombre de lignes dans la table
 
TANTQUE i<nNblignes 
 
xl>>range("A"+i)>>Value =Structure1[i] 
xl>>range("B"+i)>>Value =Classement_Général[i] 
xl>>range("C"+i)>>Value =Poids_ou_Coefficient[i]
xl>>range("D"+i)>>Value =Resultat_ETP[i]
xl>>range("E"+i)>>Value =Ecart_au_1er[i]
xl>>range("F"+i)>>Value =Resultat_ETP[i]
xl>>range("G"+i)>>Value =Rang_M[i]
xl>>range("H"+i)>>Value =Rang_M_1[i]
i=i+1
FIN

[kbkbk]

Merci miripesage pour ta réponse, mais, j'ai toujours le même message d'erreur.
Il me semblait déjà avoir fait cette tentative.
Après vérification,effectivement, j'ai déjà essayé cette solution helas, le problème persiste.

[vmolines]

D'après le message d'erreur, Excel n'est pas disponible sur la machine qui doit faire de l'automation.

A priori, il suffirait donc de l'y installer.

[kbkbk]

C'est curieux car c'est sur cette meme machine que j'arrive à le faire avec Windev et Excel y est installé.

[vmolines]

Attention, en Webdev c'est le serveur qui exécute le code et essaie d'invoquer des objets automation.

Ce poste est-il à la fois client et serveur ?

Cela pourrait aussi être dû à des droits insuffisants. Il faut s'assurer que l'utilisateur sous lequel le serveur d'application tourne a bien les droits nécessaires pour faire ça.