Récupération de données sur le web avec cases à cocher et module flash

Version imprimable

Voir 40 message(s) de cette discussion en une page

01/02/2016, 15h46
Hexa82

Récupération de données sur le web avec cases à cocher et module flash

Bonjour à tous,

Aspirant à être mutée, je voulais me lancer dans la récupération des emplois (avec plusieurs départements cochés et si possible les liens actifs vers les postes) sur :
https://www.cap-territorial.fr/ (la carte est en flash, je ne sais même pas si c’est possible)
http://www.emploi-territorial.fr/accueil/
http://emploi.fncdg.com/

Avec un affichage (Poste, Lieu, date de publication et le lien)par ordre décroissant de mise en ligne

Je ne doute pas un seul instant de voir arriver Patrick par ici, et Seb par la même occasion ^^

Merci d'avance :lol:
01/02/2016, 22h05
Sebphyto

Re Hexa,

Et bien là c du lourd....Perso ca me dépasse là...:weird:
J'espère que Patrick sera des nôtres, afin que je puisse suivre ....

bonne soirée
Seb

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub DPOAnnonceLBC()
 On Error Resume Next
 'Déclaration des variables
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
'CHARGEMENT GENERAL
   'Chargement d'une page Web
   IE.Visible = True
IE.navigate "https://www.cap-territorial.fr/"
WaitIE IE
 
IE.document.parentWindow.execScript "javascript:document.forms['RECHERCHE'].dep_id.value='10';"
End Sub
 
'Procèdure placée dans un module standard pour vérifier le chargement total de la page.
Sub WaitIE(IE)
   'On boucle tant que la page n'est p'AS totalement chargée
   Do Until IE.readyState = 4
      DoEvents
   Loop
End Sub

10/02/2016, 12h20
Hexa82

Bonjour,

@ rdurupt :
Merci pour ton retour,cependant, comme je le précisais je souhaite sélectionner plusieurs départements en même temps.
Lorsque l'on clique sur la carte, on peut sélectionner autant de départements que l'on souhaite puis en cliquant sur "Voir le détail des offres", on accède aux résultats listant les offres pour tous les départements sélectionnés.

Avec la solution que tu apportes, on agit sur les critères de recherche (panneau de gauche). Malheureusement, ce panneau ne supporte qu'un seul choix par liste déroulante.

@Patrick :
C'est plus une pause que tu prends là, c'est une année sabbatique ! :ptdr:
10/02/2016, 13h46
patricktoulon

re

re
et oui mais j'ai plusieurs projets perso en route tu vois et il faut quand même que je j'aille bosser
donc mon temps est compté
je regarde se soir
purée dur la hexa hein!!!...:ptdr::ptdr:
y a pas de tireur aux flans avec elle:weird::calim2::mouarf::mouarf:

hexa analyse bien la réponse que tu a donné a Rdurupt tu devrais trouver ta réponse toute seule

et la je dis LOL
10/02/2016, 13h57
OlivYeah

Bonjour Hexa,

Je ne pense pas qu'il soit possible d'agir sur la carte en Flash.

La page est construite à partir de tableaux mais l'objet en question est un élément de type plugin inséré dans un TD du tableau:

<object*width="700"*height="700"*align="middle"*classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"*codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0">
<param*value="INTERFACE_CARTE.swf"*name="movie">
<param*value="high"*name="quality">
<embed*id="INTERFACE_CARTE"*width="700"*height="700"*align="middle"*pluginspage="http://www.macromedia.com/go/getflashplayer"*type="application/x-shockwave-flash"*allowscriptaccess="sameDomain"*swliveconnect="true"*bgcolor="#ffffff"*quality="high"*src="INTERFACE_CARTE.swf">
</object>

A cause de ça: allowscriptaccess="sameDomain", ça veut dire que seuls les scripts hébergés sur le même nom de domaine sont autorisés à interagir avec l'objet flash, quel que soit le "travail" de cet objet flash.

Bonne journée,

Olivier
12/02/2016, 10h00
Hexa82

Bonjour,

@OlivYeah : Merci pour ces éclaircissements même si j'aurais préféré entendre autre chose :P

@Patrick : Dois-je en déduire qu'il va falloir lancer autant de procédures que de départements que je souhaite cocher ?
Si tu ne te mets pas au taf rapidement , tu vas tâter mon fouet ^^ :ptdr:

Merci
13/02/2016, 22h08
patricktoulon

re

Bon après plein de test
j'arrive bien a sélectionner le département mais le soucis c'est que la page est protégée (réécriture partielle ou total de la page liste différemment a chaque fois bref c'est l'épuisement mental la )et me génère plein d'erreur incohérentes
donc pour la première fois je peut dire laisse tomber ce site trouve en un autre

Salut Patrick;

Merci pour ton investissement même si j'aurais préféré que tu me dises que c'est du domaine du possible !!!

