Comment creer un ocx pour appel dans page html

**minette** · 04/07/2006, 17h22

Désolée si ça été posté mais ,
j'ais fais un code en standard exe en vb6 qui me permet d'automatiser
la fusion et publipostage word !

mais la ou je coince c'est quand je voudrais mettre ce programme en ocx et l'appeller dans une page web avec les balise <OBJECT> !

Comment faire ? pour le CLSID aussi ?
Aidez moi svp !, j'attend vos conseils ,
dur d'avoir la documentation simple dessus

Merci

**zazaraignée** · 06/07/2006, 02h45

Salut

Si tout ton code tient dans la feuille principale,

ouvre ton projet (exe)
ouvre un nouveau projet (nouvelle instance de VB, par le menu Démarrer) en choisissant Contrôle ActiveX dans la fenêtre de démarrage de VB
copie tout tes objets présents sur la feuille de ton projet sur la feuille (sans bordures) de ton projet ActiveX
ensuite copie le code de ton projet vers la feuille de code de ton projet ActiveX
il ne reste plus qu'à tester et empaqueter en ActiveX.

Si, par contre, ton projet initial prend plus d'une feuille, des fonctions complèxes dans des modules, etc., il ne sera pas possible d'utiliser l'astuce que je viens de te donner... Si c'est le cas, donne plus de précisions sur ton projet.

**minette** · 06/07/2006, 10h52

Envoyé par zazaraignée

Salut

Si tout ton code tient dans la feuille principale,

ouvre ton projet (exe)
ouvre un nouveau projet (nouvelle instance de VB, par le menu Démarrer) en choisissant Contrôle ActiveX dans la fenêtre de démarrage de VB
copie tout tes objets présents sur la feuille de ton projet sur la feuille (sans bordures) de ton projet ActiveX
ensuite copie le code de ton projet vers la feuille de code de ton projet ActiveX
il ne reste plus qu'à tester et empaqueter en ActiveX.

Si, par contre, ton projet initial prend plus d'une feuille, des fonctions complèxes dans des modules, etc., il ne sera pas possible d'utiliser l'astuce que je viens de te donner... Si c'est le cas, donne plus de précisions sur ton projet.

Merci j'ai essayé l'astuce mais je ne comprends pas tres bien !!!
(dsl un peu d'eclaircissement stp)
Aussi comment je recupere le guid pour mettre le clsid de l'activeX dans mon code html?

**minette** · 11/07/2006, 10h29

Bonjour c'est encore moi !
J'ais reussi grace a l'astuce de zazaraignee a empaqueter mon control en ocx pour le web !!
je met le .CAB et mon .ocx dans mon repertoire du serveur web !
j'appelle l'ocx dans la balise object et il affiche bien le programme dans la page web !

Le problem il me met une erreur 91 bloc with non defini et ne peut creer l'objet .
Quand je click sur debug il me met cette ligne

Code :

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

1
2
 
Set oMainDoc = oApp.Documents.Add(model, False)

en jaune !!

Auriez vous une idee pour regler ce problem svp

??? !!!

**SfJ5Rpw8** · 11/07/2006, 12h51

il y as quoi dans ta variable model ...?

essai de l'afficher..

Code :

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

1
2
3
 
msgbox model
Set oMainDoc = oApp.Documents.Add(model, False)

**minette** · 11/07/2006, 13h24

Envoyé par bbil

il y as quoi dans ta variable model ...?

essai de l'afficher..

Code :

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

1
2
3
 
msgbox model
Set oMainDoc = oApp.Documents.Add(model, False)

Oui en fait ma variable model contient le chemin d'accès au document modele .dot que je recupere depuis un common dialogue sans soucis !!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command3_Click()
Dim essai
    With CommonDialog1
      .Filter = "Fichiers texte (*.dot)|*.dot"
      .ShowOpen
      If .FileName = "" Then
         Exit Sub
      End If
      Text2 = .FileName
    End With
    model = Text2
End Sub

je n'arrive pas a comprendre cette erreur run time 91 : Object variable or with block not set

Merci pour l'aide

**SfJ5Rpw8** · 12/07/2006, 14h37

as tu essayer le message box .. voir si model représenter bien le nom de fichier ( avec chemin accessible de puis le poste ou s'exécute l'Ocx) ?

**minette** · 12/07/2006, 14h50

Envoyé par bbil

as tu essayer le message box .. voir si model représenter bien le nom de fichier ( avec chemin accessible de puis le poste ou s'exécute l'Ocx) ?

En fait a dire vrai je sais pas comment faire l'ocx !
en gros ce code a été fais en standard exe et il fonctionne parfaitement donc model contient donc bien le chemin d'accès attendu !
Ensuite j'ai utiliser l'astuce de zazaraignee pour passer a l'ocx par simple enregistrement du code standard en control activex !!
tout se passe bien jusqua ce que le lance dans la page web avec object ...ocx.cab , il s'affiche bien , je lui met le chemin du dot document model et quand je click fusion il genere l'erreur 91 object or with block not set et me ramene a la ligne du set de mon programme !!

je suis coincée car je ne maitrise pas les subtilités des objets et activeX

**zazaraignée** · 14/07/2006, 18h04

Salut

Désolée, j'étaits en Ontario, Ste-Cathrine et des noces à l'italienne (on a mangé!), ensuite une douche et un bon coup de soleil à Niagara Falls, Retour au Québec, Rivière-Beaudette (c'est collé sur l'Ontario) pour des noces d'or Québéco-Franco-Italiennes: on a encore mangé... De retour à Rimouski, les boîtes et le déménagement qui n'est pas fini... Je prends le temps de siroter ma Rickard's Red et de regarder ce qui ce passe sur le forum...

Le problème vient peut-être du fait que l'application (la page Web et l'OCX) se trouvent sur un serveur et que l'utilisateur ouvre un fichier en local sur sa machine... Faudra déterminer si l'application traite côté serveur ou coté client... et faire avec. Il est où le fichier modèle?

