Discussion :

[Hexa82]

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

[Sebphyto]

Re Hexa,

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

bonne soirée
Seb

[Invité]

Bonjour,

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

[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 !

[patricktoulon]

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!!!...
y a pas de tireur aux flans avec elle

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

[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

[Hexa82]

Bonjour,

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

@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 ^^

Merci

[patricktoulon]

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

[Hexa82]

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 !!!
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 html :

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

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%;">

[patricktoulon]

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

[patricktoulon]

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

[Sebphyto]

Re,
Trop de taille....Bravo

Merci pour le clin d'œil
seb

[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 ???

[patricktoulon]

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

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

[patricktoulon]

justement de la fonction publique
disons que c'est surtout pour éviter des requetés non conforme qui pourraient éventuellement altérer leur contenus

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

[patricktoulon]

c'est normal que des départements n'y soit pas ils y sont pas dans la pages web
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 :

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

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)

[Hexa82]

Tu penses à tout ^^

En mettant :

Code :

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

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 :

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

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

[patricktoulon]

je sais pas j'ai du faire une faute de syntaxe mais ca fontionne

Code :

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

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