Malheureusement, c'est le site de référence et les autres sont secondaires.

J'ai fait plusieurs tests avec des sélections de départements différents et le tableau me semble toujours avoir le même ID, à savoir "ctl40_DataGrid1".
Alors je ne comprends pas bien pourquoi il est impossible de récupérer l'innertext des td.
Désolée, je suis blonde !!! :oops:
Tu me diras, vu mon niveau c'est normal que je ne comprenne pas mais... Pourrais-tu m'expliquer pourquoi il est impossible de pointer sur "ctl40_DataGrid1" pour récupérer ce qu'il y a dedans ?

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiii

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<table class="grid" cellspacing="0" cellpadding="1" rules="all" border="1" id="ctl40_DataGrid1" style="width:100%;border-collapse:collapse;">
			<tbody><tr>
				<td class="gridHeader">NB</td><td class="gridHeader"><a href="javascript:__doPostBack('ctl40$DataGrid1$ctl01$ctl00','')">POSTE</a></td><td class="gridHeader"><a href="javascript:__doPostBack('ctl40$DataGrid1$ctl01$ctl01','')">METIER</a></td><td class="gridHeader"><a href="javascript:__doPostBack('ctl40$DataGrid1$ctl01$ctl02','')">COLLECTIVITE</a></td><td class="gridHeader"><a href="javascript:__doPostBack('ctl40$DataGrid1$ctl01$ctl03','')">ARROND.</a></td><td class="gridHeader"><a href="javascript:__doPostBack('ctl40$DataGrid1$ctl01$ctl04','')">DEP.</a></td><td class="gridHeader"><a href="javascript:__doPostBack('ctl40$DataGrid1$ctl01$ctl05','')">LIEU</a></td><td class="gridHeader"><a href="javascript:__doPostBack('ctl40$DataGrid1$ctl01$ctl06','')">DATE<br>PUBLIEE</a></td><td class="gridHeaderSortASC"><a href="javascript:__doPostBack('ctl40$DataGrid1$ctl01$ctl07','')">DATE<br>LIMITE</a></td><td class="gridHeader">DUREE</td><td class="gridHeader"><a href="javascript:__doPostBack('ctl40$DataGrid1$ctl01$ctl08','')">REF</a></td><td class="gridHeader">&nbsp;</td>
			</tr><tr class="griditem">
				<td>1</td><td>Travailleur social</td><td>Travailleuse / Travailleur social-e</td><td>CCAS de Châteauroux</td><td>&nbsp;</td><td>36</td><td>CHATEAUROUX</td><td>21/12/2015</td><td>15/02/2016</td><td style="white-space:nowrap;">35 h 0</td><td>308098</td><td style="width:140px;">
								<input type="submit" name="ctl40$DataGrid1$ctl02$Det" value="Détail" id="ctl40_DataGrid1_Det_0" class="formblanc" style="width:100%;">
 
							</td>
			</tr><tr class="gridalternateitem">
				<td>1</td><td>Coordonnateur</td><td>Coordonnatrice / Coordonnateur de santé</td><td>Département de l'Indre</td><td>&nbsp;</td><td>36</td><td>CHATEAUROUX</td><td>22/01/2016</td><td>15/02/2016</td><td style="white-space:nowrap;">35 h 0</td><td>310957</td><td style="width:140px;">
								<input type="submit" name="ctl40$DataGrid1$ctl03$Det" value="Détail" id="ctl40_DataGrid1_Det_1" class="formblanc" style="width:100%;">
 
							</td>
			</tr><tr class="griditem">
				<td>1</td><td>DEVELOPPEMENT DE LA POLITIQUE EN FAVEUR DES PERSONNES AGEES</td><td>Chargée / Chargé d'accueil social </td><td>Mairie du BLANC</td><td>Blanc</td><td>36</td><td>LE BLANC</td><td>26/01/2016</td><td>15/02/2016</td><td style="white-space:nowrap;">17 h 50</td><td>311478</td><td style="width:140px;">
								<input type="submit" name="ctl40$DataGrid1$ctl04$Det" value="Détail" id="ctl40_DataGrid1_Det_2" class="formblanc" style="width:100%;">

14/02/2016, 02h01
patricktoulon

re

bonjour hexa

la raison est toute simple les script externe ne sont pas acceptés dans cette page web en plus il y a la protection anti copie donc innertext walou!!!!!

alors oui il y a quelques failles ce qui produit de temps en temps en jouant avec les attentes un tableau qui nous parvienne mais c'est de la loterie
14/02/2016, 15h11
patricktoulon

2 pièce(s) jointe(s)

re Ok pour recup tout metier

