Discussion :

[JEDTAR]

Bonjour,

Je cherche les instructions necessaires pour ouvrir une page web à partir du code d'un bouton?

Par exemple: quand j'active cmd1 (mon bouton) je veux ouvrir la page web "www.google.fr" et passer en parametre le contenu de txt1 (ma zone texte)
donc ouvrir la page: "www.google.fr/txt1"

merci d'avance.

[Vince]

Code :

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

1
2
3
4
5
   1. 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
   2.  
   3. ' Pour ouvrir une URL :
   4.  
   5. ShellExecute Me.hwnd,"open","http://www.LeDomaine.com/LeChemin/LaPage.html",ByVal 0&,0&,1

[JEDTAR]

Salut,
J'ai copié le code que tu m'a envoyé mais j'ai un message d'erreur

Code :

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

Only comments may appear after End Sub, End Function, or End Property

l'erreur vient de l'instruction

Code :

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

1
2
 
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

[linda15975]

le code que tu as doit être mis entre ces 2 lignes:

Code :

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

1
2
3
Private Sub CommandButton1_Click()
 
End Sub

A adapter selon le nom de ton bouton

[JEDTAR]

Salut Linda15975,
J'ai bien mis le code entre

Code :

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

1
2
3
Private Sub CommandButton1_Click()
 
End Sub

mais ça ne marche pas!

[linda15975]

tu n'as pas laisser les numéros: 1. 2.

[JEDTAR]

Non! j'ai enlevé les numeros de lignes

[linda15975]

tu devrais peut-être mettre la ligne

Code :

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

declare function ....

dans un module

[JEDTAR]

J'ai deplacé la ligne declare dans un module
Mais le compilateur bloque sur

Code :

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

ShellExecute Me.hwnd

il n'arrive pas à detecter la methode "hwnd"

Code :

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

Method or data member not found

c quoi "hwnd"??

[linda15975]

Je pensais que ça marchait sur VB6...
Tu peux aller voir ici: http://www.developpez.net/forums/sho...light=hwnd+vba

[Commodore]

essaie de déclarer ton API en entête du module où se trouve le code qui va l'utiliser.

Private Declare...

[Commodore]

http://msdn2.microsoft.com/fr-fr/lib...ndow.hwnd.aspx

[JEDTAR]

Merci beaucoup j'ai reussi à ouvrir la page Web de Google
ça marche directement avec le code suivant:

Code :

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

1
2
3
 
Shell "C:\Program Files\Internet Explorer\iexplore " & _
        "http://www.google.fr", vbNormalFocus

[philouxy]

Merci JedTar pour ton code, ca marche Nickel

Voici aussi celle pour ouvrir une pages fireFox

Code :

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

1
2
 
Shell "C:\Program Files\Mozilla Firefox\firefox " & "http://www.google.ch", vbNormalFocus

En tout cas merci !!!

A++