Discussion :

[sylvain37]

Dans une application je souhaite charger Excel dans un contrôle activeX.

La fenêtre activeX affiche "Navigation vers la page web annulée".

J'ai pourtant bien alloué un objet dynamique mais sans succès.
Quelqu'un aurait-il une idée ?

Pour information je suis sous Internet Explorer 8.
Merci d'avance,

[wimbish]

Bonjour,

??? peux tu êtres plus précis, quel est le rapport entre Excel, windev et IE?
es tu sûr d'avoir chargé un activeX Excel et pas IE?

[frenchsting]

Je n'ai plus la syntaxe en tête mais : tu dois charger un "excel.automation" et pour ton contrôle activex sur ta fenêtre, dans la description tu dois prendre excel.

Il y a l'exemple complet pilotage de excel livré avec wd.

Note : sur le poste client, excel devra être installé

[sylvain37]

Dans la description de l'activeX du menu "général", il n'y a pas Excel dans la liste de choix ??
J'utilise la classe CExcel, qui fonctionne très bien en ouvrant Excel.
Mais dans mon appli je souhaite ouvrir excel dans l'activeX.

Déclaration de l'objet:

Code :

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

1
2
// Classe de pilotage de Excel
clExcel est un objet dynamique

Init de la fenêtre contenant l'activeX:

Code :

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

1
2
3
4
5
6
7
8
9
// l'ActiveX utilisé est: "Navigateur Web Microsoft" soit Internet Explorer
// Le code suivant demande à IE d'afficher un document Excel
// Celui-ci reconnait le format et lance Excel
AX_ActiveX1>>Navigate(NomFichierXls)
 
Multitâche(-10)
 
// Allocation de l'objet Excel
clExcel = allouer un CExcel(Vrai)

Init de l'activeX:

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
// L'ActiveX est-il installé ?
SI RegistreExiste("HKEY_CLASSES_ROOT\Shell.Explorer")=Faux ALORS
	Erreur("Cette application nécessite Internet Explorer 4 minimum")
	FinProgramme()	
FIN
 
// Chargement de l'ActiveX
AX_ActiveX1="Shell.Explorer"
 
// Instanciation OK ?
objTest est un objet OLE dynamique = AX_ActiveX1
SI objTest=Null ALORS
	libérer objTest
	FinProgramme("L'ActiveX Internet Explorer n'a pas pu être chargé")
FIN
libérer objTest

Le code semble correct, je pense à un souci du côté de IE.

[frenchsting]

Si ça ne marche pas, prends l'activex de l'exemple par copier coller vers ton projet...

Edit : j'ai mis une énormité. L'activex n'a pas de description excel

Quelle est ta version de windows ? Et celle de IE ?

[sylvain37]

Windows7 et IE8.

Pour info à l'origine j'ai développé cette appli sous windev 10.
Elle fonctionnait très bien et l'activeX aussi.

Depuis windev 14 ou windows 7, ça ne veut plus.

Je vais essayer sur une ancienne machine de faire tourner WD10 sous XP avec mon projet pour voir si ça veut fonctionner.