Ramener le contenu du content html en vba.

Version imprimable

Bonjour,

Ma demande porte sur : ramener le contenu d'une page web dans une cellule. J'ai bien avancé sans trop de difficulté avec les nombreux sujets dessus mais la je bloque sur la dernière étape.

Plus précisement je souhaiterais ramener les informations en gras dans ce bout de code:
Code:

1 2 3 4 5 6 <title>Cours Nordea-1 Stable Return BP EUR, Fonds Sicav Opcvm LU0227384020 - Boursorama</title> <meta name="viewport" content="width=device-width, initial-scale=1, maximum-scale=1.0, user-scalable=no" /> <meta http-equiv="X-UA-Compatible" content="IE=Edge" /> <meta name="description" content="Trouvez toutes les informations sur le fonds Nordea-1 Stable Return BP EUR de Nordea : cours, performance, analyses, actualité, ... sur Boursorama" /> <meta name="sid" content="156,E" /> <meta name="keywords" content="Nordea-1 Stable Return BP EUR, Nordea, Claus Vorm,Robert Næss, LU0227384020, fonds, opcvm, FCP, sicav, gestion collective, Mixtes Euro, Allocation EUR Modérée - International, Fonds etrangers, Fonds commun de placement" />
Ma macro bloque
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 i = 2 'Chargement d'une page Web IE.navigate "http://www.boursorama.com/" 'Affichage de la fenêtre IE IE.Visible = False 'On attend le chargement complet de la page WaitIE IE For i = 1 To 10 DoEvents Next 'On pointe le membre Document Set IEDoc = IE.document 'On pointe notre Zone de texte de depart Set InputBoursoZoneTexte = IEDoc.all("search-query") 'On définit le texte que l'on souhaite placer à l'intérieur ( ici : LU0227384020) InputBoursoZoneTexte.Value = Sheets("Export").Cells(i, 2).Value 'On effectue une recherche Set InputBoursoBouton = IEDoc.all("search-spinner-submit") InputBoursoBouton.Click WaitIE IE '----------------C EST OK JUSQU A LA ! Set definition = IEDoc.all("Keywords") Sheets("Export").Cells(i, 5).Value = definition texte1 = definition.getAttribute("content") Sheets("Export").Cells(i, 6).Value = texte1
et avec ca dans ma colonne 5 j'ai : [object HTMLMetaElement]
dans ma colonne 6 j'ai rien. ce que je souhaite c est le texte dans la colonne 6 ( de ramener definition en colonne 5 c'était pour voir son contenu )

J'espere avoir été clair sinon je peux préciser certain points.

aussi, au lieu d' utiliser "getattribute" pour ramener le texte j'ai esayé aussi InnerText et .Content Mais sans succès .
Merci d'avance a vous pour votre aide et votre temps a me rendre ce service.

Alfiedx

Bonjour,

le texte étant dans une propriété précise - content - d'un élément particulier, il n'est donc pas récupérable ailleurs …
Mais encore faut-il synchroniser l'exécution du code non seulement avec le chargement de la page initiale
mais aussi avec la mise à jour du Document après le click avant de cibler enfin l'élément
et accéder à sa propriété comme dans les exemples des discussions de ce forum …
C'est le problème du code précédent, il a déjà terminé alors que la mise à jour n'a pas commencé !

Première démonstration en déclaration tardive (sans cocher de référence, consulter le chapitre II-B de
l'excellent tutoriel Interaction avec Internet Explorer via VBA Excel), résultat dans la fenêtre Exécution :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Demo1() Z! = Timer With CreateObject("InternetExplorer.Application") .Navigate "http://www.boursorama.com/" While .Busy Or .ReadyState < 4: DoEvents: Wend With .Document .all("search-query").value = "LU0227384020" .all("search-spinner-submit").click While .ReadyState <> "complete": DoEvents: Wend T$ = .all("keywords").content End With .Quit End With Debug.Print vbLf; "Demo1 : "; Format(Timer - Z, "0.000s"); vbLf; T End Sub
L'autre voie possible en pilotant IE pouvant être un peu plus rapide (relatif car piloter IE étant la solution de derniers recours
car la plus lente, la plus contraignante et la moins fiable !) est de ne pas attendre la mise à jour complète du Document
mais d'extraire directement le texte depuis la bonne section du code - tiens en observant ce dernier, laquelle est-ce ? -
une fois chargé via des fonctions VBA manipulant les chaînes de caractères …

_____________________________________________________________________________________________________

:fleche: Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

heu

Bonjour marc
on peu eviter avec ce site 1 attente wait puisque il accepte la methode "post"/"get"

l'object de la recherche dans l'url
Code:

1 2 3 4 5 6 7 8 9 10 Sub test() Z! = Timer With CreateObject("InternetExplorer.Application") .navigate "http://www.boursorama.com/recherche/index.phtml?q=LU0227384020&search-spinner-submit=1" While .ReadyState <> 4: DoEvents: Wend T$ = .document.all("keywords").Content .Quit End With Debug.Print vbLf; "Demo1 : "; Format(Timer - Z, "0.000s"); vbLf; T end sub
resultat en moins d'une seconde et demie chez moi !;)

13/08/2015, 12h05
Marc-L

Heu …

Salut Patrick !

Certes mais tu brûles les étapes !
Déjà il doit comprendre pourquoi son code ne peut fonctionner : la charrue avant les boeufs ‼

Test de ton code : 3,574s … Un peu plus rapide que mes deux démos sous IE mais bien moins qu'une requête !
13/08/2015, 14h17
patricktoulon
re
oui je sais , mais c'est justement pour ne pas brûler les étapes que je n'ai pas proposé une requete
mais je l'avais fait et c'est quazi immédiat ;) la page étant pas trop lourde

re
de toute facon a regarder de plus pret son code initiale avait des erreurs de principe

ici i = 2

Code:

i = 2

ensuite il boucle je sais pas trop pourquoi?
Code:

1 2 3 For i = 1 To 10 DoEvents Next
a partir de la i=10
ensuite
je ne suis pas sur que ca soit bien la cellule(10,5) qu il aurait voulu cibler sinon a quoi bon le "i=2" en debut de sub
Code:

1 2 Set definition = IEDoc.all("Keywords") Sheets("Export").Cells(i, 5).Value = definition
ici pareil !!!!! pas sur non plus
Code:

1 2 texte1 = definition.getAttribute("content") Sheets("Export").Cells(i, 6).Value = texte1
enfin visiblement c'est assez confu, il va devoir rebucher le tuto de qwazerty et surtout regarder sur le forum les discussions similaires car on ne trouve pas tout dans le tutoriel

re je viens de tester le state 3 et ca fonctionne a 90% alors j'ais créé une 2 eme do/loop sur l'object recherché
résultat chez moi 0.965s
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub test() Z! = Timer With CreateObject("InternetExplorer.Application") .navigate "http://www.boursorama.com/recherche/index.phtml?q=LU0227384020&search-spinner-submit=1" .Visible = True Do: DoEvents: Loop Until .readystate = 3'on attends pas le chargement complet !!! Do: Set meta = .document.all("keywords"): Loop While meta Is Nothing ' on attend que l'element existe t$ = meta.Content .Quit End With Debug.Print vbLf; "Demo1 : "; Format(Timer - Z, "0.000s"); vbLf; t End Sub
voila aussi rapide rapide que la requête
methode semblable a celle que tu affectionne (une boucle sur le ".length")

Que dire... merci!!
J'ai testé et c'est nickel.Désolé, J'avais vu pour les petites erreurs ( ex :ré-utilisation de la variable i pour la ligne de selection, alors que je l'incrémente via une boucle de 1 a 10 )
Maintenant ca fontionne tres bien et tres vite :P , je voudrais savoir comment je peux aller rechercher d'autres élément et non qu'une meta donnée.
dans ce code ci dessous : le .document.all("keywords") permet de bien me positionner ( car c'est : <meta name="keywords" content="Le texte que je ramene ....

rapel : <meta name="keywords" content="JPMorgan Greater China A (dist)-USD, JPMorgan
Code:

1 2 3 Do: Set meta = .document.all("keywords"): Loop While meta Is Nothing ' on attend que l'element existe t$ = meta.Content .Quit
Mais si dans le code je veux une information qui est de ce style par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 <div class="cb"></div> </div> <div id="quote-complement-page"><div class="block medium pull-left first-block"> <div class="hd"><span class="title"><h2>Caractéristiques</h2></span></div> <div class="bd"> <table class="list" width="100%" cellspacing="0" height="340"> <tr> <td width="50%"> Éligible PEA</td> <td>:</td> <td style="text-align:right;"><strong>NON</strong> </td> </tr> <tr> <td width="50%"> Éligible PEA-PME</td> <td>:</td> <td style="text-align:right;"><strong>NON</strong> </td> </tr> <tr> <td> Fonds partenaire</td> <td>:</td> <td style="text-align:right;"><strong>OUI</strong> </td> </tr> <tr> <td> Éligible Boursorama Vie</td> <td>:</td> <td style="text-align:right;"><strong>NON</strong> </td> </tr> <tr> <td> Fonds de fonds</td> <td>:</td> <td style="text-align:right;"><strong>NON</strong> </td> </tr> <tr> <td> Date de création</td> <td>:</td> <td style="text-align:right;">18/05/2001 </td> </tr> <tr> <td> Groupe de gestion</td> <td>:</td> <td style="text-align:right;"><a href="/bourse/opcvm/palmares.phtml?fromSearch=1&branding=BN0000095S" style="text-decoration: underline;">JPMorgan</a> </td> </tr> <tr> <td> Promoteur</td> <td>:</td> <td style="text-align:right;">JPMorgan Asset Mgmt (Europe) S.a.r.l. </td> </tr> <tr> <td> Gérant(s)</td> <td>:</td> <td style="text-align:right;">Emerson Yip,Howard Wang </td> </tr> <tr> <td> Catégorie Générale</td> <td>:</td> <td style="text-align:right;"><a href="/bourse/opcvm/palmares.phtml?fromSearch=1&critgen=1&souscritgen=3&DEVISE=&valider=valider" style="text-decoration: underline;">Actions Asie/Pacifique</a> </td> </tr> <tr> <td> Catégorie Morningstar</td> <td>:</td> <td style="text-align:right;"><a href="/bourse/opcvm/palmares.phtml?fromSearch=1&CATEGORIE=EUCA000500&DEVISE=&valider=valider" style="text-decoration: underline;">Actions Grande Chine</a> </td> </tr> <tr> <td> Catégorie AMF</td> <td>:</td> <td style="text-align:right;"><a href="/bourse/opcvm/palmares.phtml?fromSearch=1&critgen=2&souscritgen=LC00000267&DEVISE=&valider=valider" style="text-decoration: underline;">Fonds etrangers</a> </td> </tr> <tr> <td> Forme juridique</td> <td>:</td> <td style="text-align:right;">SICAV </td> </tr> <tr> <td> Type d'investisseur</td> <td>:</td> <td style="text-align:right;">ND </td> </tr> <tr> <td> Affectation des résultats</td> <td>:</td> <td style="text-align:right;">Distribution </td> </tr> <tr> <td> Actif net (milliers USD)</td> <td>:</td> <td style="text-align:right;">31/07/2015 - 1 270 041,96 </td> </tr> <tr> <td> Date/valeur du dernier coupon</td> <td>:</td> <td style="text-align:right;">ND </td> </tr> </table>
Ici, je cherche les éléments du code que j'ai mis en gras ( je vois que c'est un tableau donc j'ai essayé plusieurs code trouvé mais je n'arrive pas a customizer le :
Do: Set meta = .document.all("keywords"): Loop While meta Is Nothing ' on attend que l'element existe

Si vous pouvez m'apporter quelques infos dessus.
Merci encore déja pour votre aide précédente.

bon je crois que j'ai manquer d'explication
la derniere methode que je t'ai donné utilise le plus court chemin pour récupérer la balise meta

une balise meta et souvent dans la balise"head"(entete et parametres du document)

c'est ce qui se charge en premier comme justement tu voulais un de ces elements se trouvant dans le head j'ai utilisé le ready 3 qui suffit a ce que le head soit chargé mais pas suffisant pour aller dans le body qui lui contient les elements que tu cherche maintenant
il faut donc revoir la copie

si tu nous disais directement tout les elements que tu veux on irait plus vite

un exemple comme ca vite fait

on récupère la meta et la table en string dans le debug
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Sub test() Z! = Timer With CreateObject("InternetExplorer.Application") .navigate "http://www.boursorama.com/recherche/index.phtml?q=LU0227384020&search-spinner-submit=1" .Visible = True Do: DoEvents: Loop Until .readystate = 4 Or .busy = False 'on attends pas le chargement complet !!! Set meta = .document.all("keywords") t$ = meta.Content Set mestables = .document.getelementsbytagname("TABLE") 'on récupere toutes les tables(balise"<table>") 'la table que nous cherchons a pour class "list" alors on va boucler sur toute les table pour la déterminer For i = 0 To mestables.Length - 1 If mestables(i).classname = "list" Then Set matable = mestables(i) Next 'on a trouvé la table maintenant on récupere tout le texte 'Mais attention si tu voulais récupérer certains de ces elements mais pas tous il faudrais encore discèquer la table 'dabors par les ligne("tr") et ensuite par les ("TD") 'mais dans le cas présent meme sans il te sera facile de trier puisque chaque cellule de gauche de cette table sur la page web se termine par un doublepoint 'donc en string on pourrais se servir de split par les saut de ligne et les ":" pour les cellules droite et gauche 'on recupere le text complet en vrac de la ligne t = t & vbCrLf & matable.innertext .Quit End With Debug.Print vbLf; "Demo1 : "; Format(Timer - Z, "0.000s"); vbLf; t End Sub

Citation:

Envoyé par patricktoulon

re je viens de tester le state 3 et ca fonctionne a 90% alors j'ais créé une 2 eme do/loop sur l'object recherché
résultat chez moi 0.965s

De mon côté ta procédure prend 7,348s lors du premier lancement puis descend grâce au cache à 1,5s …

Citation:

Envoyé par Marc-L

L'autre voie possible en pilotant IE pouvant être un peu plus rapide est de ne pas attendre
la mise à jour complète du Document mais d'extraire directement le texte depuis la bonne section du code
une fois chargé via des fonctions VBA manipulant les chaînes de caractères …
Code:

1 2 3 4 5 6 7 8 9 10 Sub Demo2() Z! = Timer With CreateObject("InternetExplorer.Application") .Navigate "http://www.boursorama.com/recherche/index.phtml?q=LU0227384020&search-spinner-submit=1" While .ReadyState < 3: DoEvents: Wend T$ = Split(Split(.Document.head.innerHTML, "<meta name=""keywords"" content=""")(1), """")(0) .Quit End With Debug.Print vbLf; "Demo2 : "; Format(Timer - Z, "0.000s"); vbLf; T End Sub
Comme la donnée est au sein de l'en-tête du Document, ton code est aussi rapide …

alfiedx, comme déjà évoqué, piloter IE doit être la solution de derniers recours, quand les autres ont échouées.
Si dans ton fichier tu as la possibilité d'utiliser le code unique présent dans l'adresse de la page Web (symbole=…),
utiliser une requête sera bien plus efficace ! Voir le tutoriel VBA et développement Web …

_____________________________________________________________________________________________________

:fleche: :fleche: Merci de cliquer sur :plusser: pour chaque message ayant aidé …

_____________________________________________________________________________________________________
Pour apprendre quelque chose aux gens, il faut mélanger ce qu’ils connaissent avec ce qu’ils ignorent. (Pablo Picasso)

1 pièce(s) jointe(s)

re
bonjour a tout les deux
bon allez si t'insiste c'est parti pour la requête

Pièce jointe 185448

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test_with_requete()
    Dim REQ, URL
    z! = Timer
    URL = "http://www.boursorama.com/recherche/index.phtml?q=LU0227384020&search-spinner-submit=1"
    Set REQ = CreateObject("microsoft.xmlhttp")
    With REQ: .Open "POST", URL, False: .send: codehtml = .responsetext: End With
    meta = Split(Split(codehtml, "<meta name=""keywords"" content=""")(1), """")(0)
 
    With CreateObject("htmlfile")
        .body.innerhtml = codehtml
        Set mestables = .getelementsbytagname("TABLE")
        For Each elem In mestables
            If elem.classname = ("list") Then textetable = elem.innertext
        Next
        Debug.Print meta & vbCrLf & textetable
    End With
    Set REQ = Nothing
    MsgBox "tache éffectuée en :" & Format(Timer - z, "0.00s") & vbCrLf & vbCrLf & "regarde dans la fenetre d'execution!!"
End Su

17/08/2015, 16h10
alfiedx

Bonjour,

Merci pour votre aide. J'ai réussi a bien avancer grace a vous.
J'ai pris un peu de temps pour personnaliser ce code et voir si je bloquait sur une étape , et non .tout est bon! Merci encore

Bonjour à tous,
Bonjour Patricktoulon,

Je réouvre le sujet car malgrè avoir reussi, j'ai un petit soucis pour réadapter le code donné précédemment avec un html différent.
Le site morningstar.fr est le site en question dorénavant , boursorama n'ayany pas toutes les infos que je veux.:?
Je n'arrive pas encore bien a me balader et controller le html depuis la macro. alors merci d'avance.

Je souhaite ouvrir le lien en gras. Avant j'avais un bouton ou je pouvais simuler le clic .Click
mais dans ce cas j'ai essayé plusieurs methodes sans arriver à charger la page voulu.

Code:

1
2
3
4
5
6
7
8
9
10
11
<div id="ctl00_MainContent_fundResults" class="searchResultsDiv">
 <a id="ctl00_MainContent_fundsHeader" class="gridTitle">Sicav/Open End</a>
 <table id="ctl00_MainContent_fundTable" cellspacing="0" cellpadding="0" border="0" style="border-collapse:collapse;">
 <tr class="searchGridHeader">
 <th>Nom</th><th>ISIN</th>
 </tr><tr class="gridItem">
 <td class="msDataText searchLink"><a href="/fr/funds/snapshot/snapshot.aspx?id=F0GBR04M17">JPM JF Greater China A (D)</a></td><td class="msDataText searchIsin"><span>LU0117841782</span></td> 

 </tr>
 </table>
 </div>

J'ai vu que dans l'url le code était utiliser donc je vais directement à ma page mais je dois cliquer sur le lien href pour avoir les caractéristique de mon produit
exemple dans ma premiere cellule ( Sheets("Export").Cells(numligne, 2).Value j'ai mis LU0117841782.
voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub extract()
 
    Dim REQ, URL
    Dim IE As New InternetExplorer
  Dim IEDoc As HTMLDocument
  Dim isinfonds As String
  Dim numligne As Integer
  numligne = 2
 
  ' j'ai mis plusieurs code dans la colonne B et souhaite trouver leurs informations
 isinfonds = Sheets("Export").Cells(numligne, 2).Value
 
 
While Sheets("Export").Cells(numligne, 2) <> ""
i = 2
colonne = 4
 
    Z! = Timer
    'je peux faire la recherche en mettant deja le code dans l'url ce qui me fait deja passer une étape de navigation d'IE
    URL = "http://www.morningstar.fr/fr/funds/SecuritySearchResults.aspx?search=" & isinfonds & "&type="
    Set REQ = CreateObject("microsoft.xmlhttp")
    With REQ: .Open "POST", URL, False: .send: codehtml = .responseText: End With
 
      'ICI : c'est dans ce bloque with que je bloque
      With CreateObject("htmlfile")
        .body.innerHTML = codehtml
        .all("msDataText searchLink").Click ' ici ca bloque car mauvaise methode je pense
             While .readyState <> "complete":  DoEvents:  Wend
        End With
 
 
    'après une fois que la page des caractéritiques est ouvert. J'arrive a prendre les infos grace avec ta methode
    ' j'ai essayé en pointant directement sur la page " http://www.morningstar.fr/fr/funds/snapshot/snapshot.aspx?id=F0GBR04M17" et ca marche.
    With CreateObject("htmlfile")
        .body.innerHTML = codehtml
        Set mestables = .GetElementsByTagName("TABLE")
        For Each elem In mestables
            If elem.className = ("list") Then textetable = elem.innerText
            Sheets("Export").Cells(numligne, colonne).Value = elem.innerText
            colonne = colonne + 1
        Next
        Debug.Print meta & vbCrLf & textetable
    End With
        numligne = numligne + 1
Wend
 
 Set REQ = Nothing
    MsgBox "tache éffectuée en :" & Format(Timer - Z, "0.00s") & vbCrLf & vbCrLf & "regarde dans la fenetre d'execution!!"
End Sub

Merci par avance du coup de main qui me serra précieux
alfiedx

20/08/2015, 22h45
patricktoulon

re

regarde sur ce forum avec mon identifiant j'avais fait un fichier pour je sais plus qui concernant morningstar euronext et nasdaq tu trouvera plus que ce tu espere je pense

te casse pas je l'ai retrouvé pour toi
http://www.developpez.net/forums/d15...tsbyclassname/
tu a de la lecture en perspective

Bonjour Patrick,

J'ai commencé la lecture, ce n'est pas le même besoin mais je vais bien regarder le détails pour essayer de me débloquer. merci de ta réponse.
Je vois qu'il y a pas mal d'éléments nouveaux pour moi.
Sur la source , Je souhaiterais rester sur morningstar plutot que de basculer vers bloomberg.com ( je m'interesse plus aux caratéristiques qu'aux cotations).

---------

En réalité je n'arrive pas incoporer mon

Code:

Dim Lien As HTMLAnchorElement

j'ai trouvé une solution ou je prendrais tout le code de la page et chercherais le lien par son emplacement. ( il sera toujours au même endroit dans le codeHtml)

Code:

Set Lien = IE.document.body.Links(6)

ca ne fonctionne pas pour l'instant .Il y a surement mieux.
Code:

1 2 3 4 5 6 7 8 9 10 11 <div id="ctl00_MainContent_fundResults" class="searchResultsDiv"> <a id="ctl00_MainContent_fundsHeader" class="gridTitle">Sicav/Open End</a> <table id="ctl00_MainContent_fundTable" cellspacing="0" cellpadding="0" border="0" style="border-collapse:collapse;"> <tr class="searchGridHeader"> <th>Nom</th><th>ISIN</th> </tr><tr class="gridItem"> <td class="msDataText searchLink"><a href="/fr/funds/snapshot/snapshot.aspx?id=F0GBR04M17">JPM JF Greater China A (D)</a></td><td class="msDataText searchIsin"><span>LU0117841782</span></td> </tr> </table> </div>

26/08/2015, 12h11
alfiedx

Bonjour,

Je n'arrive toujours pas trouver comment utiliser :

Code:

Dim Lien As HTMLAnchorElement

Mon but est de récupérer un lien html de type :

Code:

<a href="/fr/funds/snapshot/snapshot.aspx?id=F0GBR04M17">

Pour ensuite pouvoir me redigérer la page de ce lien.

Le lien est dans un tableau ( il y a le code complet dans mon message précédent si besoin) je sais pas si c'est ca qui complique vraiment la chose car je n'arrive pas a adapter ce que je trouve sur les forums lors de mes recherches.

Merci par avance pour le coup de pouce !
;)