Discussion :

[Garulflo]

HelloW Messieurs les Rois de la Programmation!!
Voilà j'ai besoin de votre aide chers Confrères:
J'utilise VBS Factory pour programmer et j'ai un petit soucis:
Je n'arrive pas à trouver le moyen de créer un programme permettant d'ouvrir une Fenêtre FireFoX.
J'ai trouvé pour Internet Explorer mais j'ai des problèmes avec pour le moment

ALors, connaîtriez-vous par hasard un bout de programme pour:
_ Soit ouvrir FireFoX,
_ Soit ouvrir le navigateur par défaut de l'ordinateur.

Je vous remercie d'avance de votre aide,
Garulflo

[ced600]

Qu'est ce que tu veux dire par ouvrir ?
Lancer l'exécutable ?

[Garulflo]

Qu'est ce que tu veux dire par ouvrir ?
Lancer l'exécutable ?

Et bien par exemple oui ^^
Mais que je puisse aussi lui "dire" d'aller sur une adresse

[ced600]

C'est deux choses différentes de lancer un executable et de piloter une application.
C'est pour cela que je demande.

Pour lancer un exécutable c'est la même commande quelque soit l'exécutable et il y a eu déjà plusieurs poste là dessus ....

En ce qui concerne le pilotage d'une application MS, il faut récupérer l'objet correspondant à l'application et la piloter (voir le forum VBA).

Quand à firefox, je ne sais pas si on peut faire la même chose où s'il y a un autre système équivalent, je pense que la réponse est sur leur site.

Bref je ne pouvais t'aider que si tu te trouvais dans le permier cas .

[Garulflo]

Bah en fait, au départ je cherchais un code du genre:

Code :

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

1
2
3
4
5
Dim Pages
Pages=Inputbox ("Saisissez le Nombre de Pages","Nombre de Pages")
Set IE=CreateObject("InternetExplorer.Application") 
ie.navigate "http://arkanj.miniville.fr" 
ie.visible=1

Mais en version FireFoX quoi ^^
Parce que là c'est pour Internet Explorer.

Euh...les codes VBA ne marche pas pour VBS non?
(SorrY je suis pas vraiment un Pro de la Progra ^^)

[ced600]

si, s'ils sont adaptés, par exemple pas de délcaration

Code :

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

dim toto as long

mais une déclaration

Code :

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

dim toto

En tout cas les fonctions, procedures, et méthodes utilisées en VBA sont les même en VBS.

Code :

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

1
2
3
4
5
Dim Pages
Pages=Inputbox ("Saisissez le Nombre de Pages","Nombre de Pages")
Set IE=CreateObject("InternetExplorer.Application") 
ie.navigate "http://arkanj.miniville.fr" 
ie.visible=1

Ce genre de code c'est bien pour IE, mais je en sais pas si c'est utilisable pour Firefox -> regarde sur leur site, pour savoir ce que tu peux faire (enfin si tu trouves, j'y suis allé et je me suis perdu ).

[Garulflo]

OK, je vais aller y faire un tour (ThanXxXxX!!!)

[Invité]

Bonjour

Et avec l'API ShellExecute (code dans le forum, et la FAQ), elle permet d'ouvrir un fichier avec le programme associé à l'extensions.
Si FireFox est le programme associé, cela devrait fonctionner.

Je ne peux tester, je ne l'ai pas sur ce micro, mais fais le test.

Starec