Fonction dos ...

Bonjour,

Déjà répondu sur le forum Excel :

Utilise l'API ShellExecute

Private Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShellExecute Lib "Shell32.dll" Alias
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As Long

ShellExecute 0&, "open", "http://www.toto.ici", 0, 0, SW_SHOWMAXIMIZED

John wrote:

Bonjour,

Dans le dos, il est possible de lancer la commande suivante :

start http://www.lesite.com

ce qui ouvre l'url dans le navigateur par défaut de l'utilisateur.

Est-il possible de faire le même appel à partir de vb ??


Merci de vos réponses

--
Cordialement,

Jacques.

"John" <jac_be@hotmail.com> a écrit dans le message de
news:O35bLZUOFHA.3716@TK2MSFTNGP14.phx.gbl...

Bonjour,

Dans le dos, il est possible de lancer la commande suivante :

start http://www.lesite.com

ce qui ouvre l'url dans le navigateur par défaut de l'utilisateur.

Est-il possible de faire le même appel à partir de vb ??

Hello,
il y a plein de façon de faire ça, avec les API, etc.
Mais une façon amusante est celle-ci:

Private Sub Command1_Click()
Dim f As Integer

f = FreeFile
Open "start.bat" For Output As #f
Print #f, "start http://www.google.com/"
Close #f
Shell ("start.bat")

End Sub


--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."

Heu, dois-je ajouter, avec une gestion d'erreur, dès fois
qu'il existe déjà, et puis, on peut éventuellement le
supprimer à la fin :o)
---------

"Jean-Marc" <webmaster@planetejm.atspace.com> a écrit dans
le message de news:
42518de6$0$30467$ba620e4c@news.skynet.be...

"John" <jac_be@hotmail.com> a écrit dans le message de
news:O35bLZUOFHA.3716@TK2MSFTNGP14.phx.gbl...

Bonjour,

Dans le dos, il est possible de lancer la commande
suivante :

start http://www.lesite.com

ce qui ouvre l'url dans le navigateur par défaut de
l'utilisateur.

Est-il possible de faire le même appel à partir de vb ??

Hello,
il y a plein de façon de faire ça, avec les API, etc.
Mais une façon amusante est celle-ci:

Private Sub Command1_Click()
Dim f As Integer

f = FreeFile
Open "start.bat" For Output As #f
Print #f, "start http://www.google.com/"
Close #f
Shell ("start.bat")

End Sub


--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."

Salut,

Hello,
il y a plein de façon de faire ça, avec les API, etc.
Mais une façon amusante est celle-ci:

Amusant mais pas très élégant :/

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Salut,

Private Declare Function ShellExecute Lib "Shell32.dll" Alias
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As Long

ShellExecute 0&, "open", "http://www.toto.ici", 0, 0, SW_SHOWMAXIMIZED

ShellExecute() est en effet la bonne solution :).

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Bonjour,
ng wrote:

Salut,

Private Declare Function ShellExecute Lib "Shell32.dll" Alias
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As Long

ShellExecute 0&, "open", "http://www.toto.ici", 0, 0, SW_SHOWMAXIMIZED

ShellExecute() est en effet la bonne solution :).

Je partage totalement ton avis :-D

Pour ceux que ça intéresse,
on peut dans le paramètre 'lpFile' mettre comme ici, une URL, mais aussi
un nom de fichier : .doc, .xls, .pdf, etc ... le fichier sera ouvert
avec l'application idoine (En fait c'est un peu l'équivalent du
double-click dans l'explorateur)

Plus de détails ici :

http://minilien.com/?XYAyPi8Iz8


--
Cordialement,

Jacques.

"ng" a écrit:
| Amusant mais pas très élégant :/

Pas très élégant pour une seule commande mais assez intéressant si on veut executer de manière synchrone une série de commandes
personalisées...
(je n'y avais jamais pensé)

Pascal B

"Pascal B." <Pascbr@hotmail_ANTISPASM_.com> a écrit dans le message de
news:OZ1j7zeOFHA.3512@TK2MSFTNGP15.phx.gbl...

"ng" a écrit:
| Amusant mais pas très élégant :/

Pas très élégant pour une seule commande mais assez intéressant si on veut

executer de manière synchrone une série de commandes

personalisées...
(je n'y avais jamais pensé)

C'est vrai que ce n'est pas élégant, la solution avec les API est sans
doute plus "jolie". Mais très très pratique effectivement pour une
foule de choses, notamment quand on doit lancer plusieurs fois un exe
qui prend das paramètres dans une variable d'environnement par exemple.
Il suffit de générer des batch dynamiquement et de lander tout ça. Très
commode en fait :-)

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."

Salut,

Très judicieux, en effet, de s'occuper de ce qui peut exister déjà ;
bien qu'avec la syntaxe proposée le fichier existant est remplacé si je
ne m'abuse ?

"Gloops" <gloops@niark.fr> wrote in message
news:4253d83b$0$817$8fcfb975@news.wanadoo.fr...

Salut,

Très judicieux, en effet, de s'occuper de ce qui peut exister déjà ;
bien qu'avec la syntaxe proposée le fichier existant est remplacé si je
ne m'abuse ?

Oui bien sur. On peut faire plein de développement autour de ce concept
pour adresser une large variété de situations différentes.

--
Jean-marc