lancer / ordonner une application depuis IE

**k-koo** · 26/10/2007, 12h16

Bonjour a tous.

Je suis tout nouveau (de ce matin

) dans le monde de VBScript. J'ai lu un peu la FAQ et fait un petit tour des cours / exemples ici et là pour commencer. Et en me lancant dans mon tout premier script que de désillusion lorsque je vi l'erreur d'execution qu'il se passait !

Je dispose d'une application (d'impression de codebarre) qui met a disposition des controles ActiveX pour pouvoir notamment imprimer

. J'ai réaliser un formulaire html et mon but c'est d'utiliser son contenu avec ces controles.
Mais pour le moment j'en suis pas vraiment là puisque des problemes de comprehension / technique basique se sont poses :
- Pourquoi lorsque je test les exmeple de la FAQ Comment piloter Internet Explorer pour envoyer des informations à un site interne ou Comment piloter Excel pour créer un classeur.xls a l'interieur d'une page html toute simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
<HTML>
<BODY>
<FORM NAME="Feuille1">
   <INPUT TYPE="Button" NAME="Bouton1" VALUE="Clic">
   <SCRIPT FOR="Bouton1" EVENT="onClick" LANGUAGE="VBScript">
   <!--
      [script en question]
   -->
   </SCRIPT>
</FORM>
</BODY>
</HTML>

eh bien j'obtiens des erreurs tels que "un composant activex ne pas creer un objet : 'Excel.Application'" ou bien "Objet requis: WScript" ?
- Est on obliger de passer d'abord par un script vbs pour ensuite lancer IE (pour afficher mon formulaire puis lancer l'impression) ou bien peut on d'abord lancer un navigateur puis passer outre les messages d'erreur plus haut ?

Merci a tous de bien vouloir m'aider

**ced600** · 26/10/2007, 13h54

Est ce que tu as excel d'installé sur ton poste ?

Code :

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

Set IE = Wscript.CreateObject("InternetExplorer.Application")

ça c'est du VBA pas du VBS, il faut faire comme cela :

Code :

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

Set IE = CreateObject("InternetExplorer.Application")

**k-koo** · 26/10/2007, 14h44

Oui oui j'ai bien excel. Et en fait j'ai fais la modif pour IE et j'obtiens la meme erreur qu'avec excel :
"un composant ActiveX ne pas creer un objet : 'InternetExplorer.Application'"

**cubitus91** · 27/10/2007, 03h47

Bonsoir,
C'est sur ce script la :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate "http://www.developpez.net/forums/login.php"
Do While (IE.Busy)
    WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("vb_login_username")
Helem.Value = "NomUtilisateur"
Set Helem = IE.document.getElementById("vb_login_password")
Helem.Value = "MotDePasse"
Set Helem = IE.document.Forms(0)
Helem.Submit

que tu obtient une erreur. Teste le directement dans un fichier .vbs pour voir si tu as une erreur.
Sinon regarde ce petit KB de microsoft : http://support.microsoft.com/default...d=kb;fr;244264

Cdt

**k-koo** · 27/10/2007, 12h15

Bon deja information importante, j'ai pas le meme probmeme sur tout les postes avec lesquels je travaile !
Là, avec un pste different de celui d'hier, excel se lance bien grace au bouton de ma page web. En revanche j'obtien toujours la meme erreur pour lancer IE.
J'ai quand meme une question assez basique mais fondamentale : ca devrait marcher / ca mache chez vous ??
Au pire si ca marche toujours pas pour internet explorer c'st pas bien grave tant que j'arrive a creer un objet pour mon appli de codebar.
J'attend encore des infos de votre part et je vous dirais si ca marche pour mon appli (j'espere juste que j'aurais pas dautre probleme de comprehension de leur utilisation)

**k-koo** · 27/10/2007, 16h56

Bon alors j'ai pu installer mon logiciel, et il donne un exemple dans l'aide pour utiliser les controles :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim oCS As LabelManager2.Application
Dim oDoc As LabelManager2.Document
Dim ISize As Long
Dim devmode As Variant
 
Set oCS = GetObject(, "lppx2.Application")
Set oDoc = oCS.ActiveDocument
ISize = oDoc.Printer.GetDevMode(devmode)
ISize = oDoc.Printer.GetDevMode(devmode)
ISize = oDoc.Printer.SetDevMode(devmode)

D'apres ce que j'ai compris ceci est du code VB tout court donc je l'ai modif comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim oCS
Dim oDoc
Dim ISize
Dim devmode
 
Set oCS = CreateObject("lppx2.Application")
Set oDoc = oCS.ActiveDocument
ISize = oDoc.Printer.GetDevMode(devmode)
ISize = oDoc.Printer.GetDevMode(devmode)
ISize = oDoc.Printer.SetDevMode(devmode)

RESULTAT : ca marche pas

J'obtient la meme erreur si je l'execute depuis un fichier vbs tout seul ou bien si j'utilise ce code dans ma page HTML : "Object Requis 'oDoc'"
Quelqu'un peut il m'eclairer ?

**ced600** · 29/10/2007, 09h14

Bon deja information importante, j'ai pas le meme probmeme sur tout les postes avec lesquels je travaile !

Fait nous une description rapide du poste qui plante et des autres qui ne plantent pas.

Surtout quel OS utilises sur ces postes ? Win 2000 2003 XP Vista ?

**k-koo** · 29/10/2007, 17h07

Bon a priori j'ai finalement reussi a en faire un minimum acceptable. Juste pour l'info jetais sous winXP SP2 sur les 2 machines. Et en fait ca marchais corretement sur les 2 postes... Surement fait d'la merde qqpart !
Quoi qu'il en soit j'arrive a lancer mon appli mais elle se ferme toute seule

Je vais ouvrir une autre conversation plus dirigé ver le soft que j'utilise : codesoft
MErci de votre aide

lancer / ordonner une application depuis IE

VBScript

Discussions similaires

Partager

Partager