Daccord décidement le vba est soit disant pour débutant mais je le trouve pas si facile que ça ! Félicitation pour ton nouveau grade !
Je cherche la solution je te tient au courant dès que c'est positif
Daccord décidement le vba est soit disant pour débutant mais je le trouve pas si facile que ça ! Félicitation pour ton nouveau grade !
Je cherche la solution je te tient au courant dès que c'est positif
Lol je n'avais meme pas remarqué lol merci
Si t'a un prob hésite pas...
je galère ! Comment as-tu appris le Vba et combien d'année d'expèrience as-tu ?
Lol donne moi ton idée maitresse, ton idée fonctionnellej'ai compris la technique à employé (disons fonctionnel)
Je vais essayer de traduire ca pour toi... J'ai appris en expérimentant, c'est le meilleur moyen je pense... Ca fait 3-4 ans que je m'amuse avec VB... Mais vraiment 2ans que je m'y intéresse de plus pres et ait bien expérimenté VBA
Ben disons que j'ai compris qu'une fois le code source de la page internet récupéré il faut coder une fonction qui extrait seulement les codes de cettes page dont on a besoin en précisant un élement de code unique.
ensuite mettre cette idée en pratique je n'y arrive pas, je manque trop de connaissances et de bases.
j'ai déjà commencer un bouquin Visual basic 6 - les bases du développement de Abderrahmane Fadil et j'avoue que suivre est difficile les exemple ne sont pas si facile à retenir.
envoie moi le innerHTML et montre moi ce que tu veux récupérer dedans...
je le trouve où ce document inner.html ?
mon programme fonctionne mais il n'exploite pas ce document
Code : Sélectionner tout - Visualiser dans une fenêtre à part WebBrowser1.Document.documentElement.innerHTML
Merci
Il faut que je recadre la page décalé
il faudrai trouver un moyen de récupérer le code source de la page sans l'afficher et ensuite de l'afficher après modification du code source avec Istr et Mid.
J'y creuse !
Le code source c dans cette propriété su Webbrowser
WebBrowser1.Document.documentElement.innerHTML
alors dans la procédure qui modifie le code source tu demande de la mettre dans le textbox
moi j'ai fais au plus vite, pas trop chipoté il y a surement mieu a faire avec le code mais j'ai fais au plus vite pour te montrer...
Code : Sélectionner tout - Visualiser dans une fenêtre à part code.text = WebBrowser1.Document.documentElement.innerHTML
Ok merci je vais essayer ton conseil !
Tu as bien fait de faire au plus vite, en tant que padawan il faut bien que je combate le code !
J'ai trouver plus simple :
A la fin de cette procédure, le filtrage se met en place seulement le webbrowser génère une erreur car le filtrage se déclenche avant que le code source de la page internet soit completement chargé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) CodeSrc = WebBrowser1.Document.documentElement.innerHTML 'récupération du code source If (pDisp = WebBrowser1.Object) And RechercheEnCours Then Code.Text = CodeSrc Label1 = vbNullString End If AfficherResultats End Sub
Quel code pourai-je ecrire pour lancer le filtrage des la fin du chargement de la page ?
J'y avais pensé... Mais alors je t'explique :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) CodeSrc = WebBrowser1.Document.documentElement.innerHTML 'récupération du code source If (pDisp = WebBrowser1.Object) And RechercheEnCours Then Code.Text = CodeSrc Label1 = vbNullString End If End Sub
La partie en gras vérifie si la page est entierement chargée, il passe par cette fonction a chaque fois qu'un cadre est chargé je crois. Lorsque la condition en gras est vérifiée, la page est chargée entierement.
Le probleme c'est qu'en mettant 'AfficherResultats' dans cette partie de conde ne fonctionne pas car je suppose que comme le controle est encore oqp dans cette fonction, il ne veut pas changer son code Html.
Une solution que je vois si tu ne veux pas etre obligé de cliquer pour afficher les résultats serait de lancer un timer qd la page est chargée. et ensuite a l'évenement timer, "AfficherResultats"
Donc comme ca :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub Timer1_Timer() Timer1.Enabled = False AfficherResultats End Sub Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) CodeSrc = WebBrowser1.Document.documentElement.innerHTML 'récupération du code source If (pDisp = WebBrowser1.Object) And RechercheEnCours Then Code.Text = CodeSrc Label1 = vbNullString Timer1.Enabled = True End If End Sub
Ptite erreur de ta part dans ton code non ? Ce n'est pas plutot True
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub Timer1_Timer() Timer1.Enabled = False AfficherResultats End Sub Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) CodeSrc = WebBrowser1.Document.documentElement.innerHTML 'récupération du code source If (pDisp = WebBrowser1.Object) And RechercheEnCours Then Code.Text = CodeSrc Label1 = vbNullString Timer1.Enabled = True End If End Sub
Si la partie en vert verifie le chargement complet de la page alors la chaine qui lance le filtrage est bien placée ! mais apparemment non toujours même problème ! Il faut voir si la partie en vert effectue vraiment la foncion de vérification !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) CodeSrc = WebBrowser.Document.documentElement.innerHTML 'récupération du code source If (pDisp = WebBrowser1.Object) Then Code.Text = CodeSrc Label1 = vbNullString AfficherResultats End If End Sub
J'ai essayer le timer et le filtrage ne se lance pas
Non non, mon timer est bien placé...
Il se lance des la verification et s'arrete dessuite quand il est appelé...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub Timer1_Timer() AfficherResultats Timer1.Enabled = False ' On arrete le timer End Sub Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) CodeSrc = WebBrowser1.Document.documentElement.innerHTML 'récupération du code source If (pDisp = WebBrowser1.Object) And RechercheEnCours Then Code.Text = CodeSrc Label1 = vbNullString Timer1.Enabled = True ' Etape1 : On lancele timer End If End Sub
ok daccord je vais réessayer surement une mauvaise manipulation de ma part !
Je ne serai pas souvent connecté à partir de ces prochains jour : révisions et bac oblige !
J'ai acheter un livre de microsoft sur visual basic 2005 pour aprendre les bases, je ne voulais pas en savoir d'avantage sur le 6 car les structure de codes sont totalement differentes et apprendre le 6 pour migrer ensuite ! non merci. de plus les fonctionnalités sont vraiment poussés et on peut vraiment travailler à l'aise je pense que tu devrai migrer si tu ne l'a pas encore fait ! j'en suis scotché ! peut être à l'avenir j'apporterai mon aide au forum visual 2005 ! Je conseille ce bouquin clair et très efficace :
Editeur : Microsoft Press
Titre : Microsoft Visual Basic 2005 Etape par etape
Pour les débutants à lire intégralement
Pour ceux qui connaissent déjà le 6 ou le .Net 2002 ou 2003
Résumer des chapitre à sauter et à lire pour vous faire migrer.
Néamoins dès que mon projet sera développé je t'en tiendrai informé continuellement ! Merci encore et à très prochainement !
Merci
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager