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.