Discussion :

[crashdown31]

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

[Vesta]

Lol je n'avais meme pas remarqué lol merci

Si t'a un prob hésite pas...

[crashdown31]

ok encore merci

[crashdown31]

je galère ! Comment as-tu appris le Vba et combien d'année d'expèrience as-tu ?

[Vesta]

j'ai compris la technique à employé (disons fonctionnel)

Lol donne moi ton idée maitresse, ton idée fonctionnelle

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

[crashdown31]

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.

[Vesta]

envoie moi le innerHTML et montre moi ce que tu veux récupérer dedans...

[crashdown31]

je le trouve où ce document inner.html ?

mon programme fonctionne mais il n'exploite pas ce document

[Vesta]

Code :

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

WebBrowser1.Document.documentElement.innerHTML

[crashdown31]

[crashdown31]

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 !

[Vesta]

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

Code :

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

code.text = WebBrowser1.Document.documentElement.innerHTML

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...

[crashdown31]

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 !

[crashdown31]

J'ai trouver plus simple :

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

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é.

Quel code pourai-je ecrire pour lancer le filtrage des la fin du chargement de la page ?

[Vesta]

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

J'y avais pensé... Mais alors je t'explique :
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

[crashdown31]

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

[crashdown31]

J'ai essayer le timer et le filtrage ne se lance pas

[Vesta]

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

[crashdown31]

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