bonsoir Franck , bonsoir Eric
effectivement il y a parfois des petits soucis pour accéder aux wikipages...ce n'est pas grave :
ci dessous les infos concernant les WebBrowser
Afficher un message quand une page est totalement chargée
************************************************
Le lien sur le forum XLD
Lien supprimé
Le fichier zippé
Lien supprimé
Un message défilant dans le Webbrowser ,
**********************************
avec une option pour changer la couleur et le texte
Le fichier zippé
Lien supprimé
Préciser la couleur de fond , le type de police et la taille d'un texte dans un Webbrowser
*****************************************************
Le lien sur le forum XLD
Lien supprimé
Afficher la source Html d'un Webbrowser
*****************************
'renvoie une erreur si le Webbrower est vide
Private Sub commandButton1_Click()
Dim Cible As String
Cible = webBrowser1.Document.Body.innerHTML
msgBox Cible
End Sub
Quelques actions sur les Webbrowser
*****************************
Changer le texte dans un bouton , puis appliquer le focus sur ce bouton
Afficher des informations générales sur une page html : la date de la création de la page , la date de la dernière modification , la taille de la page
Compter le nombre d'images d'une page html et lister les adresses , sans doublons .
Piloter une page html par macro : Exemple sur le moteur de recherche XLD
Le lien sur le forum XLD
Lien supprimé
Le fichier zippé
Lien supprimé
Piloter des pages internet depuis un webBrowser
**************************************
Une excellente démo de Didier ,myDearFriend : voir la partie FindIT dans le classeur
Le fichier dans la zone de téléchargement XLD
Lien supprimé
Lister les liens hypertextes d'une page , sans les doublons
************************************************
Private Sub commandButton1_Click()
Dim i As Integer, X As Integer
Dim Resultat As String
For i = 0 To webBrowser1.document.links.Length - 1
If inStr(Resultat, webBrowser1.document.links.Item(i)) = 0 Then 'controle des doublons
Resultat = Resultat & webBrowser1.document.links.Item(i) & vbLf
X = X + 1
Cells(X, 1) = webBrowser1.document.links.Item(i)
End If
Next
End Sub
Utiliser une barre de progression pendant le chargement d'une page
***************************************************
Private Sub webBrowser1_progressChange(byVal Progress As Long, byVal progressMax As Long)
On Error Resume Next
If Progress = -1 Then progressBar1.Value = 100
If Progress > 0 And progressMax > 0 Then
progressBar1.Value = Progress * 100 / progressMax
End If
End Sub
Lorsque le curseur de la souris passe sur un lien dans une page , l'URL s'affiche dans un Label (Label1) de l'USF
*************************************************
Private Sub webBrowser1_statusTextChange(byVal Text As String)
Label1 = Text
End Sub
Gérer une base de données d'images et les fiches d'informations associées
***********************************************
L'exemple permet de visualiser , en une fois dans le Webbrowser , toutes les images du répertoire
Le lien sur le forum XLD
Lien supprimé
Le fichier zippé
Lien supprimé
bonne soiree
MichelXld
