Discussion :

[pkrvz]

Bonjour avez vous des exemples de codes utilisant le control active X microsoft web brother.

Je cherche simple à afficher une page web dans un formulaire.

Merci

Patrick

[philben]

bonjour,

une solution simple :

Code :

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

1
2
 
Me.WebBrowser.Navigate "http:\\developpez.com"

avec WebBrowser le nom de mon controle. Code VBA à placer sur le FormLoad par exemple.

bonne journée,

Philippe

[francishop]

Bonjour,

On imagine que sur un formulaire on inscrit le Navigateur Web Microsoft en passant par Insertion/Contrôle ActiveX
Largeur 25 cm Hauteur 13
On lui donne un nom. Exemple : WebBrowser
Dans l'en tête du formulaire Un bouton surnommé :cmdGo
Un peu de code :

Code :

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

1
2
3
4
Private Sub cmdGo_Click()
    On Error Resume Next
    Me.WebBrowser.GoHome
End Sub

Ou sommes nous? Pour le savoir :
Dans l'en tête de formulaire une zone de texte de 11 cm x 0,6 cm —> txtDirection
un bouton—>cmdOuSuije
Un peu de code :

Code :

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

1
2
3
Private Sub cmdOuSuije_Click()
    Me.txtDirection = Me.WebBrowser.LocationURL
End Sub

On veut rentrer une adresse directement : Dans le module de ce formulaire :

Code :

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

1
2
3
4
5
Private Sub txtDirection_AfterUpdate()
 If Len(Me!txtDirection.Value) > 0 Then
    Navigate Me!txtDirection.Value
 End If
End Sub

Code :

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

1
2
3
4
5
6
7
Private Sub Navigate(strURL As String)
    On Error Resume Next
        Me.WebBrowser.SetFocus
        strURL = Me.txtDirection.Value
        Me.WebBrowser.Navigate strURL
DoCmd.ShowToolbar "Web", acToolbarNo
End Sub

On veut aller et revenir :

Un bouton —>cmdPrecedent —> un peu de code :

Code :

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

1
2
3
4
Private Sub cmdPrecedent_Click()
On Error Resume Next
    Me.WebBrowser.GoBack
End Sub

Un bouton —> cmdSuivant —> Un peu de code :

Code :

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

1
2
3
4
Private Sub cmdSuivant_Click()
On Error Resume Next
    Me.WebBrowser.GoForward
End Sub

Etc..

Cordialement.

[pkrvz]

Merci à vous deux c'est parfait

Cordialement

Patrick