**minette** · 15/07/2006, 11h57

Envoyé par zazaraignée

Salut

Désolée, j'étaits en Ontario, Ste-Cathrine et des noces à l'italienne (on a mangé!), ensuite une douche et un bon coup de soleil à Niagara Falls, Retour au Québec, Rivière-Beaudette (c'est collé sur l'Ontario) pour des noces d'or Québéco-Franco-Italiennes: on a encore mangé... De retour à Rimouski, les boîtes et le déménagement qui n'est pas fini... Je prends le temps de siroter ma Rickard's Red et de regarder ce qui ce passe sur le forum...

Le problème vient peut-être du fait que l'application (la page Web et l'OCX) se trouvent sur un serveur et que l'utilisateur ouvre un fichier en local sur sa machine... Faudra déterminer si l'application traite côté serveur ou coté client... et faire avec. Il est où le fichier modèle?

En tout cas Zaza tu as due etre trop bien, j'imagine , et je reve du moment ou je profiterais de quelques jours comme ça

Oui la page web et L'ocx je les met dans un repertoire sur un serveur web ,
et le fichier model se trouve coté client! l'application est traittée en fait coté client car sur le serveur je ne peux y mettre microsoft word.
Je l'ai simplement en local ( word ) !
Ais je repondu a ta question zaza ?
Sinon l'erreur persiste , ne dois je pas faire des variables et proprietés et methodes publiques ?
Est ce un probleme d'initialisation?
comment ?
aidez moi SVP !
Merci

**minette** · 17/07/2006, 15h21

Pourriez vous m'aider s'il vous plait !!!

Enfin je suppose que le temps vous manque !
Bon ça fait tache mais je suis coincée ...

Meme pour des idees conseils je suis preneuse svp à l'aide

**SfJ5Rpw8** · 17/07/2006, 18h09

essai de vérifier si ton ocx as bien accés au fichier modéle... un truc du genre

Code :

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

msgbox dir(model)

**zazaraignée** · 18/07/2006, 01h14

Salut

Je viens juste de me souvenir qu'un ActiveX se télécharge sur l'ordi client avec la page Web et tout l'tintouin qui vient avec... Donc, il ne devrait pas normalement y avoir de problème de ce côté.

En attendant, vérifie ce que bbil t'a proposé. Des fois, on ne sait jamais... C'est peut-être un problème d'accès au répertoire, permissions et droits d'accès, si tu vois ce qu'on veut dire.

**minette** · 18/07/2006, 09h04

Merci de vos reponses Zazaraignée et BBil.
J'ais essayé comme vous m'avez dit et le message box me donne bien mon fichier dot : essai9.dot ( c'est ce qu'il affiche )

Le fichier est situé dans un repertoire sur mon poste dans
C:\Documents and Settings\Administrateur\Bureau\sid_Java\document DOT\essai9.dot

Le message box affiche : essai9.dot

L'erreur persiste : Erreur d'execution '91' :
Variable objet ou variable bloc with non définie !

Je ne comprend plus rien

**SfJ5Rpw8** · 18/07/2006, 09h20

modifie la ligne

Code :

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

1
2
3
 
Set oMainDoc = oApp.Documents.Add(
"C:\Documents and Settings\Administrateur\Bureau\sid_Java\document DOT\" & model, False)

histoire de voir si l'erreur disparait... (ensuite faudra trouver un moyen de donner ce répertoire..)

**minette** · 18/07/2006, 09h42

Envoyé par bbil

modifie la ligne

Code :

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

1
2
3
 
Set oMainDoc = oApp.Documents.Add(
"C:\Documents and Settings\Administrateur\Bureau\sid_Java\document DOT\" & model, False)

histoire de voir si l'erreur disparait... (ensuite faudra trouver un moyen de donner ce répertoire..)

Je viens de recompiler le control avec la ligne Set que tu m'as proposée :
Mais hélas l'erreur persiste !
Peut etre que je compile mal?
Que se passe -t'il? Ais je manquée un aspect important de l'activeX?
ma tete surchauffe la

**SfJ5Rpw8** · 18/07/2006, 10h02

je suis peu être parti sur une mauvaise piste... peu-tu vérifier que l'objet oAPP est bien initialisé... en rajoutant par exemple

Code :

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

1
2
 
 MsgBox oApp.Name

avant la ligne qui provoque l'erreur 91...

**jmfmarques** · 18/07/2006, 10h10

Citation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub Command1_Click()
Dim essai
    With CommonDialog1
      .Filter = "Fichiers texte (*.dot)|*.dot"
      .ShowOpen
      If .FileName = "" Then
         Exit Sub 
     End If
     Text1 = .FileName
    End With
    model = Text1
End Sub

**minette** · 18/07/2006, 10h33

Le

Code :

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

Msgbox oApp.Name

N'affiche rien , il passe directement a l'erreur !
Et pourtant l'autre msgbox affiche bien le fichier DOT !

Serait ce la l'erreur ?

Merci de votre aide ...

**minette** · 18/07/2006, 10h40

Envoyé par jmfmarques

Citation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub Command1_Click()
Dim essai
    With CommonDialog1
      .Filter = "Fichiers texte (*.dot)|*.dot"
      .ShowOpen
      If .FileName = "" Then
         Exit Sub 
     End If
     Text1 = .FileName
    End With
    model = Text1
End Sub

J'ais meme supprimé ce test mais toujours la meme erreur !
Merci

Comment creer un ocx pour appel dans page html

VB 6 et antérieur

Discussions similaires

Partager

Partager