Bonjour hexa
bon comme c'est pas fait pour me décourager j'ai utilisé un subterfuge
en effet aucune protection a ce jour ne protège vraiment contre la copie
il y a des centaines d'astuces
mais c'est costaux
l'une d'entre elle si l'élément n'est pas lisible avec les librairie IE (innertext,innerhtml,etc....) consiste a aller chercher un enfant ou un sous enfant de cet élément
si un de ces enfant est lisible et que l'on achoppe alors c'est gagné on remonte le parentNode
exemple
j'ai une table qui est ilisible
alors je vais faire table.children(X).parentNode.outerhtml X représente l'index de l'enfant dans la hiérarchie de l'arborescence
j'obtiens donc le code html de la table
voila
et donc je t'ai concocter ce petit classeur
comme il est difficile de manipuler les swf(object de configuration de l'object flash de la page )sans outil pour ca
j'ai utiliser la combobox département de la page et je recupere donc tout les emplois proposé pour le departement
et donc dans un userform j'ai retranscrit tout les département et leur value dans une listebox multiselect
j'injecte le array contenant ta sélection de la liste box dans ma fonction
tu sélection donc les départements que tu veux et la page web va changer toute seule
je me suis permis de faire un peu de style mise en couleur ca va plaire a seb ca hein !!.....
j'ai aussi dans la fonction en dernière cellule a droite injecté les yperliens detail quand tu clique dessus tu a IE qui s'ouvre sur la page détail de cette offre d'emplois
Pièce jointe 200814
14/02/2016, 15h15
Sebphyto

Re,
Trop de taille....Bravo

Merci pour le clin d'œil :zoubi:
seb
14/02/2016, 15h28
Hexa82

Oh put...
Je sais pas comment t'a réussi à faire un truc pareil mais là... Je ne sais pas quoi dire ! T'es un Dieu !

Merci, Merci...........

Je ne pourrai pas mettre assez de pouces verts.....

Question à cent sous, les 2 autres sites dont j'avais noté les adresses, à savoir :
http://www.emploi-territorial.fr/accueil/
http://emploi.fncdg.com/

Ont-il également une protection de malade ? Ou bien est-ce possible de sélectionner plusieurs départements et récupérer les listes sans avoir recours à ta monstrueuse technique :ptdr: ???
14/02/2016, 15h52
patricktoulon

re

donc pour le 1er c'est le même pour le 2 eme je te le donne dans le mille bonnet blanc/blanc bonnet mais il a l'air plus facile
14/02/2016, 15h55
Hexa82

Oh merde !

Mais qu'est-ce qu'ils ont besoin de faire des sites comme ça !
Ça n'a rien de secret ou de protégé...

Les webmasters de la fonction publique m'emmer... ^^
14/02/2016, 16h03
patricktoulon

re

justement de la fonction publique :ptdr::ptdr:
disons que c'est surtout pour éviter des requetés non conforme qui pourraient éventuellement altérer leur contenus
14/02/2016, 16h11
Hexa82

Ahhhh....

2 petites questions sur ton fichier qui tue !

- Il y a des départements qui manque dans le Useform, comment ça se fait big boss ???
- Est-il possible de "préselectionner" des départements afin d'éviter de les cliquer à chaque fois ?

Franchement ton fichier me fait halluciner....
14/02/2016, 18h44
patricktoulon

1 pièce(s) jointe(s)

re
c'est normal que des départements n'y soit pas ils y sont pas dans la pages web :ptdr::ptdr:
tu es d'humeur blagueuse se soir hein!!!!
et oui c'est possible

tu ajoute un bouton
dans le privateclick du bouton tu met :
Code:

1 2 dim mesdeppréfs=array(12 81,.....)' Bref les numeros que tu veux DPOAnnonceLBC mesdeppréfs
j'ai extérioriser la fonction en vue de cette éventualité

je peut même faire la même chose par les noms de département avec match sur les deux array(nombres/noms)

Pièce jointe 200826
14/02/2016, 20h51
Hexa82
Tu penses à tout ^^

En mettant :
Code:

1 2 3 4 Private Sub CommandButton2_Click() dim mesdepprefs=array(44, 72) DPOAnnonceLBC mesdepprefs End Sub
J'ai une "erreur de compilation, Attendu : fin de l'instruction".

J'ai donc tenté comme ceci :
Code:

1 2 3 4 5 Private Sub CommandButton2_Click() Dim mesdepprefs mesdepprefs = Array(44, 72) DPOAnnonceLBC mesdepprefs End Sub
Là, pas d'erreur mais aucune interaction n'a lieu.

Quezako ???
14/02/2016, 21h10
patricktoulon

1 pièce(s) jointe(s)

re voila
je sais pas j'ai du faire une faute de syntaxe mais ca fontionne
Code:

1 2 3 4 5 Private Sub CommandButton2_Click() Dim mespréf préf = Array(2, 8, 31) DPOAnnonceLBC préf End Sub
Pièce jointe 200837

Voir 40 message(s) de cette discussion en une page